[Synedit-checkins] SynEdit/Demos/HighlighterDemo SynHighlighterSample.pas, 1.6.2.10, 1.6.2.11

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

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

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

Index: SynHighlighterSample.pas
===================================================================
RCS file: /cvsroot/synedit/SynEdit/Demos/HighlighterDemo/SynHighlighterSample.pas,v
retrieving revision 1.6.2.10
retrieving revision 1.6.2.11
diff -u -d -r1.6.2.10 -r1.6.2.11
--- SynHighlighterSample.pas	12 Dec 2006 07:22:29 -0000	1.6.2.10
+++ SynHighlighterSample.pas	14 Sep 2008 16:24:57 -0000	1.6.2.11
@@ -105,18 +105,18 @@
     procedure StringOpenProc;
     procedure StringProc;
   protected
-    function GetSampleSource: WideString; override;
+    function GetSampleSource: UnicodeString; override;
     function IsFilterStored: Boolean; override;
   public
     constructor Create(AOwner: TComponent); override;
-    class function GetFriendlyLanguageName: WideString; override;
+    class function GetFriendlyLanguageName: UnicodeString; override;
     class function GetLanguageName: string; override;
     function GetRange: Pointer; override;
     procedure ResetRange; override;
     procedure SetRange(Value: Pointer); override;
     function GetDefaultAttribute(Index: Integer): TSynHighlighterAttributes; override;
     function GetEol: Boolean; override;
-    function GetKeyWords(TokenKind: Integer): WideString; override;
+    function GetKeyWords(TokenKind: Integer): UnicodeString; override;
     function GetTokenID: TtkTokenKind;
     function GetTokenAttribute: TSynHighlighterAttributes; override;
     function GetTokenKind: Integer; override;
@@ -149,7 +149,7 @@
 
 const
   // as this language is case-insensitive keywords *must* be in lowercase
-  KeyWords: array[0..2] of WideString = (
+  KeyWords: array[0..2] of UnicodeString = (
     'hello', 'synedit', 'world' 
   );
 
@@ -433,7 +433,7 @@
   Result := Run = fLineLen + 1;
 end;
 
-function TSynSampleSyn.GetKeyWords(TokenKind: Integer): WideString;
+function TSynSampleSyn.GetKeyWords(TokenKind: Integer): UnicodeString;
 begin
   Result := 
     'Hello,SynEdit,World';
@@ -474,7 +474,7 @@
   end;
 end;
 
-function TSynSampleSyn.GetSampleSource: WideString;
+function TSynSampleSyn.GetSampleSource: UnicodeString;
 begin
   Result := 
     '{ Sample source for the demo highlighter }'#13#10 +
@@ -491,7 +491,7 @@
   Result := fDefaultFilter <> SYNS_FilterTest;
 end;
 
-class function TSynSampleSyn.GetFriendlyLanguageName: WideString;
+class function TSynSampleSyn.GetFriendlyLanguageName: UnicodeString;
 begin
   Result := SYNS_FriendlyLangTest;
 end;