paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 10:18:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

SourceEditor: fixed updating top-line-hint (invalidate/repaint)

Browse Source
This commit is contained in:
Martin 2022-04-01 15:01:09 +02:00
parent 5b23421c5d
commit 9f3623bb45
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourcesyneditor.pas
View File

@ -76,6 +76,7 @@ type
private
FLineMapCount: integer;
FLineMap: array of integer;
FSkipTextToView: Boolean;
function GetLineMap(Index: Integer): Integer;
procedure SetLineMap(Index: Integer; AValue: Integer);
procedure SetLineMapCount(AValue: integer);
@ -1222,6 +1223,11 @@ var
i: Integer;
r: TLineRange;
begin
if FSkipTextToView then begin
Result.Top := AIndex;
Result.Bottom := AIndex;
exit;
end;
Result.Top := -1;
Result.Bottom := -1;
r := inherited TextToViewIndex(AIndex);
@ -1554,11 +1560,13 @@ begin
Invalidate; // TODO: move to PaintArea
end;
FTopInfoDisplay.FSkipTextToView := True;
for i := 0 to ListCnt - 1 do begin
if FTopInfoDisplay.LineMap[ListCnt-1-i] <> InfList[i].LineIndex then
TSourceLazSynSurfaceManager(FPaintArea).ExtraManager.InvalidateLines(ListCnt-1-i, ListCnt-1-i);
FTopInfoDisplay.LineMap[ListCnt-1-i] := InfList[i].LineIndex;
end;
FTopInfoDisplay.FSkipTextToView := False;
finally
FSrcSynCaretChangedLock := False;