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

MG: JITForms now sets csDesigning before creation

Browse Source 
git-svn-id: trunk@1113 -
This commit is contained in:
lazarus 2002-02-09 01:47:53 +00:00
parent a76f38fb5a
commit 4d402acc13
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -295,6 +295,25 @@ const
$000000 {COLOR_GRADIENTINACTIVECAPTION}
); {end _SysColors}
const
FormStyleMap : array[TFormBorderStyle] of integer = (
GTK_WINDOW_DIALOG, // bsNone
GTK_WINDOW_TOPLEVEL,// bsSingle
GTK_WINDOW_TOPLEVEL,// bsSizeable
GTK_WINDOW_DIALOG, // bsDialog
GTK_WINDOW_DIALOG, // bsToolWindow
GTK_WINDOW_DIALOG // bsSizeToolWin
);
FormResizableMap : array[TFormBorderStyle] of gint = (
0, // bsNone
1, // bsSingle
1, // bsSizeable
0, // bsDialog
0, // bsToolWindow
1 // bsSizeToolWin
);
//unused: FormBorderWidth : array[TFormBorderStyle] of gint = (0, 1, 2, 1, 1, 2);
type
//Defined in gtksignal.c
@ -498,6 +517,9 @@ end.
{ =============================================================================
$Log$
Revision 1.81 2002/10/06 17:55:45 lazarus
MG: JITForms now sets csDesigning before creation
Revision 1.80 2002/10/03 18:04:46 lazarus
MG: started customdrawitem