[SOLVED] Fullscreen

[Pe3s]

Hello forum members
I came up with code that supports full screen, but does not cover the entire screen. How can I improve the code?

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. const
3.   Rect: TRect = (Left:0; Top:0; Right:0; Bottom:0);
4.   FullScreen: Boolean = False;
5. begin
6.   FullScreen := not FullScreen;
7.   If FullScreen Then Begin
8.     Rect := BoundsRect;
9.     SetBounds(
10.       Left - ClientOrigin.X,
11.       Top - ClientOrigin.Y,
12.       GetDeviceCaps( Canvas.handle, HORZRES ) + (screen.Width - ClientWidth),
13.       GetDeviceCaps( Canvas.handle, VERTRES ) + (screen.Height - ClientHeight));
14.   SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NoMove or SWP_NoSize);
15.   End Else
16.   begin
17.       SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NoMove or SWP_NoSize);
18.     BoundsRect := Rect;
19.   end;
20. end;
21.  

[Josh]

not tried or tested, but have you seen the wiki

https://wiki.lazarus.freepascal.org/Application_full_screen_mode

[Pe3s]

@Josh, I've read the wiki, the problem is that I can't use WindowState or border style

[Pe3s]

Thank you