From: Maël Hörz <ma...@us...> - 2008-09-14 16:27:31
|
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; |