internal void SetProperties(THyperLink value)
{
if (value == null)
{
value = new THyperLink();
}
FLinkType = value.LinkType;
FDescription = value.Description;
FTargetFrame = value.TargetFrame;
FText = value.Text;
FTextMark = value.TextMark;
if (value.Hint == null || value.Hint.Length == 0)
{
Hint = null;
}
else
{
if (Hint == null)
{
Hint = TScreenTipRecord.CreateNew(value.Hint);
}
else
{
Hint.Text = value.Hint;
}
}
}
private string GetMoniker(byte[] Data, int Flags, ref int pos, ref THyperLinkType HType)
{
if (IsUrl(Data, Flags, pos))
{
HType = THyperLinkType.URL;
pos += 16;
return(ReadString(Data, Flags, ref pos, 0, 1));
}
if (IsFile(Data, Flags, pos))
{
HType = THyperLinkType.LocalFile;
pos += 16;
return(ReadLocalFile(Data, ref pos));
}
if (IsUNC(Data, Flags, pos))
{
HType = THyperLinkType.UNC;
return(ReadString(Data, Flags, ref pos, 0, 2));
}
HType = THyperLinkType.CurrentWorkbook;
return(string.Empty);
}