Changeset 565 for trunk/LocalPlayer/Wonders.pas

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.

File:

• trunk/LocalPlayer/Wonders.pas (modified) (2 diffs)

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,