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

improved but not fixed transient windows

Browse Source 
git-svn-id: trunk@2328 -
This commit is contained in:
mattias 2002-08-17 23:41:16 +00:00
parent c453c1e568
commit ac761c9890
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/gtk/gtkproc.pp
View File

@ -204,10 +204,8 @@ function gtkLVEndSelection(AList: PGTKCList; AData: gPointer): GBoolean; cdecl;
function gtkComboBoxShowCB(widget: PGtkWidget; data: gPointer): GBoolean; cdecl; function gtkComboBoxShowCB(widget: PGtkWidget; data: gPointer): GBoolean; cdecl;
function gtkComboBoxHideCB(widget: PGtkWidget; data: gPointer): GBoolean; cdecl; function gtkComboBoxHideCB(widget: PGtkWidget; data: gPointer): GBoolean; cdecl;
(* moved from TGTKObject.CreateComponent *)
procedure Set_RC_Name(Sender : TObject; AWidget: PGtkWidget); procedure Set_RC_Name(Sender : TObject; AWidget: PGtkWidget);
(* GTKProc.inc headers *)
procedure RaiseException(const Msg: string); procedure RaiseException(const Msg: string);
function CreatePChar(const s: string): PChar; function CreatePChar(const s: string): PChar;
function ComparePChar(P1, P2: PChar): boolean; function ComparePChar(P1, P2: PChar): boolean;
@ -278,6 +276,7 @@ function TranslateGdkPointToClientArea(SourceWindow: PGdkWindow;
procedure ReleaseMouseCapture(OnlyIfCapturedByLCL: boolean); procedure ReleaseMouseCapture(OnlyIfCapturedByLCL: boolean);
procedure UpdateMouseCaptureControl; procedure UpdateMouseCaptureControl;
procedure SetCursor(AWinControl : TWinControl; Data: Pointer); procedure SetCursor(AWinControl : TWinControl; Data: Pointer);
function GtkWindowIsModal(GtkWindow: PGtkWindow): boolean;
type type
TConnectSignalFlag = ( TConnectSignalFlag = (