diff options
| author | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2006-12-06 23:16:34 +0000 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@users.sourceforge.net> | 2006-12-06 23:16:34 +0000 |
| commit | c91eebac7b6d141d2da3114537942850accccab8 (patch) | |
| tree | 74b6f30b9ec5ae7d428d142206d3663008673ab1 /examples/gui/utfdemo | |
| parent | 1ef11a6d9353b976aa51856b1909f28f8750670b (diff) | |
| download | fpGUI-c91eebac7b6d141d2da3114537942850accccab8.tar.xz | |
* 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.
Diffstat (limited to 'examples/gui/utfdemo')
| -rw-r--r-- | examples/gui/utfdemo/utfdemo.lpi | 4 | ||||
| -rw-r--r-- | examples/gui/utfdemo/utfdemo.lpr | 13 |
2 files changed, 8 insertions, 9 deletions
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 |