Changeset 28 for trunk/LocalPlayer/TechTree.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/TechTree.pas (modified) (2 diffs)

trunk/LocalPlayer/TechTree.pas

@@ -166 +166 @@
 
     // texturize background
+    Image.BeginUpdate;
     TexWidth := Paper.width;
     TexHeight := Paper.height;
@@ -176 +177 @@
         if Cardinal((@DstLine[X])^) and $FFFFFF = $7F007F then // transparent
           DstLine[X] := SrcLine[X mod TexWidth];
-      end
-    end
+      end;
+    end;
+    Image.EndUpdate;
   end;