From 4d402acc1367a73558afb8c5362c2232ca0b9deb Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:47:53 +0000
Subject: [PATCH] MG: JITForms now sets csDesigning before creation

git-svn-id: trunk@1113 -
---
 lcl/interfaces/gtk/gtkint.pp | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/lcl/interfaces/gtk/gtkint.pp b/lcl/interfaces/gtk/gtkint.pp
index 3d63dcb398..d3c1063f27 100644
--- a/lcl/interfaces/gtk/gtkint.pp
+++ b/lcl/interfaces/gtk/gtkint.pp
@@ -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