Changeset 515 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

Jan 3, 2024, 4:53:46 PM (11 months ago)

Author:

chronos

Message:

• Modified: Improved scaling of ImageOp_BCC procedure.
• Fixed: Do not initialize City dialog on game closure.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (4 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -695 +695 @@
     PixelSrc.NextLine;
   end;
-  src.EndUpdate;
+  Src.EndUpdate;
   Dst.EndUpdate;
 end;
@@ -709 +709 @@
   SrcPixel: TPixelPointer;
   DstPixel: TPixelPointer;
-begin
+  DstWidth, DstHeight: Integer;
+  SrcWidth, SrcHeight: Integer;
+begin
+  if xDst < 0 then begin
+    Width := Width + xDst;
+    xSrc := xSrc - xDst;
+    xDst := 0;
+  end;
+  if yDst < 0 then begin
+    Height := Height + yDst;
+    ySrc := ySrc - yDst;
+    yDst := 0;
+  end;
+  if xDst + Width > Dst.Width then
+    Width := Dst.Width - xDst;
+  if yDst + Height > Dst.Height then
+    Height := Dst.Height - yDst;
+  if (Width < 0) or (Height < 0) then
+    Exit;
+  DstWidth := ScaleToNativeDist(xDst, Width);
+  DstHeight := ScaleToNativeDist(yDst, Height);
+  SrcWidth := ScaleToNativeDist(xSrc, Width);
+  SrcHeight := ScaleToNativeDist(ySrc, Height);
   xDst := ScaleToNative(xDst);
   yDst := ScaleToNative(yDst);
   xSrc := ScaleToNative(xSrc);
   ySrc := ScaleToNative(ySrc);
-  Width := ScaleToNative(Width);
-  Height := ScaleToNative(Height);
-  if xDst < 0 then begin
-    Width := Width + xDst;
-    xSrc := xSrc - xDst;
-    xDst := 0;
-  end;
-  if yDst < 0 then begin
-    Height := Height + yDst;
-    ySrc := ySrc - yDst;
-    yDst := 0;
-  end;
-  if xDst + Width > ScaleToNative(Dst.Width) then
-    Width := ScaleToNative(Dst.Width) - xDst;
-  if yDst + Height > ScaleToNative(Dst.Height) then
-    Height := ScaleToNative(Dst.Height) - yDst;
-  if (Width < 0) or (Height < 0) then
-    Exit;
 
   Src.BeginUpdate;
@@ -737 +741 @@
   SrcPixel := TPixelPointer.Create(Src, xSrc, ySrc);
   DstPixel := TPixelPointer.Create(Dst, xDst, yDst);
-  for iy := 0 to Height - 1 do begin
-    for ix := 0 to Width - 1 do begin
+  for iy := 0 to DstHeight - 1 do begin
+    for ix := 0 to DstWidth - 1 do begin
       trans := SrcPixel.PixelB * 2; // green channel = transparency
       amp1 := SrcPixel.PixelG * 2;
@@ -756 +760 @@
       end;
 
-      SrcPixel.NextPixel;
+      if ix < SrcWidth - 1 then SrcPixel.NextPixel;
       DstPixel.NextPixel;
     end;
-    SrcPixel.NextLine;
+    if iy < SrcHeight - 1 then SrcPixel.NextLine
+      else SrcPixel.SetX(0);
     DstPixel.NextLine;
   end;