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

trunk/LocalPlayer/Wonders.pas

@@ -157 +157 @@
   Offscreen.Canvas.Font.Assign(UniFont[ftNormal]);
 
+  Offscreen.BeginUpdate;
   xm := ClientWidth div 2;
   ym := ClientHeight div 2;
@@ -184 +185 @@
             else
               Line[i][xm - 1 - X][ch] := c;
-          end
-    end;
-  end;
+          end;
+    end;
+  end;
+  Offscreen.EndUpdate;
 
   HaveWonder := false;