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

LCL-GTK3: Free memory block after use. Issue #31638, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@54646 -
This commit is contained in:
juha 2017-04-19 19:40:50 +00:00
parent 6774461478
commit 24ed61d2db
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5662,10 +5662,11 @@ function TGtk3ListView.ItemGetState(const AIndex: Integer;
const AItem: TListItem; const AState: TListItemState; out AIsSet: Boolean
): Boolean;
var
Path: PPGtkTreePath;
Path: PGtkTreePath;
Column: PPGtkTreeViewColumn;
Cell: PPGtkCellRenderer;
APath: PGtkTreePath;
AStr: PChar;
begin
Result := False;
AIsSet := False;
@ -5682,14 +5683,19 @@ begin
Path := nil;
Column := nil;
if IsTreeView then
PGtkTreeView(GetContainerWidget)^.get_cursor(Path, Column)
PGtkTreeView(GetContainerWidget)^.get_cursor(@Path, Column)
else
PGtkIconView(GetContainerWidget)^.get_cursor(Path, Cell);
AIsSet := (Path <> nil) and (StrToInt(gtk_tree_path_to_string(path^)) = AIndex);
if Path <> nil then
gtk_tree_path_free(Path^);
Result := True;
PGtkIconView(GetContainerWidget)^.get_cursor(@Path, Cell);
if Assigned(Path) then
begin
AStr := gtk_tree_path_to_string(path);
AIsSet := (StrToInt(AStr) = AIndex);
if AStr <> nil then
g_free(AStr);
if Path <> nil then
gtk_tree_path_free(Path);
Result := True;
end;
end;
lisSelected: