paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 22:17:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Updated synhighlightervb. Issue #0027928 Added "AndAlso" and "OrElse". Patch by Nyitrai Péter

Browse Source 
git-svn-id: trunk@63319 -
This commit is contained in:
martin 2020-06-06 18:26:38 +00:00
parent 3186086cda
commit ea3bae322e
1 changed files with 14 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
components/synedit/synhighlightervb.pas
View File

@ -1,4 +1,4 @@
//Converted by Nyitrai Péter
//Converted by Nyitrai Péter
{-------------------------------------------------------------------------------
The contents of this file are subject to the Mozilla Public License
Version 1.1 (the "License"); you may not use this file except in compliance
@ -12,7 +12,7 @@ the specific language governing rights and limitations under the License.
The Original Code is: SynHighlighterVB.pas, released 2000-04-20.
The Original Code is based on the wbADSP21xxSyn.pas file from the
mwEdit component suite by Martin Waldenburg and other developers, the Initial
Author of this file is Max Horvßth.
Author of this file is Max Horváth.
All Rights Reserved.
Contributors to the SynEdit and mwEdit projects are listed in the
@ -37,7 +37,7 @@ Known Issues:
-------------------------------------------------------------------------------}
{
@abstract(Provides a Visual Basic highlighter for SynEdit)
@author(Max Horvßth <TheProfessor@gmx.de>, converted to SynEdit by David Muir <david@loanhead45.freeserve.co.uk>)
@author(Max Horváth <TheProfessor@gmx.de>, converted to SynEdit by David Muir <david@loanhead45.freeserve.co.uk>)
@created(5 December 1999, converted to SynEdit April 21, 2000)
@lastmod(2000-06-23)
The SynHighlighterVB unit provides SynEdit with a Visual Basic (.bas) highlighter.
@ -488,7 +488,6 @@ begin
if KeyComp('name') then Result := tkKey else
if KeyComp('lof') then Result := tkKey else
if KeyComp('or') then Result := tkKey else
if KeyComp('cdate') then Result := tkKey else
if KeyComp('cdate') then Result := tkKey else Result := tkIdentifier;
end;
@ -616,7 +615,6 @@ begin
if KeyComp('ucase') then Result := tkKey else
if KeyComp('redim') then Result := tkKey else
if KeyComp('pmt') then Result := tkKey else
if KeyComp('not') then Result := tkKey else
if KeyComp('not') then Result := tkKey else Result := tkIdentifier;
end;
@ -727,9 +725,10 @@ end;
function TSynVBSyn.Func66: TtkTokenKind;
begin
if KeyComp('freefile') then Result := tkKey else
if KeyComp('single') then Result := tkKey else
if KeyComp('cverr') then Result := tkKey else Result := tkIdentifier;
if KeyComp('andalso') then Result := tkKey else
if KeyComp('freefile') then Result := tkKey else
if KeyComp('single') then Result := tkKey else
if KeyComp('cverr') then Result := tkKey else Result := tkIdentifier;
end;
function TSynVBSyn.Func67: TtkTokenKind;
@ -774,8 +773,9 @@ end;
function TSynVBSyn.Func74: TtkTokenKind;
begin
if KeyComp('weekday') then Result := tkKey else
if KeyComp('error') then Result := tkKey else Result := tkIdentifier;
if KeyComp('orelse') then Result := tkKey else
if KeyComp('weekday') then Result := tkKey else
if KeyComp('error') then Result := tkKey else Result := tkIdentifier;
end;
function TSynVBSyn.Func75: TtkTokenKind;
@ -847,9 +847,7 @@ end;
function TSynVBSyn.Func89: TtkTokenKind;
begin
if KeyComp('option') then Result := tkKey else
if KeyComp('option') then Result := tkKey else
if KeyComp('option') then Result := tkKey else Result := tkIdentifier;
if KeyComp('option') then Result := tkKey else Result := tkIdentifier;
end;
function TSynVBSyn.Func91: TtkTokenKind;
@ -858,9 +856,8 @@ begin
if KeyComp('datevalue') then Result := tkKey else
if KeyComp('fileattr') then Result := tkKey else
if KeyComp('isarray') then Result := tkKey else
if KeyComp('fileattr') then Result := tkKey else
if KeyComp('filecopy') then Result := tkKey else
if KeyComp('getattr') then Result := tkKey else Result := tkIdentifier;
if KeyComp('filecopy') then Result := tkKey else
if KeyComp('getattr') then Result := tkKey else Result := tkIdentifier;
end;
function TSynVBSyn.Func94: TtkTokenKind;
@ -880,8 +877,7 @@ end;
function TSynVBSyn.Func98: TtkTokenKind;
begin
if KeyComp('explicit') then Result := tkKey else
if KeyComp('explicit') then Result := tkKey else Result := tkIdentifier;
if KeyComp('explicit') then Result := tkKey else Result := tkIdentifier;
end;
function TSynVBSyn.Func99: TtkTokenKind;