Changeset 68 for trunk/Packages/Common/UPersistentForm.pas

Timestamp:

Nov 28, 2020, 12:17:21 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Canvas width and height is not updated correctly on Windows. Use additional CanvasSize parameter in drawing methods.
• Fixed: Fullscreen was not working on Windows. Form border was not hidden.

File:

• trunk/Packages/Common/UPersistentForm.pas (modified) (2 diffs)

trunk/Packages/Common/UPersistentForm.pas

@@ -317 +317 @@
       Form.RestoredHeight);
     ShowWindow(Form.Handle, SW_SHOWFULLSCREEN);
+    {$IFDEF WINDOWS}
+    Form.BorderStyle := bsNone;
+    {$ENDIF}
   end else begin
     FormFullScreen := False;
@@ -323 +326 @@
       //Form.BoundsRect := FormRestoredSize;
     end else if Form.WindowState = wsMaximized then ShowWindow(Form.Handle, SW_SHOWMAXIMIZED);
+    {$IFDEF WINDOWS}
+    Form.BorderStyle := bsSizeable;
+    {$ENDIF}
   end;
 end;