diff options
Diffstat (limited to 'examples/gui/splashscreen/frm_splashscreen.pas')
-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; |