object FormRuleItem: TFormRuleItem Left = 474 Height = 400 Top = 386 Width = 656 Caption = 'Rule item' ClientHeight = 400 ClientWidth = 656 OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow LCLVersion = '1.6.4.0' object ButtonCancel: TButton Left = 176 Height = 25 Top = 362 Width = 75 Anchors = [akLeft, akBottom] Caption = 'Cancel' ModalResult = 2 TabOrder = 0 end object ButtonOk: TButton Left = 352 Height = 25 Top = 362 Width = 75 Anchors = [akLeft, akBottom] Caption = 'Ok' ModalResult = 1 TabOrder = 1 end object ComboBoxType: TComboBox Left = 160 Height = 28 Top = 16 Width = 400 ItemHeight = 20 Items.Strings = ( 'Terminal' 'Non-terminal' 'Subitems' 'Terminal range' ) OnChange = ComboBoxTypeChange Style = csDropDownList TabOrder = 2 end object Label2: TLabel Left = 16 Height = 20 Top = 24 Width = 35 Caption = 'Type:' ParentColor = False end object PageControl1: TPageControl Left = 16 Height = 266 Top = 88 Width = 632 ActivePage = TabSheetTerminal Anchors = [akTop, akLeft, akRight, akBottom] ShowTabs = False TabIndex = 0 TabOrder = 3 object TabSheetTerminal: TTabSheet Caption = 'Terminal' ClientHeight = 258 ClientWidth = 624 object EditTerminal: TEdit Left = 152 Height = 28 Top = 16 Width = 400 OnKeyPress = EditTerminalKeyPress TabOrder = 0 end object LabelTerminal: TLabel Left = 8 Height = 20 Top = 16 Width = 61 Caption = 'Terminal:' ParentColor = False end end object TabSheetNonTerminal: TTabSheet Caption = 'NonTerminal' ClientHeight = 258 ClientWidth = 624 object LabelNonTerminal: TLabel Left = 8 Height = 20 Top = 16 Width = 92 Caption = 'Non-terminal:' ParentColor = False end object ListBox1: TListBox Left = 128 Height = 232 Top = 16 Width = 484 Anchors = [akTop, akLeft, akRight, akBottom] ItemHeight = 0 TabOrder = 0 end end object TabSheetSubItems: TTabSheet Caption = 'SubItems' end object TabSheetTerminalRange: TTabSheet Caption = 'TabSheetTerminalRange' ClientHeight = 258 ClientWidth = 624 object LabelTerminal1: TLabel Left = 8 Height = 20 Top = 16 Width = 97 Caption = 'Terminal from:' ParentColor = False end object EditTerminalFrom: TEdit Left = 152 Height = 28 Top = 16 Width = 400 OnKeyPress = EditTerminalKeyPress TabOrder = 0 end object LabelTerminal2: TLabel Left = 8 Height = 20 Top = 56 Width = 79 Caption = 'Terminal to:' ParentColor = False end object EditTerminalTo: TEdit Left = 152 Height = 28 Top = 56 Width = 400 OnKeyPress = EditTerminalKeyPress TabOrder = 1 end end end object CheckBoxOptional: TCheckBox Left = 16 Height = 24 Top = 56 Width = 82 Caption = 'Optional' TabOrder = 4 end object CheckBoxRepetitive: TCheckBox Left = 216 Height = 24 Top = 56 Width = 91 Caption = 'Repetitive' TabOrder = 5 end object CheckBoxAnyExcept: TCheckBox Left = 400 Height = 24 Top = 56 Width = 97 Caption = 'Any except' TabOrder = 6 end end