paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 19:53:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

added generic and specialize as keywords to pascal syntax highlighter

Browse Source 
git-svn-id: trunk@8365 -
This commit is contained in:
mattias 2005-12-25 16:27:42 +00:00
parent e5db29b212
commit 0cc6b96b75
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/synedit/synhighlighterpas.pp
View File

@ -508,7 +508,7 @@ begin
end else begin
fStringLen := 0;
end;
//if CompareText(copy(fLine,fToIdent,fStringLen),'deprecated')=0 then writeln('TSynPasSyn.KeyHash ',Result);
//if CompareText(copy(fLine,fToIdent,fStringLen),'specialize')=0 then writeln('TSynPasSyn.KeyHash ',copy(fLine,fToIdent,fStringLen),'=',Result);
end; { KeyHash }
{$ELSE}
function TSynPasSyn.KeyHash(ToHash: PChar): Integer;
@ -741,7 +741,10 @@ end;
function TSynPasSyn.Func61: TtkTokenKind;
begin
if KeyComp('Dispid') then Result := tkKey else Result := tkIdentifier;
if KeyComp('Dispid') {$IFDEF SYN_LAZARUS}or KeyComp('Generic'){$ENDIF}then
Result := tkKey
else
Result := tkIdentifier;
end;
function TSynPasSyn.Func63: TtkTokenKind;
@ -913,7 +916,11 @@ end;
function TSynPasSyn.Func105: TtkTokenKind;
begin
if KeyComp('Procedure') then Result := tkKey else Result := tkIdentifier;
if KeyComp('Procedure') {$IFDEF SYN_LAZARUS}or KeyComp('specialize'){$ENDIF}
then
Result := tkKey
else
Result := tkIdentifier;
end;
function TSynPasSyn.Func106: TtkTokenKind;