object frmLink: TfrmLink Left = 342 Top = 153 HelpContext = 97 ActiveControl = cmbURL BorderStyle = bsDialog Caption = 'Anchor / Link' ClientHeight = 262 ClientWidth = 528 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter ShowHint = True OnCreate = FormCreate OnDeactivate = FormDeactivate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 513 Height = 214 Shape = bsFrame IsControl = True end object lblHRef: TLabel Left = 23 Top = 24 Width = 25 Height = 13 Caption = '&HRef' FocusControl = cmbURL Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblRel: TLabel Left = 23 Top = 166 Width = 16 Height = 13 Caption = 'Re&l' FocusControl = cmbRel Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblName: TLabel Left = 23 Top = 82 Width = 28 Height = 13 Caption = '&Name' FocusControl = txtName Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblTitle: TLabel Left = 23 Top = 110 Width = 20 Height = 13 Caption = '&Title' FocusControl = txtTitle Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblRev: TLabel Left = 236 Top = 166 Width = 20 Height = 13 Caption = 'Re&v' FocusControl = cmbRev Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblShape: TLabel Left = 236 Top = 194 Width = 31 Height = 13 Caption = '&Shape' FocusControl = cmbShape Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblUrn: TLabel Left = 23 Top = 194 Width = 24 Height = 13 Caption = 'U&RN' FocusControl = cmbUrn Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblMessage: TLabel Left = 23 Top = 130 Width = 46 Height = 26 Caption = '&Message Digest' FocusControl = txtMD Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object lblTarget: TLabel Left = 24 Top = 52 Width = 31 Height = 13 Caption = '&Target' FocusControl = cmbTarget end object OKBtn: TBitBtn Left = 191 Top = 229 Width = 77 Height = 25 Hint = 'Use Anchor for hypertext links' Caption = '&Anchor' Default = True ModalResult = 1 TabOrder = 9 Glyph.Data = { 5A010000424D5A01000000000000760000002800000013000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777F00007777777770777777777F00007777777700077777777F00007777 770000000777777F00007777000000000007777F00007770007700077000777F 00007700777700077770077F00007700777700077770077F0000700077770007 7770007F00007777777700077777777F00007777777700077777777F00007777 777700077777777F00007777777700077777777F00007777777700077777777F 00007777777700077777777F00007777700000000077777F0000777770000000 0077777F00007777777700077777777F00007777777777777777777F0000} Margin = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 360 Top = 229 Width = 77 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 11 NumGlyphs = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 444 Top = 229 Width = 77 Height = 25 Caption = '&Help' TabOrder = 12 OnClick = HelpBtnClick NumGlyphs = 2 Spacing = -1 IsControl = True end object cmbURL: TComboBox Left = 76 Top = 20 Width = 353 Height = 21 Hint = 'Fill in this field and click the Anchor button to create a hyper' + 'text link to another resource' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False Sorted = True TabOrder = 0 end object bbtnURL: TBitBtn Left = 436 Top = 16 Width = 77 Height = 27 Hint = 'Open the URL builder' Caption = '&URL' TabOrder = 13 OnClick = bbtnURLClick Glyph.Data = { 42010000424D4201000000000000760000002800000012000000110000000100 040000000000CC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777070000007777777777777770000000000000000000007700070000000FFF FFFFFFF07000770000000FFFFFFF00008007770000000FFFFFF0877808777700 00000FFFFF0877E88077770000000FFFFF0777787077770000000FFFFF07E778 7077770000000FFFFF08EE788077770000000FFFFFF087780777770000000FFF FFFF00007777770000000FFFFFFFFFF07777770000000FFFFFFF000077777700 00000FFFFFFF07077777770000000FFFFFFF0077777777000000000000000777 777777000000} end object cmbRel: TComboBox Left = 76 Top = 162 Width = 145 Height = 21 Hint = 'Relationship to the current page' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'Approves' 'Banner' 'Bookmark' 'Contents' 'Copyright' 'Embed' 'Glossary' 'Help' 'History' 'Home' 'Includes' 'Index' 'Interested' 'Made' 'Next' 'Owns' 'Parent' 'Precedes' 'Present' 'Previous' 'Refutes' 'Rel' 'Reply' 'Rev' 'Search' 'StyleSheet' 'Subdocument' 'Supercedes' 'Supports' 'ToC' 'Up' 'UseGlossary' 'UseIndex') ParentFont = False Sorted = True TabOrder = 5 end object txtName: TEdit Left = 76 Top = 78 Width = 353 Height = 21 Hint = 'Fill in this field and click the Anchor button if you are creati' + 'ng an Anchor that you want to be able to link to, or click the L' + 'ink button if you are putting a Link tag in the section o' + 'f your document' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 end object txtTitle: TEdit Left = 76 Top = 106 Width = 353 Height = 21 Hint = 'Fill in this field for Anchor tags that jump to non-HTML resourc' + 'es (i.e., resources that have no Title element if their own)' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object cmbRev: TComboBox Left = 284 Top = 162 Width = 145 Height = 21 Hint = 'Reverse of the relationship' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'Approves' 'Banner' 'Bookmark' 'Contents' 'Copyright' 'Embed' 'Glossary' 'Help' 'History' 'Home' 'Includes' 'Index' 'Interested' 'Made' 'Next' 'Owns' 'Parent' 'Precedes' 'Present' 'Previous' 'Refutes' 'Rel' 'Reply' 'Rev' 'Search' 'StyleSheet' 'Subdocument' 'Supercedes' 'Supports' 'ToC' 'Up' 'UseGlossary' 'UseIndex') ParentFont = False Sorted = True TabOrder = 6 end object cmbShape: TComboBox Left = 284 Top = 190 Width = 145 Height = 21 Hint = 'Use only if the item between the begin and end Anchor tags is an' + ' inline figure. This attribute defines shaped hotzones.' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'circle x, y, r' 'default' 'polygon x1, y1, x2, y2, ...' 'rect x, y, w, h') ParentFont = False Sorted = True TabOrder = 8 end object cmbUrn: TComboBox Left = 76 Top = 190 Width = 145 Height = 21 Hint = 'Universal Resource Name for the document' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'Urn') ParentFont = False Sorted = True TabOrder = 7 end object bbtnLink: TBitBtn Left = 276 Top = 229 Width = 77 Height = 25 Hint = 'Use Link ONLY in the section of the document' Caption = 'Lin&k' ModalResult = 6 TabOrder = 10 Glyph.Data = { 5A010000424D5A01000000000000760000002800000017000000130000000100 040000000000E400000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777777F77777777777777777777777F77777777777777777777777F7777 7777777777777777777F77000007000000070000077F77BBBBB00BBBBBB00BBB B77F770000BBB00000BBB000077F77777000B0777000B077777F77770B070B07 0B070B07777F77770B070B070B070B07777F77770B070B070B070B07777F7777 70B0007770B00077777F770000BBB00000BBB000077F77BBBB00BBBBBB00BBBB B77F77000007000000070000077F77777777777777777777777F777777777777 77777777777F77777777777777777777777F77777777777777777777777F} Margin = 2 Spacing = -1 IsControl = True end object txtMD: TEdit Left = 76 Top = 134 Width = 353 Height = 21 Hint = 'Checksum value for the linked resource designated by the HREF at' + 'tribute' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 4 end object cmbTarget: TComboBox Left = 76 Top = 49 Width = 353 Height = 21 Hint = 'Browser window to open when this link is selected' ItemHeight = 13 TabOrder = 1 end end