blob: 8e3a0549672623605714f426c8845afbef5bb83c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
--- trunk/lcl/interfaces/gtk2/gtk2wsstdctrls.pp 2009/12/08 12:38:50 23028
+++ trunk/lcl/interfaces/gtk2/gtk2wsstdctrls.pp 2010/02/12 02:22:04 23695
@@ -477,16 +477,6 @@
WidgetInfo: PWidgetInfo;
Selection: PGtkTreeSelection;
Path: PGtkTreePath;
-
- procedure ClearCursor; inline;
- begin
- if gtk_tree_row_reference_valid(PGtkTreeView(Widget)^.priv^.cursor) then
- begin
- gtk_tree_row_reference_free(PGtkTreeView(Widget)^.priv^.cursor);
- PGtkTreeView(Widget)^.priv^.cursor := nil;
- end;
- end;
-
begin
if not WSCheckHandleAllocated(ACustomListBox, 'SetItemIndex') then
Exit;
@@ -512,7 +502,9 @@
end
else
begin
- ClearCursor;
+ Path := gtk_tree_path_new_from_indices(0, -1);
+ if PGtkTreeView(Widget)^.priv^.tree <> nil then
+ gtk_tree_view_set_cursor(PGtkTreeView(Widget), Path, nil, False);
gtk_tree_selection_unselect_all(Selection);
end;
|