From c91eebac7b6d141d2da3114537942850accccab8 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@users.sourceforge.net>
Date: Wed, 6 Dec 2006 23:16:34 +0000
Subject: * Added CreateBitmapCanvas and CreateMonoBitmapCanvas to
 TFCustomScreen class.   This is required for Styles to work. It could maybe
 be moved to another class   if needed. * Create the missing instances for
 ImageCanvas, MaskCanvas and Palette in TDefaultStyle. * Removed the ADisplay
 parameter from the TStyle constructor. * Adapted the UTF Demo to work with
 the fpGUI changes. Tested under Linux only.

---
 gui/form.inc | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'gui/form.inc')

diff --git a/gui/form.inc b/gui/form.inc
index 2cfb343d..f87b4f99 100644
--- a/gui/form.inc
+++ b/gui/form.inc
@@ -56,7 +56,9 @@
     procedure   WndShow(Sender: TObject);
   protected
     FBorderWidth: Integer;
-    FIsActive, FResizedByUser, FPositionSpecified: Boolean;
+    FIsActive: Boolean;
+    FResizedByUser: Boolean;
+    FPositionSpecified: Boolean;
     procedure   Loaded; override;
     procedure   Paint(Canvas: TFCanvas); override;
     procedure   Resized; override;
-- 
cgit v1.2.3-70-g09d2