object fmRegex: TfmRegex Left = 191 Top = 219 ActiveControl = coRegex BorderIcons = [biSystemMenu] BorderStyle = bsToolWindow Caption = 'Test Regex' ClientHeight = 354 ClientWidth = 522 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clBtnText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 120 TextHeight = 16 object Label1: TLabel Left = 42 Top = 23 Width = 42 Height = 16 Caption = '&Pattern' FocusControl = coRegex end object Label2: TLabel Left = 22 Top = 63 Width = 62 Height = 16 Caption = '&Test string' FocusControl = coStr end object Label3: TLabel Left = 46 Top = 100 Width = 38 Height = 16 Caption = 'Result' end object Label4: TLabel Left = 11 Top = 145 Width = 73 Height = 80 Alignment = taRightJustify Caption = 'Matched'#13#10'string'#13#10'and'#13#10'sub-'#13#10'expressions' end object coRegex: TMyComboBox Left = 104 Top = 18 Width = 402 Height = 24 Hint = 'Enter filter regex' Ctl3D = False DropDownCount = 10 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 ParentCtl3D = False ParentFont = False TabOrder = 0 RegKey = 'Software\Xnews\coRegexPattern' end object coStr: TMyComboBox Left = 104 Top = 58 Width = 402 Height = 24 Hint = 'Enter filter regex' Ctl3D = False DropDownCount = 10 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ItemHeight = 16 ParentCtl3D = False ParentFont = False TabOrder = 1 RegKey = 'Software\Xnews\coRegexString' end object bMatch: TButton Left = 428 Top = 97 Width = 75 Height = 25 Caption = '&Match' Default = True TabOrder = 3 OnClick = bMatchClick end object Button2: TButton Left = 428 Top = 312 Width = 75 Height = 25 Cancel = True Caption = '&Close' ModalResult = 1 TabOrder = 6 OnClick = Button2Click end object edResult: TEdit Left = 104 Top = 97 Width = 303 Height = 24 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 2 end object cbCase: TCheckBox Left = 428 Top = 144 Width = 89 Height = 17 Caption = 'Match case' TabOrder = 5 end object Memo: TMemo Left = 104 Top = 145 Width = 303 Height = 192 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True ScrollBars = ssBoth TabOrder = 4 WordWrap = False end end