From ef6a23b55a4cd25ca86a075b9667b8c967124475 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 10 Apr 2009 11:56:11 +0000
Subject: [PATCH] synedit: highlight "alias"

git-svn-id: trunk@19300 -
---
 components/synedit/synhighlighterpas.pp | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/components/synedit/synhighlighterpas.pp b/components/synedit/synhighlighterpas.pp
index 5878d7e778..fc66d68f08 100644
--- a/components/synedit/synhighlighterpas.pp
+++ b/components/synedit/synhighlighterpas.pp
@@ -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