object frmAlias: TfrmAlias Left = 312 Top = 206 HelpContext = 177 BorderStyle = bsDialog Caption = 'Alias' ClientHeight = 189 ClientWidth = 383 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate OnDeactivate = FormDeactivate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object bvlInsert: TBevel Left = 4 Top = 4 Width = 375 Height = 151 Shape = bsFrame IsControl = True end object lblClassID: TLabel Left = 10 Top = 127 Width = 39 Height = 13 Caption = 'C&lass ID' FocusControl = txtClassID end object lblCode: TLabel Left = 10 Top = 42 Width = 25 Height = 13 Caption = '&Code' FocusControl = cmbCode end object lblData: TLabel Left = 10 Top = 70 Width = 23 Height = 13 Caption = '&Data' FocusControl = cmbData end object lblType: TLabel Left = 10 Top = 98 Width = 24 Height = 13 Caption = '&Type' FocusControl = txtType end object lblID: TLabel Left = 10 Top = 16 Width = 11 Height = 13 Caption = '&ID' FocusControl = txtID end object txtClassID: TEdit Left = 64 Top = 125 Width = 225 Height = 21 Hint = 'The class identifier of the object' ParentShowHint = False ShowHint = True TabOrder = 6 end object cmbCode: TComboBox Left = 64 Top = 40 Width = 225 Height = 21 Hint = 'A URL referencing where to find the code which implements the ob' + 'ject'#39's behaviour' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False ParentShowHint = False ShowHint = True Sorted = True TabOrder = 1 end object cmbData: TComboBox Left = 64 Top = 68 Width = 225 Height = 21 Hint = 'A URL referencing the object'#39's data' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False ParentShowHint = False ShowHint = True Sorted = True TabOrder = 3 end object bbtnDataURL: TBitBtn Left = 293 Top = 64 Width = 77 Height = 27 Hint = 'Open the URL Builder' Caption = 'URL' ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = bbtnDataURLClick Glyph.Data = { 42010000424D4201000000000000760000002800000012000000110000000100 040000000000CC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777070000007777777777777770000000000000000000007700070000000FFF FFFFFFF07000770000000FFFFFFF00008007770000000FFFFFF0877808777700 00000FFFFF0877E88077770000000FFFFF0777787077770000000FFFFF07E778 7077770000000FFFFF08EE788077770000000FFFFFF087780777770000000FFF FFFF00007777770000000FFFFFFFFFF07777770000000FFFFFFF000077777700 00000FFFFFFF07077777770000000FFFFFFF0077777777000000000000000777 777777000000} end object bbtnCodeURL: TBitBtn Left = 293 Top = 36 Width = 77 Height = 27 Hint = 'Open the URL Builder' Caption = 'URL' ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = bbtnCodeURLClick Glyph.Data = { 42010000424D4201000000000000760000002800000012000000110000000100 040000000000CC00000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777070000007777777777777770000000000000000000007700070000000FFF FFFFFFF07000770000000FFFFFFF00008007770000000FFFFFF0877808777700 00000FFFFF0877E88077770000000FFFFF0777787077770000000FFFFF07E778 7077770000000FFFFF08EE788077770000000FFFFFF087780777770000000FFF FFFF00007777770000000FFFFFFFFFF07777770000000FFFFFFF000077777700 00000FFFFFFF07077777770000000FFFFFFF0077777777000000000000000777 777777000000} end object Ok: TBitBtn Left = 133 Top = 160 Width = 77 Height = 25 Hint = 'Insert standard tag' Caption = 'Ok' Default = True ModalResult = 1 TabOrder = 7 NumGlyphs = 2 Spacing = -1 IsControl = True end object Cancel: TBitBtn Left = 217 Top = 160 Width = 77 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 8 NumGlyphs = 2 Spacing = -1 IsControl = True end object Help: TBitBtn Left = 301 Top = 160 Width = 77 Height = 25 HelpContext = 1 Caption = 'Help' TabOrder = 9 OnClick = HelpClick NumGlyphs = 2 Spacing = -1 IsControl = True end object txtType: TEdit Left = 64 Top = 96 Width = 225 Height = 21 Hint = 'The Internet Media Type of the object'#39's data' ParentShowHint = False ShowHint = True TabOrder = 5 end object txtID: TEdit Left = 64 Top = 12 Width = 225 Height = 21 Hint = 'A document-wide identifier' ParentShowHint = False ShowHint = True TabOrder = 0 end end