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

Timestamp:

Jul 2, 2025, 10:47:22 PM (17 hours ago)

Author:

chronos

Message:

• Fixed: Paint background texture if windows forcibly resized to bigger size.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (1 diff)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -1210 +1210 @@
 procedure PaintBackground(Canvas: TCanvas; Left, Top, Width, Height, FormWidth,
   FormHeight: Integer);
-begin
-  Fill(Canvas, Left, Top, Width, Height, (MainTexture.Width - FormWidth) div
-    2, (MainTexture.Height - FormHeight) div 2);
+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;
 end;