paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 13:40:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, SourceEdit: fixed call to abstract method in highlighter

Browse Source 
(cherry picked from commit e2cc833a9d)
This commit is contained in:
Martin 2023-09-12 23:02:01 +02:00
parent 71e85eb4d5
commit d9b82e1493
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/editoroptions.pp
View File

@ -418,6 +418,7 @@ type
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetTokenAttribute: TSynHighlighterAttributes; override;
function GetTokenPos: Integer; override;
function GetTokenKind: integer; override;
procedure Next; override;
end;
@ -7295,6 +7296,11 @@ begin
Result := 0;
end;
function TIDESynTextSyn.GetTokenKind: integer;
begin
Result := 0;
end;
procedure TIDESynTextSyn.Next;
begin
inc(FPos);