Changeset 36

Timestamp:

Jan 9, 2017, 1:00:08 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Black background in city screen.

File:

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

trunk/LocalPlayer/CityScreen.pas

@@ -213 +213 @@
   Back := TBitmap.Create;
   Back.PixelFormat := pf24bit;
-  Back.Width := ClientWidth;
-  Back.Height := ClientHeight;
+  Back.SetSize(ClientWidth, ClientHeight);
+  Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
   Template := TBitmap.Create;
   LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'City', gfNoGamma);
@@ -227 +227 @@
   SmallCityMap := TBitmap.Create;
   SmallCityMap.PixelFormat := pf24bit;
-  SmallCityMap.Width := 98;
-  SmallCityMap.Height := 74;
+  SmallCityMap.SetSize(98, 74);
+  SmallCityMap.Canvas.FillRect(0, 0, SmallCityMap.Width, SmallCityMap.Height);
   ZoomCityMap := TBitmap.Create;
   ZoomCityMap.PixelFormat := pf24bit;
-  ZoomCityMap.Width := 228;
-  ZoomCityMap.Height := 124;
+  ZoomCityMap.SetSize(228, 124);
+  ZoomCityMap.Canvas.FillRect(0, 0, ZoomCityMap.Width, ZoomCityMap.Height);
 end;