richmemo: clear up search test

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

View File

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

View File

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

View File

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