+ 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;
1- not need in last check "if Path<>nil", checked before 2- better StrToIntDef(AStr, -1) to not give exception (cannot comment there.) Alexey -- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus-ide.org http://lists.lazarus-ide.org/listinfo/lazarus