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

lcl: gtk3: TGtk3ListView.ItemGetState: use StrToIntDef, from Alexey

Browse Source 
git-svn-id: trunk@54647 -
This commit is contained in:
mattias 2017-04-20 07:09:46 +00:00
parent 24ed61d2db
commit 74a0685b73
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5688,12 +5688,11 @@ begin
PGtkIconView(GetContainerWidget)^.get_cursor(@Path, Cell);
if Assigned(Path) then
begin
AStr := gtk_tree_path_to_string(path);
AIsSet := (StrToInt(AStr) = AIndex);
AStr := gtk_tree_path_to_string(Path);
AIsSet := (StrToIntDef(AStr,-1) = AIndex);
if AStr <> nil then
g_free(AStr);
if Path <> nil then
gtk_tree_path_free(Path);
gtk_tree_path_free(Path);
Result := True;
end;
end;