[Synedit-checkins] SynEdit/Demos/CompletionProposalDemo FormMain_ctParams.pas, 1.4.2.1, 1.4.2.2

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

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

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

Index: FormMain_ctParams.pas
===================================================================
RCS file: /cvsroot/synedit/SynEdit/Demos/CompletionProposalDemo/FormMain_ctParams.pas,v
retrieving revision 1.4.2.1
retrieving revision 1.4.2.2
diff -u -d -r1.4.2.1 -r1.4.2.2
--- FormMain_ctParams.pas	10 Nov 2004 21:23:40 -0000	1.4.2.1
+++ FormMain_ctParams.pas	14 Sep 2008 16:24:56 -0000	1.4.2.2
@@ -14,7 +14,7 @@
     scpParams: TSynCompletionProposal;
     FontDialog1: TFontDialog;
     procedure scpParamsExecute(Kind: SynCompletionType; Sender: TObject;
-      var AString: WideString; var x, y: Integer; var CanExecute: Boolean);
+      var AString: UnicodeString; var x, y: Integer; var CanExecute: Boolean);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -36,8 +36,8 @@
 {$R *.DFM}
 
 procedure TForm1.scpParamsExecute(Kind: SynCompletionType; Sender: TObject;
-  var AString: WideString; var x, y: Integer; var CanExecute: Boolean);
-var locline, lookup: WideString;
+  var AString: UnicodeString; var x, y: Integer; var CanExecute: Boolean);
+var locline, lookup: UnicodeString;
     TmpX, savepos, StartX,
     ParenCounter,
     TmpLocation    : Integer;