object FrmForm: TFrmForm Left = 229 Top = 242 BorderStyle = bsDialog Caption = 'Form' ClientHeight = 109 ClientWidth = 393 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 TextHeight = 16 object lblAction: TLabel Left = 8 Top = 8 Width = 30 Height = 13 Caption = '&Action' FocusControl = EditAction Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblMethod: TLabel Left = 200 Top = 40 Width = 36 Height = 13 Caption = '&Method' FocusControl = cbMethod Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object btnOK: TButton Left = 200 Top = 72 Width = 89 Height = 25 Caption = 'OK' Default = True Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 1 ParentFont = False TabOrder = 4 end object btnCancel: TButton Left = 296 Top = 72 Width = 89 Height = 25 Caption = 'Cancel' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 5 end object BitBtn1: TBitBtn Left = 296 Top = 8 Width = 89 Height = 21 Hint = 'URL Assistant' Caption = '&URL' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = BitBtn1Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770000000 000077777FFFFFFFFFFF7774408777777770777788888888888F7744448BFFFB FF707788F78F7FFFFF8F7440008FCCCCCB7078F7778F8888878F6C66368BFFFB FF7078F7778F7FFFFF8F6668028FCCCCCB708F77778F8888878F6666388BFFFB FF708F77778F7FFFFF8F6866888FCCCCCB708F77778F8888878F6766888BFFFB FF708F77778F77FF7F8F8E7E788FFCCF00008F77778F7887888F8777788BFFFB 7F878F77778F77778F877877778FFBFF787778F7778FFFFF887778F777888888 807778F7778888888877777FF77778380777778FF777777F877777777777E788 777777788FFFFF88777777777888887777777777788888777777} NumGlyphs = 2 end object EditAction: TEdit Left = 48 Top = 8 Width = 241 Height = 21 Hint = 'URL of CGI spript that shall process the forms'#39' contents' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 end object cbMethod: TComboBox Left = 248 Top = 40 Width = 137 Height = 21 Hint = 'GET submits query; POST sends data block' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'GET' 'POST') ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 3 end object gbJavaScript: TGroupBox Left = 7 Top = 38 Width = 138 Height = 65 Caption = ' &JavaScript ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 object lblOnSubmit: TLabel Left = 8 Top = 17 Width = 46 Height = 13 Caption = '&OnSubmit' FocusControl = EditOnSubmit end object EditOnSubmit: TEdit Left = 8 Top = 33 Width = 121 Height = 21 Hint = 'enter the method that shall be called when the OnSubmit event is' + ' triggered' TabOrder = 0 end end end