diff options
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 |