Changeset 323 for trunk/LocalPlayer/CityScreen.pas

Timestamp:

Mar 23, 2021, 2:46:42 PM (3 years ago)

Author:

chronos

Message:

• Modified: Created single procedure for unshare/free bitmap before BitBlt use.

File:

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

trunk/LocalPlayer/CityScreen.pas

@@ -259 +259 @@
     AgePrepared := MainTextureAge;
 
-    // TODO: FillRect should not be needed as BitBlt is with SRCCOPY
-    Back.Canvas.FillRect(0, 0, ClientWidth, ClientHeight);
-
+    UnshareBitmap(Back);
     BitBltCanvas(Back.Canvas, 0, 0, ClientWidth, ClientHeight,
       MainTexture.Image.Canvas, 0, 0);
@@ -358 +356 @@
 procedure TCityDlg.InitZoomCityMap;
 begin
-  // TODO: FillRect should not be needed as BitBlt is with SRCCOPY
-  ZoomCityMap.Canvas.FillRect(0, 0, ZoomCityMap.Width, ZoomCityMap.Height);
-
+  UnshareBitmap(ZoomCityMap);
   BitBltCanvas(ZoomCityMap.Canvas, 0, 0, wZoomMap, hZoomMap,
     Back.Canvas, xZoomMap, yZoomMap);