[lazarus] IDE Coding

[Peter Dyson]

>
> One bug I have found is that it doesn't highlight my code.  Not sure why
yet.
>
> Shane
>
The fix is in the new version going in but here is the code thats stops it
from working

function TmwPasSyn.IdentKind(MayBe: PChar): TtkTokenKind;
var
  HashKey: Integer;
  {$IFDEF MWE_FPC}
  pF: TIdentFuncTableFunc;
  {$ENDIF}
begin
  fToIdent := MayBe;
  HashKey := KeyHash(MayBe);
  {$IFDEF MWE_FPC}
  if HashKey < 192 then
     begin
     pF := fIdentFuncTable[HashKey];
     Result := TtkTokenKind(pF);
     end
   else
     Result := tkIdentifier;
  {$ELSE}
  if HashKey < 192 then Result := fIdentFuncTable[HashKey] else Result :=
tkIdentifier;
  {$ENDIF}
end;

This was what was stopping the original code, but I have delphi and H+ in
the new stuff, so IO don't know if this works in older version.

Peter