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

trunk/LocalPlayer/Term.pas

@@ -437 +437 @@
 
 {$R *.lfm}
-// TODO {$R Res1.res}
+{TODO {$R Res1.res}
 
 const
@@ -522 +522 @@
   GetMem(resampled, nx * ny * 12);
   FillChar(resampled^, nx * ny * 12, 0);
+  BigImp.BeginUpdate;
   for ix := 0 to BigImp.width div xSizeBig - 1 do
     for iy := 0 to BigImp.height div ySizeBig - 1 do
@@ -553 +554 @@
               inc(resampled[ir + nx + 1, ch], c * (xSizeSmall - xdivider) *
                 (ySizeSmall - ydivider));
-          end
-        end
+          end;
+        end;
       end;
+  BigImp.EndUpdate;
 
   // sharpen resampled icons
   SmallImp.width := nx;
   SmallImp.height := ny;
+  SmallImp.BeginUpdate;
   for y := 0 to ny - 1 do
   begin
@@ -587 +590 @@
       end;
   end;
+  SmallImp.EndUpdate;
   FreeMem(resampled);
   // smallimp.savetofile(homedir+'smallimp.bmp'); //!!!
@@ -4088 +4092 @@
     end;
     MiniLine := nil;
+    Mini.BeginUpdate;
     for y := 0 to G.ly - 1 do
     begin
@@ -4159 +4164 @@
             MiniLine[xm, 2] := cm and $FF;
           end;
-        end
-    end;
+        end;
+    end;
+    Mini.EndUpdate;
   end;