Changeset 28 for trunk/LocalPlayer/CityScreen.pas

Timestamp:

Jan 8, 2017, 7:14:56 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Drawing using ScanLine require to use BeginUpdate and EndUpdate.

File:

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

trunk/LocalPlayer/CityScreen.pas

@@ -216 +216 @@
   Back.Height := ClientHeight;
   Template := TBitmap.Create;
-  LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'City', gfNoGamma);
+  LoadGraphicFile(Template, HomeDir + 'Graphics\City', gfNoGamma);
   Template.PixelFormat := pf8bit;
   CityMapTemplate := TBitmap.Create;
-  LoadGraphicFile(CityMapTemplate, HomeDir + 'Graphics' + DirectorySeparator + 'BigCityMap', gfNoGamma);
+  LoadGraphicFile(CityMapTemplate, HomeDir + 'Graphics\BigCityMap', gfNoGamma);
   CityMapTemplate.PixelFormat := pf8bit;
   SmallCityMapTemplate := TBitmap.Create;
-  LoadGraphicFile(SmallCityMapTemplate, HomeDir + 'Graphics' + DirectorySeparator + 'SmallCityMap',
+  LoadGraphicFile(SmallCityMapTemplate, HomeDir + 'Graphics\SmallCityMap',
     gfNoGamma);
   SmallCityMapTemplate.PixelFormat := pf24bit;
@@ -447 +447 @@
         line[i, 1] := 0;
         line[i, 2] := gray; // 255-(255-gray) div 2;
-      end
+      end;
     end;
 
@@ -453 +453 @@
     i: integer;
   begin
+    Offscreen.BeginUpdate;
     for i := 0 to h - 1 do
-      RedLine(@(PLine(offscreen.ScanLine[y + i])[x]), w)
+      RedLine(@(PLine(offscreen.ScanLine[y + i])[x]), w);
+    Offscreen.EndUpdate;
   end;