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

Timestamp:

Jul 26, 2025, 10:38:53 PM (14 hours ago)

Author:

chronos

Message:

• Modified: Improved forms painting if resized to bigger dimensions.

File:

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

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -1123 +1123 @@
 
 procedure Fill(Canvas: TCanvas; Left, Top, Width, Height, xOffset, yOffset: Integer);
-begin
-  //Assert((Left + xOffset >= 0) and (Left + xOffset + Width <= MainTexture.Width) and
-  //  (Top + yOffset >= 0) and (Top + yOffset + Height <= MainTexture.Height));
-  BitBltCanvas(Canvas, Left, Top, Width, Height, MainTexture.Image.Canvas,
-    Left + xOffset, Top + yOffset);
+var
+  X, Y: Integer;
+  XX, YY: Integer;
+  W, H: Integer;
+begin
+  // BitBltCanvas(Canvas, Left, Top, Width, Height, MainTexture.Image.Canvas,
+  //   Left + xOffset, Top + yOffset);
+  if Width < MainTexture.Width then W := Width
+    else W := MainTexture.Width;
+  if Height < MainTexture.Height then H := Height
+    else H := MainTexture.Height;
+  if MainTexture.Height > 0 then YY := Trunc(Height / MainTexture.Height)
+    else YY := 0;
+  if MainTexture.Width > 0 then XX := Trunc(Width / MainTexture.Width)
+    else XX := 0;
+  for Y := 0 to YY do
+  for X := 0 to XX do
+    begin
+    BitBltCanvas(Canvas, Left + X * MainTexture.Width, Top + Y * MainTexture.Height,
+      W, H, MainTexture.Image.Canvas, 0, 0);
+  end;
 end;
 
@@ -1212 +1228 @@
 procedure PaintBackground(Canvas: TCanvas; Left, Top, Width, Height, FormWidth,
   FormHeight: Integer);
-var
-  X, Y: Integer;
-  XX, YY: Integer;
-begin
-  if MainTexture.Height > 0 then YY := Trunc(Height / MainTexture.Height)
-    else YY := 0;
-  if MainTexture.Width > 0 then XX := Trunc(Width / MainTexture.Width)
-    else XX := 0;
-  for Y := 0 to YY do
-  for X := 0 to XX do
-  begin
-    Fill(Canvas, Left + X * MainTexture.Width, Top + Y * MainTexture.Height, Width, Height,
-      -(Left + X * MainTexture.Width), -(Top + Y * MainTexture.Height));
-  end;
+begin
+  Fill(Canvas, Left, Top, Width, Height, 0, 0)
 end;