Changeset 28 for trunk/Start.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/Start.pas (modified) (6 diffs)

trunk/Start.pas

@@ -830 +830 @@
   SetMainTextureByAge(-1);
   List.Font.Color := MainTexture.clMark;
+  EmptyPicture.BeginUpdate;
+
   Fill(EmptyPicture.Canvas, 0, 0, 64, 64, (wMaintexture - 64) div 2,
     (hMaintexture - 64) div 2);
@@ -843 +845 @@
     end
   end;
+  EmptyPicture.EndUpdate;
 
   Difficulty[0] := Diff0;
@@ -1017 +1020 @@
     Mini.width := MiniWidth * 2;
     Mini.height := MiniHeight;
+    Mini.BeginUpdate;
     for y := 0 to MiniHeight - 1 do
     begin
@@ -1033 +1037 @@
         end;
     end;
+    Mini.EndUpdate;
   end;
 
@@ -1053 +1058 @@
     begin
       MiniLine := nil;
+      Mini.BeginUpdate;
       for y := 0 to MiniHeight - 1 do
       begin
@@ -1088 +1094 @@
             MiniLine[xm, 2] := cm and $FF;
           end;
-      end
+        Mini.EndUpdate;
+      end;
     end;
   end;