paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 20:36:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: highlight "alias"

Browse Source 
git-svn-id: trunk@19300 -
This commit is contained in:
paul 2009-04-10 11:56:11 +00:00
parent 8533ca407f
commit ef6a23b55a
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synhighlighterpas.pp
View File

@ -270,6 +270,7 @@ type
function Func39: TtkTokenKind;
function Func40: TtkTokenKind;
function Func41: TtkTokenKind;
function Func42: TtkTokenKind; // "alias"
function Func44: TtkTokenKind;
function Func45: TtkTokenKind;
function Func47: TtkTokenKind;
@ -592,6 +593,7 @@ begin
fIdentFuncTable[39] := @Func39;
fIdentFuncTable[40] := @Func40;
fIdentFuncTable[41] := @Func41;
fIdentFuncTable[42] := @Func42;
fIdentFuncTable[44] := @Func44;
fIdentFuncTable[45] := @Func45;
fIdentFuncTable[47] := @Func47;
@ -1022,6 +1024,14 @@ begin
else Result := tkIdentifier;
end;
function TSynPasSyn.Func42: TtkTokenKind;
begin
if KeyComp('Alias') then
Result := tkKey
else
Result := tkIdentifier;
end;
function TSynPasSyn.Func44: TtkTokenKind;
begin
if KeyComp('Set') then