richmemo: search sample

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3776 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-25 04:38:51 +00:00
parent d17987e01b
commit a751d502b7
4 changed files with 287 additions and 0 deletions

View File

@ -0,0 +1,89 @@
object Form1: TForm1
Left = 362
Height = 338
Top = 203
Width = 615
Caption = 'Ready to Search!'
ClientHeight = 338
ClientWidth = 615
LCLVersion = '1.2.4.0'
object Button1: TButton
Left = 532
Height = 25
Top = 16
Width = 75
Anchors = [akTop, akRight]
Caption = 'Load RTF'
OnClick = Button1Click
TabOrder = 3
end
object Button2: TButton
Left = 440
Height = 25
Top = 16
Width = 75
Anchors = [akTop, akRight]
Caption = 'Search'
OnClick = Button2Click
TabOrder = 1
end
object Edit1: TEdit
Left = 8
Height = 23
Top = 18
Width = 424
Anchors = [akTop, akLeft, akRight]
TabOrder = 0
Text = 'search'
end
object RichMemo1: TRichMemo
Left = 8
Height = 240
Top = 88
Width = 599
Anchors = [akTop, akLeft, akRight, akBottom]
HideSelection = False
Lines.Strings = (
'Please type in a word in the search field and hit "Search" to perform Search'
)
ScrollBars = ssAutoBoth
TabOrder = 2
end
object chkCaseSensitive: TCheckBox
Left = 9
Height = 19
Top = 48
Width = 94
Caption = 'Case Sensitive'
TabOrder = 4
end
object chkWholeWord: TCheckBox
Left = 108
Height = 19
Top = 48
Width = 86
Caption = 'Whole Word'
TabOrder = 5
end
object chkBackward: TCheckBox
Left = 200
Height = 19
Top = 48
Width = 71
Caption = 'Backward'
TabOrder = 6
end
object Button3: TButton
Left = 440
Height = 25
Top = 45
Width = 75
Caption = 'Reset'
OnClick = Button3Click
TabOrder = 7
end
object OpenDialog1: TOpenDialog
left = 368
top = 48
end
end