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

Gtk2: fixed form focus. fixes #17533, #17544

Browse Source 
git-svn-id: trunk@27596 -
This commit is contained in:
zeljko 2010-10-07 06:31:58 +00:00
parent 3fc6280bb3
commit 94827d66c8
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/gtk2/gtk2wsforms.pp
View File

@ -76,6 +76,7 @@ type
protected
class procedure SetCallbacks(const AWidget: PGtkWidget; const AWidgetInfo: PWidgetInfo); virtual;
published
class function CanFocus(const AWinControl: TWinControl): Boolean; override;
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class procedure ScrollBy(const AWinControl: TScrollingWinControl; const DeltaX, DeltaY: integer); override;
class procedure SetIcon(const AForm: TCustomForm; const Small, Big: HICON); override;
@ -265,6 +266,19 @@ begin
gtk_signal_func(@Gtk2FormEvent), AWidgetInfo^.LCLObject);
end;
class function TGtk2WSCustomForm.CanFocus(const AWinControl: TWinControl
): Boolean;
var
Widget: PGtkWidget;
begin
if AWinControl.HandleAllocated then
begin
Widget := PGtkWidget(AWinControl.Handle);
Result := GTK_WIDGET_VISIBLE(Widget) and GTK_WIDGET_SENSITIVE(Widget);
end else
Result := False;
end;
class function TGtk2WSCustomForm.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle;
var