paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-09 17:55:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: fixed TListBox with ItemIndex = -1 in lfm. issue #27276

Browse Source 
git-svn-id: trunk@47330 -
This commit is contained in:
zeljko 2015-01-11 09:43:43 +00:00
parent 60baaafb4a
commit 5b71531582
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -175,6 +175,7 @@ type
class procedure SetSorted(const {%H-}ACustomListBox: TCustomListBox; AList: TStrings; ASorted: boolean); override; class procedure SetSorted(const {%H-}ACustomListBox: TCustomListBox; AList: TStrings; ASorted: boolean); override;
class procedure SetTopIndex(const ACustomListBox: TCustomListBox; const NewTopIndex: integer); override; class procedure SetTopIndex(const ACustomListBox: TCustomListBox; const NewTopIndex: integer); override;
class procedure SetFont(const AWinControl: TWinControl; const AFont: TFont); override; class procedure SetFont(const AWinControl: TWinControl; const AFont: TFont); override;
class procedure ShowHide(const AWinControl: TWinControl); override;
end; end;
{ TGtk2WSListBox } { TGtk2WSListBox }
@ -683,6 +684,15 @@ begin
Gtk2WidgetSet.SetWidgetFont(Widget, AFont); Gtk2WidgetSet.SetWidgetFont(Widget, AFont);
end; end;
class procedure TGtk2WSCustomListBox.ShowHide(const AWinControl: TWinControl);
begin
// issue #27276
if AWinControl.HandleAllocated and AWinControl.HandleObjectShouldBeVisible and
(TCustomListBox(AWinControl).ItemIndex = -1) then
SetItemIndex(TCustomListBox(AWinControl), TCustomListBox(AWinControl).ItemIndex);
inherited ShowHide(AWinControl);
end;
function gtk2ListBoxSelectionChangedAfter({%H-}Widget: PGtkWidget; function gtk2ListBoxSelectionChangedAfter({%H-}Widget: PGtkWidget;
WidgetInfo: PWidgetInfo): gboolean; cdecl; WidgetInfo: PWidgetInfo): gboolean; cdecl;
var var