object DlgLink: TDlgLink Left = 214 Top = 105 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsSingle ClientHeight = 420 ClientWidth = 407 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object Button1: TButton Left = 167 Top = 393 Width = 72 Height = 22 HelpContext = 49 Default = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 247 Top = 393 Width = 72 Height = 22 HelpContext = 44 Cancel = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = Button2Click end object BitBtn3: TBitBtn Left = 327 Top = 393 Width = 72 Height = 22 HelpContext = 7 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = AideBtnClick end object LienPgCtrl: TPageControl Left = 8 Top = 8 Width = 391 Height = 377 ActivePage = TabSheet1 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object TabSheet1: TTabSheet ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object Label2: TLabel Left = 8 Top = 12 Width = 3 Height = 13 Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label1: TLabel Left = 8 Top = 50 Width = 3 Height = 13 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Bevel2: TBevel Left = 8 Top = 36 Width = 367 Height = 2 end object LblHint: TLabel Left = 8 Top = 134 Width = 3 Height = 13 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label10: TLabel Left = 0 Top = 194 Width = 348 Height = 13 Alignment = taCenter AutoSize = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblType: TLabel Left = 8 Top = 92 Width = 3 Height = 13 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblSubject: TLabel Left = 8 Top = 176 Width = 3 Height = 13 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Visible = False end object ComboBox1: TComboBox Left = 8 Top = 65 Width = 337 Height = 21 HelpContext = 208 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 0 MaxLength = 512 ParentFont = False TabOrder = 0 OnChange = ComboBox1Change end object Edit1: TEdit Left = 8 Top = 149 Width = 337 Height = 21 HelpContext = 733 TabOrder = 3 end object SpeedButton1: TBitBtn Left = 352 Top = 65 Width = 23 Height = 21 TabOrder = 1 OnClick = Button3Click end object Memo1: TSyntaxMemo Left = 0 Top = 216 Width = 383 Height = 133 HelpContext = 30 Align = alBottom ClipCopyFormats = [smTEXT, smRTF, smUNICODE] Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Courier New' Font.Style = [] GutterFont.Charset = DEFAULT_CHARSET GutterFont.Color = clWindowText GutterFont.Height = -11 GutterFont.Name = 'MS Sans Serif' GutterFont.Style = [] HideSelection = False HyperCursor = crDefault IndentStep = 1 Margin = 2 Modified = False MonoPrint = True Options = [smoSyntaxHighlight, smoPrintWrap, smoPrintLineNos, smoPrintFilename, smoPrintDate, smoPrintPageNos, smoAutoIndent, smoTabToColumn, smoWordSelect, smoShowRMargin, smoShowGutter, smoShowWrapColumn, smoTitleAsFilename, smoProcessDroppedFiles, smoBlockOverwriteCursor, smoShowWrapGlyph, smoColumnTrack, smoUseTAB, smoSmartFill, smoOLEDragSource, smoLineNumbers] PopupMenu = PopupMenu1 ReadOnly = True RightMargin = 80 SaveFormat = sfTEXT ScrollBars = ssBoth SelLineStyle = lsCRLF SelStart = 0 SelLength = 0 SelTextColor = clWhite SelTextBack = clNavy TabDefault = 4 TabOrder = 4 Version = '3.00.39' Visible = False VisiblePropEdPages = [ppOPTIONS, ppHIGHLIGHTING, ppAUTOCORRECT, ppTEMPLATES] WrapAtColumn = 2048 CanMoveGutter = False ActiveParser = 1 end object ComboType: TComboBox Left = 8 Top = 107 Width = 337 Height = 21 HelpContext = 271 Style = csDropDownList Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 MaxLength = 512 ParentFont = False TabOrder = 2 OnChange = ComboTypeChange Items.Strings = ( '1' '2' '3' '4' '5') end object BtnInsertLink: TButton Left = 309 Top = 191 Width = 72 Height = 22 TabOrder = 5 OnClick = destination1Click end object EditSubject: TEdit Left = 8 Top = 191 Width = 337 Height = 21 HelpContext = 554 TabOrder = 6 Visible = False end end object TabSheet2: TTabSheet ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object Label7: TLabel Left = 8 Top = 12 Width = 366 Height = 37 AutoSize = False Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object Bevel4: TBevel Left = 8 Top = 54 Width = 367 Height = 2 end object Label9: TLabel Left = 110 Top = 69 Width = 162 Height = 24 AutoSize = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object ListBox1: TListBox Left = 110 Top = 96 Width = 162 Height = 201 HelpContext = 108 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -13 Font.Name = 'System' Font.Style = [fsBold] ItemHeight = 16 ParentFont = False TabOrder = 0 OnMouseDown = ListBox1MouseDown end end object TabSheet3: TTabSheet ExplicitLeft = 0 ExplicitTop = 0 ExplicitWidth = 0 ExplicitHeight = 0 object Bevel1: TBevel Left = 8 Top = 36 Width = 367 Height = 2 end object Label6: TLabel Left = 8 Top = 12 Width = 3 Height = 13 Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 8 Top = 50 Width = 3 Height = 13 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Edit2: TEdit Left = 8 Top = 65 Width = 367 Height = 21 HelpContext = 59 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 256 ParentFont = False TabOrder = 0 end object RadioGroup1: TRadioGroup Left = 8 Top = 95 Width = 367 Height = 136 HelpContext = 60 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = False TabOrder = 1 OnClick = RadioGroup1Click end end end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup Left = 329 Top = 34 object destination1: TMenuItem OnClick = destination1Click end end end