Changeset 219 for trunk/LocalPlayer

Timestamp:

May 11, 2020, 10:06:08 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Apply correctly fullscreen mode to MainScreen.

File:

• trunk/LocalPlayer/Term.pas (modified) (3 diffs)

trunk/LocalPlayer/Term.pas

@@ -287 +287 @@
     Offscreen: TBitmap;
     OffscreenUser: TForm;
-    procedure CreateParams(var p: TCreateParams); override;
     procedure Client(Command, NewPlayer: integer; var Data);
     procedure SetAIName(p: integer; Name: string);
@@ -3398 +3397 @@
 
 { *** main part *** }
-
-procedure TMainScreen.CreateParams(var p: TCreateParams);
-begin
-  inherited;
-  if FullScreen then begin
-    p.Style := $87000000;
-    BorderStyle := bsNone;
-    BorderIcons := [];
-  end;
-end;
 
 procedure TMainScreen.FormCreate(Sender: TObject);
@@ -7805 +7794 @@
 procedure TMainScreen.FormShow(Sender: TObject);
 begin
-  Timer1.Enabled := true;
-  Left := 0;
-  Top := 0;
+  if FullScreen then begin
+    WindowState := wsMaximized;
+    BorderStyle := bsNone;
+    BorderIcons := [];
+  end else begin
+    WindowState := wsMaximized;
+    BorderStyle := bsSizeable;
+    BorderIcons := [biSystemMenu, biMinimize, biMaximize];
+  end;
+  Timer1.Enabled := True;
 end;