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

* Fix for gtk2-64

Browse Source 
git-svn-id: trunk@7166 -
This commit is contained in:
marc 2005-05-10 16:13:01 +00:00
parent 2243caa324
commit 950855763b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk2/gtk2wscustomlistview.inc
View File

@ -206,13 +206,13 @@ begin
// this stops a loop when you use the shift key to select multiple entries
for i := 0 to Widgets^.ItemCache.Count-1 do begin
if (Widgets^.ItemCache.Strings[i] = Str) and (Widgets^.ItemCache.Objects[i] = TObject(Ord(path_is_currently_selected)))
if (Widgets^.ItemCache.Strings[i] = Str) and (Widgets^.ItemCache.Objects[i] = TObject(ptrint(Ord(path_is_currently_selected))))
then begin
Result := False;
Exit;
end;
end;
WIdgets^.ItemCache.AddObject(Str,TObject(Ord(path_is_currently_selected)));
Widgets^.ItemCache.AddObject(Str,TObject(ptrint(Ord(path_is_currently_selected))));
end;
{ TGtk2WSCustomListView }
@ -614,7 +614,7 @@ begin
GetCommonTreeViewWidgets(PGtkWidget(ALV.Handle), Widgets);
with Widgets^ do begin
GtkColumn := gtk_tree_view_get_column(PGtkTreeView(MainView), AIndex);
g_object_set_data(G_OBJECT(GtkColumn), PChar('Visible'), gpointer(Integer(Ord(AVisible))));
g_object_set_data(G_OBJECT(GtkColumn), PChar('Visible'), gpointer(ptrint(Ord(AVisible))));
if TLVHack(ALV).ViewStyle = vsReport then begin
gtk_tree_view_column_set_visible(GtkColumn, AVisible);
end;