[Synedit-checkins] SynEdit/Demos/D4Demo EditU2.pas, 1.11.2.2, 1.11.2.3

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

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

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

Index: EditU2.pas
===================================================================
RCS file: /cvsroot/synedit/SynEdit/Demos/D4Demo/EditU2.pas,v
retrieving revision 1.11.2.2
retrieving revision 1.11.2.3
diff -u -d -r1.11.2.2 -r1.11.2.3
--- EditU2.pas	19 Mar 2005 13:32:12 -0000	1.11.2.2
+++ EditU2.pas	14 Sep 2008 16:24:56 -0000	1.11.2.3
@@ -322,7 +322,7 @@
     procedure SynEditorDragOver(Sender, Source: TObject; X, Y: Integer;
       State: TDragState; var Accept: Boolean);
     procedure SynEditorDropFiles(Sender: TObject; X, Y: Integer;
-      AFiles: TWideStrings);
+      AFiles: TUnicodeStrings);
     procedure SynEditorEnter(Sender: TObject);
     procedure SynEditorExit(Sender: TObject);
     procedure SynEditorKeyDown(Sender: TObject; var Key: Word;
@@ -345,7 +345,7 @@
     procedure SynEditorProcessUserCommand(Sender: TObject;
       var Command: TSynEditorCommand; var AChar: WideChar; Data: Pointer);
     procedure SynEditorReplaceText(Sender: TObject; const ASearch,
-      AReplace: WideString; Line, Column: Integer;
+      AReplace: UnicodeString; Line, Column: Integer;
       var Action: TSynReplaceAction);
     procedure SynEditorStartDrag(Sender: TObject;
       var DragObject: TDragObject);
@@ -378,7 +378,7 @@
     procedure DoReplaceText(Sender: TObject);
     procedure btnExportToFileClick(Sender: TObject);
     procedure btnExportToClipboardClick(Sender: TObject);
-    procedure SynEditorContextHelp(Sender: TObject; word: WideString);
+    procedure SynEditorContextHelp(Sender: TObject; word: UnicodeString);
     procedure cbShrinkListClick(Sender: TObject);
     procedure cbCompletionAttrChange(Sender: TObject);
     procedure cbxCompletionColorChange(Sender: TObject);
@@ -1044,7 +1044,7 @@
 end;
 
 procedure TDemoMainForm.SynEditorDropFiles(Sender: TObject; X, Y: Integer;
-  AFiles: TWideStrings);
+  AFiles: TUnicodeStrings);
 begin
   if cbOther.Checked then
     LogEvent('OnDropFiles');
@@ -1142,7 +1142,7 @@
 end;
 
 procedure TDemoMainForm.SynEditorReplaceText(Sender: TObject;
-  const ASearch, AReplace: WideString; Line, Column: Integer;
+  const ASearch, AReplace: UnicodeString; Line, Column: Integer;
   var Action: TSynReplaceAction);
 begin
   if cbOther.Checked then
@@ -1163,7 +1163,7 @@
   InsertModeStrs: array[boolean] of string = ('Overwrite', 'Insert');
 var
   p: TBufferCoord;
-  Token: WideString;
+  Token: UnicodeString;
   Attri: TSynHighlighterAttributes;
 begin
   // Note: scAll for new file loaded
@@ -1616,7 +1616,7 @@
   end;
 end;
 
-procedure TDemoMainForm.SynEditorContextHelp(Sender: TObject; word: WideString);
+procedure TDemoMainForm.SynEditorContextHelp(Sender: TObject; word: UnicodeString);
 var
   hlpmsg : array[0..255] of char;
 begin