diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-16 09:03:07 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-16 09:03:07 +0000 |
commit | 320ce4e735e508c2f924f4c6dd85638aeda64fb0 (patch) | |
tree | 42baefa6b5d3e378aef407e4cf5244d354d29901 /examples/gui/splashscreen | |
parent | 6272816b16c7de17709e204b2ec53fe95bae7fa1 (diff) | |
download | fpGUI-320ce4e735e508c2f924f4c6dd85638aeda64fb0.tar.xz |
* Added compile fix for Splash Screen demo from MvC.
* Added the compileall.sh script supplied by Michael van Canneyt for the GUI examples.
* Removed all compiler warnings and hints from the GUI examples.
Diffstat (limited to 'examples/gui/splashscreen')
-rw-r--r-- | examples/gui/splashscreen/frm_splashscreen.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/gui/splashscreen/frm_splashscreen.pas b/examples/gui/splashscreen/frm_splashscreen.pas index 894ba11a..6001a8ee 100644 --- a/examples/gui/splashscreen/frm_splashscreen.pas +++ b/examples/gui/splashscreen/frm_splashscreen.pas @@ -72,7 +72,7 @@ constructor TSplashForm.Create(AOwner: TComponent); begin inherited Create(AOwner); WindowType := wtPopup; // removes borders and title bar - Include(WindowAttributes, waStayOnTop); // well, it lets the window stay on top. :) + WindowAttributes := WindowAttributes + [waStayOnTop]; // well, it lets the window stay on top. :) tmr := TfpgTimer.Create(3000); tmr.OnTimer := @TimerFired; |