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

trunk/ScreenTools.pas

@@ -439 +439 @@
   if (Options and gfNoGamma = 0) and (Gamma <> 100) then
   begin
+    bmp.BeginUpdate;
     FirstLine := bmp.ScanLine[0];
     LastLine := bmp.ScanLine[bmp.Height - 1];
@@ -444 +445 @@
       ApplyGamma(pointer(FirstLine), @LastLine[bmp.Width])
     else
-      ApplyGamma(pointer(LastLine), @FirstLine[bmp.Width])
+      ApplyGamma(pointer(LastLine), @FirstLine[bmp.Width]);
+    bmp.EndUpdate;
   end
 end;
@@ -497 +499 @@
   if (Options and gfNoGamma = 0) and (Gamma <> 100) then
   begin
+    bmp.BeginUpdate;
     FirstLine := bmp.ScanLine[0];
     LastLine := bmp.ScanLine[bmp.Height - 1];
@@ -502 +505 @@
       ApplyGamma(pointer(FirstLine), @LastLine[bmp.Width])
     else
-      ApplyGamma(pointer(LastLine), @FirstLine[bmp.Width])
+      ApplyGamma(pointer(LastLine), @FirstLine[bmp.Width]);
+    bmp.EndUpdate;
   end
 end;
@@ -546 +550 @@
     GrExt[nGrExt].Mask.Height := Source.Height;
 
+    GrExt[nGrExt].Data.BeginUpdate;
+    GrExt[nGrExt].Mask.BeginUpdate;
     for y := 0 to Source.Height - 1 do
     begin
@@ -570 +576 @@
       end
     end;
+    GrExt[nGrExt].Data.EndUpdate;
+    GrExt[nGrExt].Mask.EndUpdate;
 
     FillChar(GrExt[nGrExt].pixUsed, GrExt[nGrExt].Data.Height div 49 * 10, 0);
-    inc(nGrExt)
+    inc(nGrExt);
   end
 end;
@@ -602 +610 @@
   i: integer;
 begin
+  dst.BeginUpdate;
   for i := 0 to h - 1 do
-    BlueLine(@(PLine(dst.ScanLine[y + i])[x]), w)
+    BlueLine(@(PLine(dst.ScanLine[y + i])[x]), w);
+  dst.EndUpdate;
 end;
 
@@ -638 +648 @@
     exit;
 
+  dst.BeginUpdate;
   h := yDst + h;
   while yDst < h do
@@ -666 +677 @@
     inc(yDst);
     inc(ySrc);
-  end
+  end;
+  dst.EndUpdate;
 end;
 
@@ -681 +693 @@
   SrcLine, DstLine: ^TLine;
 begin
-  if xDst < 0 then
-  begin
+  if xDst < 0 then begin
     w := w + xDst;
     xSrc := xSrc - xDst;
     xDst := 0;
   end;
-  if yDst < 0 then
-  begin
+  if yDst < 0 then begin
     h := h + yDst;
     ySrc := ySrc - yDst;
@@ -700 +710 @@
     exit;
 
+  dst.BeginUpdate;
   for iy := 0 to h - 1 do
   begin
@@ -732 +743 @@
     end
   end;
+  dst.EndUpdate;
 end;
 
@@ -746 +758 @@
   Pixel: ^TPixel;
 begin
+  bmp.BeginUpdate;
   assert(bmp.PixelFormat = pf24bit);
   h := y + h;
@@ -766 +779 @@
     end;
     inc(y);
-  end
+  end;
+  bmp.EndUpdate;
 end;
 
@@ -884 +898 @@
   DstLine: ^TLine;
 begin
+  dst.BeginUpdate;
   for y := -GlowRange + 1 to Height - 1 + GlowRange - 1 do
   begin
@@ -917 +932 @@
             (GlowRange - r)) div (GlowRange - 1);
     end;
-  end
+  end;
+  dst.EndUpdate;
 end;