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

implemented transient windows for all cases

Browse Source 
git-svn-id: trunk@2574 -
This commit is contained in:
mattias 2002-08-17 23:41:29 +00:00
parent d137b270a6
commit ce8c04d10f
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk/gtkdef.pp
View File

@ -213,7 +213,7 @@ type
gfTIMESTAMP, gfUSER); gfTIMESTAMP, gfUSER);
TGtkClipboardFormats = set of TGtkClipboardFormat; TGtkClipboardFormats = set of TGtkClipboardFormat;
const const
GtkClipboardFormatName: array[TGtkClipboardFormat] of string = ( GtkClipboardFormatName: array[TGtkClipboardFormat] of string = (
'CLASS', 'COMPOUND_TEXT', 'DELETE', 'FILE_NAME', 'HOST_NAME', 'LENGTH', 'CLASS', 'COMPOUND_TEXT', 'DELETE', 'FILE_NAME', 'HOST_NAME', 'LENGTH',
@ -221,7 +221,6 @@ const
'TIMESTAMP', 'USER' 'TIMESTAMP', 'USER'
); );
function NewPGDIObject: PGDIObject; function NewPGDIObject: PGDIObject;
procedure DisposePGDIObject(GDIObject: PGdiObject); procedure DisposePGDIObject(GDIObject: PGdiObject);
@ -436,6 +435,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.34 2003/03/15 18:32:38 mattias
implemented transient windows for all cases
Revision 1.33 2003/01/27 13:49:16 mattias Revision 1.33 2003/01/27 13:49:16 mattias
reduced speedbutton invalidates, added TCanvas.Frame reduced speedbutton invalidates, added TCanvas.Frame

7
lcl/interfaces/gtk/gtkglobals.pp
View File

@ -274,8 +274,15 @@ type
Signal: string; Signal: string;
Realized: boolean; Realized: boolean;
end; end;
// modal windows
var
ModalWindows: TList; // list of PGtkWindow
implementation implementation
initialization
ModalWindows:=nil;
end. end.