Changeset 565 for trunk/LocalPlayer

Timestamp:

May 1, 2024, 12:08:20 PM (3 weeks ago)

Author:

chronos

Message:

• Modified: Start form changed to use Offscreen bitmap for drawing as Qt5 doesn't support copying from form canvas.

Location:

trunk/LocalPlayer

Files:

• Battle.pas (modified) (1 diff)
• Rates.pas (modified) (2 diffs)
• Wonders.pas (modified) (2 diffs)

trunk/LocalPlayer/Battle.pas

@@ -229 +229 @@
     FillRect(Rect(0, 0, ClientWidth, ClientHeight));
     Brush.Style := TBrushStyle.bsClear;
-    PaintBackground(Self, 3 + Border, 3 + Border,
-      ClientWidth - (6 + 2 * Border), ClientHeight - (6 + 2 * Border));
+    PaintBackground(Canvas, 3 + Border, 3 + Border,
+      ClientWidth - (6 + 2 * Border), ClientHeight - (6 + 2 * Border),
+      ClientWidth, ClientHeight);
   end;
   Frame(Canvas, Border + 1, Border + 1, ClientWidth - (2 + Border),

trunk/LocalPlayer/Rates.pas

@@ -21 +21 @@
     procedure FormCreate(Sender: TObject);
     procedure TaxLuxBtnClick(Sender: TObject);
+  protected
+    procedure OffscreenPaint; override;
   public
-    procedure OffscreenPaint; override;
     procedure ShowNewContent(NewMode: TWindowMode);
   end;
@@ -48 +49 @@
   S, s1: string;
 begin
-  if (OffscreenUser <> nil) and (OffscreenUser <> Self) then
-    OffscreenUser.Update;
-  // complete working with old owner to prevent rebound
-  OffscreenUser := Self;
+  inherited;
 
   Fill(Offscreen.Canvas, 0, 0, ClientWidth, ClientHeight,

trunk/LocalPlayer/Wonders.pas

@@ -27 +27 @@
     procedure Glow(I, GlowColor: Integer);
     procedure PaintBackgroundShape;
+  protected
+    procedure OffscreenPaint; override;
   public
-    procedure OffscreenPaint; override;
     procedure ShowNewContent(NewMode: TWindowMode);
   end;
@@ -193 +194 @@
   S: string;
 begin
-  if (OffscreenUser <> nil) and (OffscreenUser <> Self) then
-    OffscreenUser.Update;
-  // complete working with old owner to prevent rebound
-  OffscreenUser := Self;
+  inherited;
 
   Fill(Offscreen.Canvas, 3, 3, ClientWidth - 6, ClientHeight - 6,