From a37cb98b8ccc1990872d5af3fcf5bd6a4421a2a1 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 25 Nov 2014 05:35:05 +0000
Subject: [PATCH] richmemo: clear up search test

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3778 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../richmemo/samples/search/mainform.lfm      | 26 ++++++++++++-------
 .../richmemo/samples/search/mainform.pas      |  1 -
 .../richmemo/samples/search/testsearch.lpi    | 13 +++++++---
 3 files changed, 26 insertions(+), 14 deletions(-)

diff --git a/components/richmemo/samples/search/mainform.lfm b/components/richmemo/samples/search/mainform.lfm
index 5f855ee88..47a6f7531 100644
--- a/components/richmemo/samples/search/mainform.lfm
+++ b/components/richmemo/samples/search/mainform.lfm
@@ -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
diff --git a/components/richmemo/samples/search/mainform.pas b/components/richmemo/samples/search/mainform.pas
index b2c43ded9..84fb0b5d9 100644
--- a/components/richmemo/samples/search/mainform.pas
+++ b/components/richmemo/samples/search/mainform.pas
@@ -49,7 +49,6 @@ end;
 procedure TForm1.Button2Click(Sender: TObject);
 var
   s : Integer;
-  w: AnsiString;
   l : Integer;
   st: Integer;
   opt: TSearchOptions;
diff --git a/components/richmemo/samples/search/testsearch.lpi b/components/richmemo/samples/search/testsearch.lpi
index 3d7fbc953..4d17f9513 100644
--- a/components/richmemo/samples/search/testsearch.lpi
+++ b/components/richmemo/samples/search/testsearch.lpi
@@ -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>
\ No newline at end of file
+</CONFIG>