Changeset 71

Timestamp:

Jan 14, 2017, 10:54:50 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Clear bitmap before drawing to CityScreen minimap.

Location:

trunk/LocalPlayer

Files:

• CityScreen.pas (modified) (1 diff)
• Select.pas (modified) (2 diffs)

trunk/LocalPlayer/CityScreen.pas

@@ -288 +288 @@
   Color1 := Colors.Canvas.Pixels[clkCity, cli1];
   Color2 := Colors.Canvas.Pixels[clkAge0 + Age, cliHouse];
+  SmallCityMap.Canvas.FillRect(0, 0, SmallCityMap.Width, SmallCityMap.Height);
   bitblt(SmallCityMap.Canvas.Handle, 0, 0, 83, hSmallMap,
     SmallCityMapTemplate.Canvas.Handle, 83 * SizeClass, 0, SRCCOPY);

trunk/LocalPlayer/Select.pas

@@ -33 +33 @@
       x, y: integer);
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
       Shift: TShiftState; x, y: integer);
@@ -43 +44 @@
     procedure FormKeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
     procedure PlayerClick(Sender: TObject);
-    procedure FormDestroy(Sender: TObject);
   private
     Kind: TListKind;