pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: clear up search test

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3778 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2014-11-25 05:35:05 +00:00
parent cb19d71afb
commit a37cb98b8c
3 changed files with 26 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
components/richmemo/samples/search/mainform.lfm
View File

@ -6,7 +6,7 @@ object Form1: TForm1
Caption = 'Ready to Search!' Caption = 'Ready to Search!'
ClientHeight = 338 ClientHeight = 338
ClientWidth = 615 ClientWidth = 615
LCLVersion = '1.2.4.0' LCLVersion = '1.0.10.0'
object Button1: TButton object Button1: TButton
Left = 532 Left = 532
Height = 25 Height = 25
@ -29,7 +29,7 @@ object Form1: TForm1
end end
object Edit1: TEdit object Edit1: TEdit
Left = 8 Left = 8
Height = 23 Height = 27
Top = 18 Top = 18
Width = 424 Width = 424
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -51,25 +51,31 @@ object Form1: TForm1
end end
object chkCaseSensitive: TCheckBox object chkCaseSensitive: TCheckBox
Left = 9 Left = 9
Height = 19 Height = 24
Top = 48 Top = 48
Width = 94 Width = 121
Caption = 'Case Sensitive' Caption = 'Case Sensitive'
TabOrder = 4 TabOrder = 4
end end
object chkWholeWord: TCheckBox object chkWholeWord: TCheckBox
Left = 108 AnchorSideLeft.Control = chkCaseSensitive
Height = 19 AnchorSideLeft.Side = asrBottom
Left = 135
Height = 24
Top = 48 Top = 48
Width = 86 Width = 110
BorderSpacing.Left = 5
Caption = 'Whole Word' Caption = 'Whole Word'
TabOrder = 5 TabOrder = 5
end end
object chkBackward: TCheckBox object chkBackward: TCheckBox
Left = 200 AnchorSideLeft.Control = chkWholeWord
Height = 19 AnchorSideLeft.Side = asrBottom
Left = 250
Height = 24
Top = 48 Top = 48
Width = 71 Width = 92
BorderSpacing.Left = 5
Caption = 'Backward' Caption = 'Backward'
TabOrder = 6 TabOrder = 6
end end

1
components/richmemo/samples/search/mainform.pas
View File

@ -49,7 +49,6 @@ end;
procedure TForm1.Button2Click(Sender: TObject); procedure TForm1.Button2Click(Sender: TObject);
var var
s : Integer; s : Integer;
w: AnsiString;
l : Integer; l : Integer;
st: Integer; st: Integer;
opt: TSearchOptions; opt: TSearchOptions;

13
components/richmemo/samples/search/testsearch.lpi
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="9"/>
@ -9,7 +9,6 @@
<Title Value="testsearch"/> <Title Value="testsearch"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<Icon Value="0"/>
</General> </General>
<i18n> <i18n>
<EnableI18N LFM="False"/> <EnableI18N LFM="False"/>
@ -26,6 +25,7 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
@ -62,6 +62,13 @@
<IncludeFiles Value="$(ProjOutDir)"/> <IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other> <Other>
<CompilerMessages> <CompilerMessages>
<MsgFileName Value=""/> <MsgFileName Value=""/>
@ -82,4 +89,4 @@
</Item3> </Item3>
</Exceptions> </Exceptions>
</Debugging> </Debugging>
</CONFIG> </CONFIG>