paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 20:09:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented fsStayOnTop+bsNone for forms under gtk (useful for splash)

Browse Source 
git-svn-id: trunk@2417 -
This commit is contained in:
mattias 2002-08-17 23:41:21 +00:00
parent c9a256c1b0
commit fb887d571d
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk/gtkint.pp
View File

@ -103,7 +103,9 @@ type
Function GetCompStyle(Sender : TObject) : Longint; Virtual; Function GetCompStyle(Sender : TObject) : Longint; Virtual;
Procedure HookSignals(Sender : TObject); virtual; //hooks all signals for controls Procedure HookSignals(Sender : TObject); virtual; //hooks all signals for controls
function CreateComboBox(ComboBoxObject: TObject): Pointer;
function CreateAPIWidget(AWinControl: TWinControl): PGtkWidget; function CreateAPIWidget(AWinControl: TWinControl): PGtkWidget;
function CreateForm(ACustomForm: TCustomForm): PGtkWidget;
procedure CreateComponent(Sender : TObject);virtual; procedure CreateComponent(Sender : TObject);virtual;
Procedure FinishComponentCreate(Sender : TObject; Handle : Pointer; Procedure FinishComponentCreate(Sender : TObject; Handle : Pointer;
SetupProps : Boolean); Virtual; SetupProps : Boolean); Virtual;
@ -322,6 +324,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.116 2002/12/27 17:12:38 mattias
added more Delphi win32 compatibility functions added more Delphi win32 compatibility functions