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

Gtk3: fixed memleak with TGtk3Listbox list.

Browse Source
This commit is contained in:
zeljan1 2025-01-09 20:48:25 +01:00
parent 9eb9286e45
commit a11eaff2fc
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -542,6 +542,7 @@ type
procedure SetListBoxStyle(AValue: TListBoxStyle);
procedure SetMultiSelect(AValue: Boolean);
protected
procedure DestroyWidget; override;
function CreateWidget(const {%H-}Params: TCreateParams):PGtkWidget; override;
function EatArrowKeys(const {%H-}AKey: Word): Boolean; override;
public
@ -5597,6 +5598,20 @@ begin
end;
end;
procedure TGtk3ListBox.DestroyWidget;
var
aData: TGtkListStoreStringList;
begin
if FCentralWidget <> nil then
begin
aData := TGtkListStoreStringList(g_object_get_data(PGObject(FCentralWidget),GtkListItemLCLListTag));
if aData <> nil then
aData.Free;
g_object_set_data(PGObject(FCentralWidget),GtkListItemLCLListTag, nil);
end;
inherited DestroyWidget;
end;
function TGtk3ListBox.GetSelCount: Integer;
var
Selection: PGtkTreeSelection;