Changeset 294 for trunk/LocalPlayer/Term.pas

Timestamp:

Mar 5, 2021, 1:49:27 PM (4 years ago)

Author:

chronos

Message:

• Modified: Better formatted ClientTools unit.

File:

• trunk/LocalPlayer/Term.pas (modified) (1 diff)

trunk/LocalPlayer/Term.pas

@@ -6504 +6504 @@
 procedure TMainScreen.SetFullScreen(Active: Boolean);
 begin
-  (*  if FullScreen then begin
-      ShowWindow(Handle, SW_SHOWFULLSCREEN);
-      {$IFDEF WINDOWS}
-      Form.BorderStyle := bsNone;
-      {$ENDIF}
-    end else begin
-      {$IFDEF WINDOWS}
-      Form.BorderStyle := bsSizeable;
-      {$ENDIF}
-      ShowWindow(Handle, SW_SHOWNORMAL);
-      WindowState := wsMaximized;
-      BorderStyle := bsSizeable;
-      BorderIcons := [biSystemMenu, biMinimize, biMaximize];
-    end;
-   *)
     if Active and (CurrentWindowState <> wsFullScreen) then begin
       PrevWindowState := WindowState;