paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-11 19:28:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Syncro edit: fixed wrong type cast

Browse Source
This commit is contained in:
Pascal Riekenberg 2024-03-22 10:53:43 +01:00
parent 51d2468af3
commit 3caf5b699b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synpluginsyncroedit.pp
View File

@ -951,7 +951,7 @@ function TSynPluginSyncroEdit.GetContextAt(APos: TPoint): String;
var
Ctx: Integer;
begin
TSynEdit(FriendEdit).GetHighlighterAttriAtRowColEx(APos, Ctx, FLastContextLine = APos.Y);
TCustomSynEdit(FriendEdit).GetHighlighterAttriAtRowColEx(APos, Ctx, FLastContextLine = APos.Y);
FLastContextLine := APos.Y;
SetLength(Result, SizeOf(Integer));
PInteger(@Result[1])^ := Ctx;