paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-25 18:10:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: fixed wrong implementation of gtk2 listview beginupdate & endupdate.Now it's possible to make selections inside beginupdate & endupdate blocks.ListView is slower now, but it's correct. issue #20631

Browse Source 
git-svn-id: trunk@33638 -
This commit is contained in:
zeljko 2011-11-20 09:23:59 +00:00
parent feaf7a1432
commit 2c94b355cb
1 changed files with 6 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -163,8 +163,8 @@ begin
NM.uNewState := LVIS_SELECTED;
NM.uChanged := LVIF_STATE;
msg.NMHdr := @NM.hdr;
DeliverMessage(Target, msg);
if gtk_object_get_data(PGtkObject(TWinControl(Target).Handle),'lcl_gtkwidget_in_update') = nil then
DeliverMessage(Target, msg);
end;
procedure Gtk2_ItemSelectionChanged(selection: PGtkTreeSelection; WidgetInfo: PWidgetInfo); cdecl;
@ -1560,15 +1560,8 @@ var
begin
if not WSCheckHandleAllocated(ALV, 'BeginUpdate')
then Exit;
GetCommonTreeViewWidgets(PGtkWidget(ALV.Handle), Widgets);
g_object_ref(Widgets^.TreeModel);
if GTK_IS_TREE_VIEW(Widgets^.MainView) then
gtk_tree_view_set_model(PGtkTreeView(Widgets^.MainView), nil)
else
if GTK_IS_ICON_VIEW(Widgets^.MainView) then
gtk_icon_view_set_model(PGtkIconView(Widgets^.MainView), nil);
if gtk_object_get_data(PGtkObject(ALV.Handle),'lcl_gtkwidget_in_update') = nil then
gtk_object_set_data(PGtkObject(ALV.Handle),'lcl_gtkwidget_in_update', ALV);
end;
class procedure TGtk2WSCustomListView.EndUpdate(const ALV: TCustomListView);
@ -1577,15 +1570,8 @@ var
begin
if not WSCheckHandleAllocated(ALV, 'EndUpdate')
then Exit;
GetCommonTreeViewWidgets(PGtkWidget(ALV.Handle), Widgets);
if GTK_IS_TREE_VIEW(Widgets^.MainView) then
gtk_tree_view_set_model(PGtkTreeView(Widgets^.MainView), Widgets^.TreeModel)
else
if GTK_IS_ICON_VIEW(Widgets^.MainView) then
gtk_icon_view_set_model(PGtkIconView(Widgets^.MainView), Widgets^.TreeModel);
g_object_unref(Widgets^.TreeModel);
if gtk_object_get_data(PGtkObject(ALV.Handle),'lcl_gtkwidget_in_update') <> nil then
gtk_object_remove_data(PGtkObject(ALV.Handle),'lcl_gtkwidget_in_update');
end;
class function TGtk2WSCustomListView.GetBoundingRect(const ALV: TCustomListView): TRect;