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

Gtk2: cleanup gtk2wscustomlistview

Browse Source 
git-svn-id: trunk@35674 -
This commit is contained in:
zeljko 2012-03-03 16:03:52 +00:00
parent cd23c7197e
commit 37056b6883
1 changed files with 6 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -46,7 +46,7 @@ begin
begin
ListItem.Checked := not ListItem.GetCheckedInternal;
if Assigned(LV.OnItemChecked) then
LV.OnItemChecked(TListView(LV), LV.Items.Item[Index]);
LV.OnItemChecked(TListView(WidgetInfo^.LCLObject), LV.Items.Item[Index]);
// we must update renderer row, otherwise visually it looks different
// if we change toggle state by keyboard (eg. pressing Space key)
@ -190,8 +190,6 @@ end;
procedure Gtk2_ItemSelectionChanged(selection: PGtkTreeSelection; WidgetInfo: PWidgetInfo); cdecl;
var
msg: TLMNotify;
NM: TNMListView;
Widgets: PTVWidgets;
AIndex: String;
i: Integer;
@ -202,7 +200,7 @@ var
begin
// DebugLn('Gtk2_ItemSelectionChanged');
Widgets := PTVWidgets(WidgetInfo^.UserData);
msg.Msg := CN_NOTIFY;
if (widgets = nil) or (Widgets^.ItemCache = nil) or
(Widgets^.ItemCache.Count=0) then
begin
@ -291,8 +289,6 @@ end;
procedure Gtk2_IconViewSelectionChanged(AIconView: PGtkIconView; WidgetInfo: PWidgetInfo); cdecl;
var
msg: TLMNotify;
NM: TNMListView;
Widgets: PTVWidgets;
AIndex: String;
i: Integer;
@ -300,7 +296,6 @@ var
Path: PGtkTreePath;
begin
Widgets := PTVWidgets(WidgetInfo^.UserData);
msg.Msg := CN_NOTIFY;
if (Widgets=nil) or (Widgets^.ItemCache=nil) or (Widgets^.ItemCache.Count=0) then
begin
@ -1673,21 +1668,17 @@ begin
end;
class procedure TGtk2WSCustomListView.BeginUpdate(const ALV: TCustomListView);
var
Widgets: PTVWidgets;
begin
if not WSCheckHandleAllocated(ALV, 'BeginUpdate')
then Exit;
if not WSCheckHandleAllocated(ALV, 'BeginUpdate') then
exit;
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);
var
Widgets: PTVWidgets;
begin
if not WSCheckHandleAllocated(ALV, 'EndUpdate')
then Exit;
if not WSCheckHandleAllocated(ALV, 'EndUpdate') then
exit;
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;