paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 15:36:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, SynEdit: fix memleak in option to have bookmarks restore the scroll pos. Issue #40912

Browse Source
This commit is contained in:
Martin 2024-09-28 18:57:18 +02:00
parent 166db6365e
commit 3aae5b8b86
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/synedit/syneditmarks.pp
View File

@ -519,13 +519,22 @@ procedure TSynEditBookMark.SetTopLeft(ATop, ALeft: integer);
begin
if (ATop <= 0) or (ALeft <= 0) then
exit;
FTopLeftMark := TSynEditTopLeftMark.Create(OwnerEdit);
TSynEditTopLeftMark(FTopLeftMark).FBookMark := Self;
FTopLeftMark.Line := ATop;
FTopLeftMark.Column := ALeft;
if (FMarkList <> nil) then
FMarkList.Add(FTopLeftMark);
if FTopLeftMark = nil then begin
FTopLeftMark := TSynEditTopLeftMark.Create(OwnerEdit);
TSynEditTopLeftMark(FTopLeftMark).FBookMark := Self;
FTopLeftMark.Line := ATop;
FTopLeftMark.Column := ALeft;
if (FMarkList <> nil) then
FMarkList.Add(FTopLeftMark);
end
else
if (FTopLeftMark.Line <> ATop) or (FTopLeftMark.Column <> ALeft) then begin
FTopLeftMark.Line := ATop;
FTopLeftMark.Column := ALeft;
end;
end;
{ TSynEditBookMark.TSynEditTopLeftMark }