[SOLVED] Application fullscreen

[Pe3s]

Hello, I have a question about the full screen code, why when I return to the normal screen, the application window disappears for a while and then reappears? Can I improve it?

[KoBraSoft]

Hello,
your sample application does not work on my System (Xubuntu 22.04.2 LTS 64 bit, Lazarus 2.2.4 FPC 3.2.2 x86_64-linux-gtk2).
After click on button1 the Window disappear.

I usually use

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

1. Form1.WindowState:=wsFullScreen;

to switch to full screen.

I also prefer the use of ActionList1. See attached example.

PS
My first Idea

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

1.   private
2.     FullScrn : boolean;
3. ...
4. procedure TForm1.Action1Execute(Sender: TObject);
5. begin
6.    if FullScrn then Form1.WindowState:=wsNormal
7.    else
8.      Form1.WindowState:=wsFullScreen;
9.    FullScrn := not FullScrn;  

did not work well. I had to call Action1Execute three times to  switch back to normal Screen

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

1.   private
2.     FullScrn : boolean;
3. ...
4. procedure TForm1.Action1Execute(Sender: TObject);
5. begin
6.   Form1.WindowState:=wsFullScreen;
7.   if FullScrn then Form1.WindowState:=wsNormal;
8.   FullScrn := not FullScrn;  

 

[Pe3s]

Thank you