Changeset 155 for trunk/LocalPlayer/BaseWin.pas

Timestamp:

Nov 10, 2018, 7:47:29 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Wrong drawing of wonders dialog.
• Modified: Use separate offscreen bitmap for each TBufferedDrawDlg dialog.

File:

• trunk/LocalPlayer/BaseWin.pas (modified) (7 diffs)

trunk/LocalPlayer/BaseWin.pas

@@ -9 +9 @@
 
 type
+
+  { TBufferedDrawDlg }
+
   TBufferedDrawDlg = class(TDrawDlg)
   public
     UserLeft, UserTop: integer;
     constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormPaint(Sender: TObject);
@@ -27 +31 @@
     procedure VPaint; virtual;
   public
+    UsedOffscreenWidth, UsedOffscreenHeight: integer;
+    Offscreen: TBitmap;
+    OffscreenUser: TForm;
     property WindowMode: integer read FWindowMode;
   end;
@@ -55 +62 @@
   SideFrame = 9;
 
-var
-  UsedOffscreenWidth, UsedOffscreenHeight: integer;
-  Offscreen: TBitmap;
-  OffscreenUser: TForm;
-
-procedure CreateOffscreen;
+procedure CreateOffscreen(var Offscreen: TBitmap);
 
 implementation
@@ -67 +69 @@
   Term, Help, ButtonBase, Area;
 
-constructor TBufferedDrawDlg.Create;
-begin
+constructor TBufferedDrawDlg.Create(AOwner: TComponent);
+begin
+  BaseWin.CreateOffscreen(Offscreen);
   OnClose := FormClose;
   OnPaint := FormPaint;
@@ -80 +83 @@
   UserLeft := (Screen.Width - Width) div 2;
   UserTop := (Screen.Height - Height) div 2;
+end;
+
+destructor TBufferedDrawDlg.Destroy;
+begin
+  Offscreen.Free;
+  inherited Destroy;
 end;
 
@@ -464 +473 @@
 end;
 
-procedure CreateOffscreen;
+procedure CreateOffscreen(var Offscreen: TBitmap);
 begin
   if Offscreen <> nil then
@@ -480 +489 @@
 initialization
 
-Offscreen := nil;
-OffscreenUser := nil;
-
 finalization
 
-Offscreen.Free;
-
 end.