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

gtk2: unselect listbox items in multiselect mode when ItemIndex is changed by code

Browse Source 
git-svn-id: trunk@20257 -
This commit is contained in:
paul 2009-05-27 08:42:04 +00:00
parent 8f6e69d146
commit 8f1edc879c
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -420,7 +420,7 @@ var
begin begin
if not WSCheckHandleAllocated(ACustomListBox, 'SelectItem') then if not WSCheckHandleAllocated(ACustomListBox, 'SelectItem') then
Exit; Exit;
Widget:=GetWidgetInfo(Pointer(ACustomListBox.Handle), True)^.CoreWidget; Widget := GetWidgetInfo(Pointer(ACustomListBox.Handle), True)^.CoreWidget;
ListStoreModel := gtk_tree_view_get_model(PGtkTreeView(Widget)); ListStoreModel := gtk_tree_view_get_model(PGtkTreeView(Widget));
Selection := gtk_tree_view_get_selection(PGtkTreeView(Widget)); Selection := gtk_tree_view_get_selection(PGtkTreeView(Widget));
@ -476,10 +476,7 @@ begin
Inc(WidgetInfo^.ChangeLock); Inc(WidgetInfo^.ChangeLock);
if (AIndex < 0) then if (AIndex < 0) then
if (gtk_tree_selection_get_mode(Selection) <> GTK_SELECTION_SINGLE) then Path := nil
Path := gtk_tree_path_new_first
else
Path := nil
else else
Path := gtk_tree_path_new_from_indices(AIndex, -1); Path := gtk_tree_path_new_from_indices(AIndex, -1);
@ -490,7 +487,6 @@ begin
gtk_tree_view_set_cursor(PGtkTreeView(Widget), Path, nil, False); gtk_tree_view_set_cursor(PGtkTreeView(Widget), Path, nil, False);
end end
else else
if gtk_tree_selection_get_mode(Selection) = GTK_SELECTION_SINGLE then
begin begin
ClearCursor; ClearCursor;
gtk_tree_selection_unselect_all(Selection); gtk_tree_selection_unselect_all(Selection);