Exemple #1
0
        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;
                }
            }
        }
Exemple #2
0
        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);
        }