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

IDE, SourceEditor: TopLineInfoHint, reduce amount of memory re-allocs

Browse Source
This commit is contained in:
Martin 2021-09-28 00:14:03 +02:00
parent e177cf97c2
commit 0f830698c0
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/sourcesyneditor.pas
View File

@ -1201,7 +1201,8 @@ procedure TSourceLazSynTopInfoView.SetLineMapCount(AValue: integer);
begin
if FLineMapCount = AValue then Exit;
FLineMapCount := AValue;
SetLength(FLineMap, AValue);
if (length(FLineMap) < AValue) or (length(FLineMap) > (AValue+1) * 2) then
SetLength(FLineMap, AValue);
end;
procedure TSourceLazSynTopInfoView.SetHighlighterTokensLine(ALine: TLineIdx;
@ -1239,7 +1240,7 @@ end;
constructor TSourceLazSynTopInfoView.Create;
begin
LineMapCount := 0;
ClearLineMap;
end;
procedure TSourceLazSynTopInfoView.ClearLineMap;