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

Gtk2: set GTK_CAN_FOCUS flag on progressbar, so TabStop now works, also OnEnter and OnExit events.

Browse Source 
git-svn-id: trunk@41699 -
This commit is contained in:
zeljko 2013-06-13 08:23:39 +00:00
parent e036e4b080
commit e43a6d96d9
1 changed files with 1 additions and 0 deletions

1
lcl/interfaces/gtk2/gtk2wscomctrls.pp
View File

@ -494,6 +494,7 @@ begin
WidgetInfo := CreateWidgetInfo({%H-}Pointer(Result), AWinControl, AParams);
Set_RC_Name(AWinControl, Widget);
GTK_WIDGET_SET_FLAGS(Widget, GTK_CAN_FOCUS);
InternalSetStyle(PGtkProgressBar(Widget), TCustomProgressBar(AWinControl).Style);
TGtk2WSWinControl.SetCallbacks(PGtkObject(Widget), TComponent(WidgetInfo^.LCLObject));