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.

---
 examples/gui/utfdemo/utfdemo.lpi |  4 +---
 examples/gui/utfdemo/utfdemo.lpr | 13 +++++++------
 2 files changed, 8 insertions(+), 9 deletions(-)

(limited to 'examples/gui/utfdemo')

diff --git a/examples/gui/utfdemo/utfdemo.lpi b/examples/gui/utfdemo/utfdemo.lpi
index 7ead4030..c9a9e885 100644
--- a/examples/gui/utfdemo/utfdemo.lpi
+++ b/examples/gui/utfdemo/utfdemo.lpi
@@ -39,13 +39,11 @@
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
-    <SearchPaths>
-      <OtherUnitFiles Value="../../../gui/"/>
-    </SearchPaths>
     <CodeGeneration>
       <Generate Value="Faster"/>
     </CodeGeneration>
     <Other>
+      <CustomOptions Value="-FUunits"/>
       <CompilerPath Value="$(CompPath)"/>
     </Other>
   </CompilerOptions>
diff --git a/examples/gui/utfdemo/utfdemo.lpr b/examples/gui/utfdemo/utfdemo.lpr
index d6594687..c3c7ba6c 100644
--- a/examples/gui/utfdemo/utfdemo.lpr
+++ b/examples/gui/utfdemo/utfdemo.lpr
@@ -6,10 +6,11 @@ uses
   {$IFDEF UNIX}{$IFDEF UseCThreads}
   cthreads,
   {$ENDIF}{$ENDIF}
-  Classes,
-  gfxbase,
-  fpGFX,
-  fpgui;
+  Classes
+  ,GFXBase
+  ,fpGFX
+  ,fpGUI
+  ;
 
 type
 
@@ -18,7 +19,7 @@ type
   TMainForm = class(TForm)
   private
     FLayout: TBoxLayout;
-    procedure MainFormActivate(Sender: TObject);
+    procedure   MainFormActivate(Sender: TObject);
   public
     constructor Create(AOwner: TComponent); override;
   published
@@ -43,7 +44,6 @@ begin
   inherited Create(AOwner);
   Name            := 'frmMain';
   BorderWidth     := 8;
-//  WindowType      := wtWindow;
   Text            := 'UTF Demo';
   OnActivate      := @MainFormActivate;
 
@@ -63,6 +63,7 @@ begin
   GFApplication.Initialize;
   MainForm := TMainForm.Create(GFApplication);
   try
+    GFApplication.AddWindow(MainForm.Wnd);  { I don't like this! }
     MainForm.Show;
     GFApplication.Run;
   finally
-- 
cgit v1.2.3-70-g09d2