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

Gtk2: fixed focusing TPanel when TabStop=True

Browse Source 
git-svn-id: trunk@31561 -
This commit is contained in:
zeljko 2011-07-04 17:13:28 +00:00
parent 7b6d0a6667
commit 07cbfe0925
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk2/gtk2wsextctrls.pp
View File

@ -216,10 +216,11 @@ begin
WidgetClient := CreateFixedClientWidget(True);
gtk_container_add(GTK_CONTAINER(Frame), WidgetClient);
GTK_WIDGET_SET_FLAGS(Frame, GTK_CAN_FOCUS);
WidgetInfo := CreateWidgetInfo(Frame, AWinControl, AParams);
WidgetInfo^.ClientWidget := WidgetClient;
WidgetInfo^.CoreWidget := WidgetClient;
WidgetInfo^.CoreWidget := Frame;
WidgetInfo^.LCLObject := AWinControl;
WidgetInfo^.Style := AParams.Style;
WidgetInfo^.ExStyle := AParams.ExStyle;