fix fullscren on windows

Carlos Picanco
1 parent aaa91aa3
Showing 1 changed file with 3 additions and 0 deletions Show diff stats
form_chooseactor.pas
@@ -104,6 +104,9 @@ begin
         btnAdmin.Visible:= False;
         btnPlayer.Visible:= False;
         BorderStyle:=bsNone;
+        {$IFDEF WINDOWS}
+        BoundsRect := Monitor.BoundsRect;
+        {$ENDIF}
         Position:=poDesigned;
         FormStyle:=fsNormal;
         WindowState:=wsFullScreen;
...	...	@@ -104,6 +104,9 @@ begin
104	104	btnAdmin.Visible:= False;
105	105	btnPlayer.Visible:= False;
106	106	BorderStyle:=bsNone;
	107	+ {$IFDEF WINDOWS}
	108	+ BoundsRect := Monitor.BoundsRect;
	109	+ {$ENDIF}
107	110	Position:=poDesigned;
108	111	FormStyle:=fsNormal;
109	112	WindowState:=wsFullScreen;
...	...