Changeset 68 for trunk/UMenu.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/UMenu.pas (modified) (3 diffs)

trunk/UMenu.pas

@@ -81 +81 @@
     procedure MouseMove(Position: TPoint);
     procedure MouseUp(Button: TMouseButton; Position: TPoint);
-    procedure Paint(Canvas: TCanvas);
+    procedure Paint(Canvas: TCanvas; CanvasSize: TPoint);
     constructor Create;
     destructor Destroy; override;
@@ -216 +216 @@
 end;
 
-procedure TMenu.Paint(Canvas: TCanvas);
+procedure TMenu.Paint(Canvas: TCanvas; CanvasSize: TPoint);
 var
   I: Integer;
@@ -240 +240 @@
     end;
 
-    X := (Width - TotalWidth) div 2;
-    Y := (Height - TotalHeight) div 2;
+    X := (CanvasSize.X - TotalWidth) div 2;
+    Y := (CanvasSize.Y - TotalHeight) div 2;
 
     // Menu items