138 lines
2.3 KiB
Plaintext
138 lines
2.3 KiB
Plaintext
object fmMain: TfmMain
|
|
Left = 516
|
|
Height = 320
|
|
Top = 250
|
|
Width = 667
|
|
BorderStyle = bsDialog
|
|
Caption = 'Test Finder.FindMatch'
|
|
ClientHeight = 320
|
|
ClientWidth = 667
|
|
OnCreate = FormCreate
|
|
Position = poScreenCenter
|
|
LCLVersion = '1.5'
|
|
object Memo1: TMemo
|
|
Left = 8
|
|
Height = 48
|
|
Top = 24
|
|
Width = 407
|
|
Lines.Strings = (
|
|
'register'
|
|
)
|
|
TabOrder = 0
|
|
end
|
|
object Memo2: TMemo
|
|
Left = 8
|
|
Height = 216
|
|
Top = 96
|
|
Width = 407
|
|
Lines.Strings = (
|
|
'unit shapeline_reg;'
|
|
''
|
|
'interface'
|
|
''
|
|
'uses'
|
|
' SysUtils, Classes, Controls, LResources, shapeline;'
|
|
''
|
|
'procedure Register;'
|
|
''
|
|
'implementation'
|
|
''
|
|
'procedure Register;'
|
|
'begin'
|
|
' RegisterComponents(''Misc'', [TShapeLine]);'
|
|
'end;'
|
|
''
|
|
'initialization'
|
|
' {$I res/icons.lrs}'
|
|
''
|
|
'end.'
|
|
)
|
|
TabOrder = 1
|
|
end
|
|
object bFindNext: TButton
|
|
Left = 431
|
|
Height = 25
|
|
Top = 62
|
|
Width = 120
|
|
Caption = 'find next'
|
|
OnClick = bFindNextClick
|
|
TabOrder = 3
|
|
end
|
|
object bFind: TButton
|
|
Left = 431
|
|
Height = 25
|
|
Top = 30
|
|
Width = 120
|
|
Caption = 'find first'
|
|
OnClick = bFindClick
|
|
TabOrder = 2
|
|
end
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Height = 17
|
|
Top = 7
|
|
Width = 62
|
|
Caption = 'find what'
|
|
ParentColor = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 8
|
|
Height = 17
|
|
Top = 80
|
|
Width = 70
|
|
Caption = 'find where'
|
|
ParentColor = False
|
|
end
|
|
object Memo3: TMemo
|
|
Left = 424
|
|
Height = 58
|
|
Top = 254
|
|
Width = 230
|
|
Lines.Strings = (
|
|
''
|
|
)
|
|
ReadOnly = True
|
|
TabOrder = 8
|
|
end
|
|
object chkBack: TCheckBox
|
|
Left = 431
|
|
Height = 24
|
|
Top = 174
|
|
Width = 92
|
|
Caption = 'backward'
|
|
TabOrder = 7
|
|
end
|
|
object chkCase: TCheckBox
|
|
Left = 431
|
|
Height = 24
|
|
Top = 126
|
|
Width = 89
|
|
Caption = 'case sens'
|
|
TabOrder = 5
|
|
end
|
|
object chkWords: TCheckBox
|
|
Left = 431
|
|
Height = 24
|
|
Top = 150
|
|
Width = 111
|
|
Caption = 'whole words'
|
|
TabOrder = 6
|
|
end
|
|
object Label3: TLabel
|
|
Left = 424
|
|
Height = 17
|
|
Top = 230
|
|
Width = 39
|
|
Caption = 'result'
|
|
ParentColor = False
|
|
end
|
|
object chkRegex: TCheckBox
|
|
Left = 431
|
|
Height = 24
|
|
Top = 102
|
|
Width = 64
|
|
Caption = 'regex'
|
|
TabOrder = 4
|
|
end
|
|
end
|