[Synedit-checkins] SynEdit/Demos/SearchReplaceDemo frmMain.pas, 1.5.2.1, 1.5.2.2

[Maël Hörz <ma...@us...>]

Update of /cvsroot/synedit/SynEdit/Demos/SearchReplaceDemo
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv19785/Demos/SearchReplaceDemo

Modified Files:
      Tag: Unicode_2004_08_31
	frmMain.pas 
Log Message:
Changes for compatibility with Delphi 2009

Index: frmMain.pas
===================================================================
RCS file: /cvsroot/synedit/SynEdit/Demos/SearchReplaceDemo/frmMain.pas,v
retrieving revision 1.5.2.1
retrieving revision 1.5.2.2
diff -u -d -r1.5.2.1 -r1.5.2.2
--- frmMain.pas	10 Nov 2004 21:45:49 -0000	1.5.2.1
+++ frmMain.pas	14 Sep 2008 16:24:57 -0000	1.5.2.2
@@ -74,7 +74,7 @@
     procedure actSearchReplaceExecute(Sender: TObject);
     procedure actSearchUpdate(Sender: TObject);
     procedure SynEditorReplaceText(Sender: TObject; const ASearch,
-      AReplace: WideString; Line, Column: Integer;
+      AReplace: UnicodeString; Line, Column: Integer;
       var Action: TSynReplaceAction);
     procedure actSearchReplaceUpdate(Sender: TObject);
   private
@@ -249,7 +249,7 @@
 end;
 
 procedure TSearchReplaceDemoForm.SynEditorReplaceText(Sender: TObject;
-  const ASearch, AReplace: WideString; Line, Column: Integer;
+  const ASearch, AReplace: UnicodeString; Line, Column: Integer;
   var Action: TSynReplaceAction);
 var
   APos: TPoint;