object frmInput: TfrmInput Left = 430 Top = 185 HelpContext = 75 ActiveControl = txtName BorderStyle = bsDialog Caption = 'Input' ClientHeight = 230 ClientWidth = 369 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter ShowHint = True OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 353 Height = 185 Shape = bsFrame IsControl = True end object lblType: TLabel Left = 15 Top = 56 Width = 24 Height = 13 Caption = '&Type' FocusControl = cmbType Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblName: TLabel Left = 15 Top = 28 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 lblValue: TLabel Left = 15 Top = 84 Width = 27 Height = 13 Caption = '&Value' FocusControl = cmbValue Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblWidth: TLabel Left = 15 Top = 164 Width = 28 Height = 13 Caption = '&Width' Enabled = False FocusControl = txtWidth Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblHeight: TLabel Left = 136 Top = 164 Width = 31 Height = 13 Alignment = taRightJustify Caption = '&Height' Enabled = False FocusControl = txtHeight Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lblMaxLength: TLabel Left = 224 Top = 164 Width = 61 Height = 13 Alignment = taRightJustify Caption = '&MaxLength' Enabled = False FocusControl = txtMaxLength Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object lblAccept: TLabel Left = 15 Top = 111 Width = 34 Height = 13 Caption = '&Accept' FocusControl = txtAccept Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object OKBtn: TBitBtn Left = 115 Top = 200 Width = 77 Height = 25 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 7 NumGlyphs = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 199 Top = 200 Width = 77 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 8 NumGlyphs = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 283 Top = 200 Width = 77 Height = 25 Caption = '&Help' TabOrder = 9 OnClick = HelpBtnClick NumGlyphs = 2 Spacing = -1 IsControl = True end object cmbType: TComboBox Left = 72 Top = 52 Width = 281 Height = 21 Hint = 'Type of the input field' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'audio' 'checkbox' 'date' 'file' 'float' 'hidden' 'image' 'int' 'password' 'radio' 'range' 'reset' 'scribble' 'submit' 'text' 'url') ParentFont = False TabOrder = 1 OnChange = cmbTypeChange end object txtName: TEdit Left = 72 Top = 24 Width = 281 Height = 21 Hint = 'Name of the input field' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object cmbValue: TComboBox Left = 72 Top = 80 Width = 281 Height = 21 Hint = 'Default value of the input field' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 Items.Strings = ( 'on' 'off') ParentFont = False TabOrder = 2 end object chkChecked: TCheckBox Left = 72 Top = 136 Width = 121 Height = 17 Hint = 'Is the button checked?' Caption = '&Checked' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 end object txtWidth: TMaskEdit Left = 72 Top = 160 Width = 45 Height = 21 Hint = 'Width of input field' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 0 ParentFont = False TabOrder = 4 OnKeyPress = NumericKeyPress end object txtHeight: TMaskEdit Left = 176 Top = 160 Width = 45 Height = 21 Hint = 'Height of input field' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 0 ParentFont = False TabOrder = 5 OnKeyPress = NumericKeyPress end object txtMaxLength: TMaskEdit Left = 288 Top = 160 Width = 65 Height = 21 Hint = 'Maximum length of input text' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 0 ParentFont = False TabOrder = 6 OnKeyPress = NumericKeyPress end object chkDisabled: TCheckBox Left = 208 Top = 136 Width = 121 Height = 17 Hint = 'Is the button disabled?' Caption = '&Disabled' Enabled = False Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 10 end object txtAccept: TEdit Left = 72 Top = 107 Width = 281 Height = 21 Hint = 'Media types or type patterns allowed for the file input' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 11 end end