From fb887d571dab7fd5f77dae5d95a088ebbf837f51 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 17 Aug 2002 23:41:21 +0000 Subject: [PATCH] implemented fsStayOnTop+bsNone for forms under gtk (useful for splash) git-svn-id: trunk@2417 - --- lcl/interfaces/gtk/gtkint.pp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lcl/interfaces/gtk/gtkint.pp b/lcl/interfaces/gtk/gtkint.pp index 8397e0a05a..61e32828b3 100644 --- a/lcl/interfaces/gtk/gtkint.pp +++ b/lcl/interfaces/gtk/gtkint.pp @@ -103,7 +103,9 @@ type Function GetCompStyle(Sender : TObject) : Longint; Virtual; Procedure HookSignals(Sender : TObject); virtual; //hooks all signals for controls + function CreateComboBox(ComboBoxObject: TObject): Pointer; function CreateAPIWidget(AWinControl: TWinControl): PGtkWidget; + function CreateForm(ACustomForm: TCustomForm): PGtkWidget; procedure CreateComponent(Sender : TObject);virtual; Procedure FinishComponentCreate(Sender : TObject; Handle : Pointer; SetupProps : Boolean); Virtual; @@ -322,6 +324,9 @@ end. { ============================================================================= $Log$ + Revision 1.117 2003/01/06 12:00:16 mattias + implemented fsStayOnTop+bsNone for forms under gtk (useful for splash) + Revision 1.116 2002/12/27 17:12:38 mattias added more Delphi win32 compatibility functions