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

Timestamp:

May 1, 2024, 12:08:20 PM (2 weeks ago)

Author:

chronos

Message:

• Modified: Start form changed to use Offscreen bitmap for drawing as Qt5 doesn't support copying from form canvas.

File:

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

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -75 +75 @@
 procedure FillRectSeamless(Canvas: TCanvas; x0, y0, x1, y1, xOffset, yOffset: Integer;
   const Texture: TBitmap);
-procedure PaintBackground(Form: TForm; Left, Top, Width, Height: Integer);
+procedure PaintBackground(Canvas: TCanvas; Left, Top, Width, Height, FormWidth,
+  FormHeight: Integer);
 procedure Corner(Canvas: TCanvas; X, Y, Kind: Integer; T: TTexture);
 procedure BiColorTextOut(Canvas: TCanvas; clMain, clBack: TColor; X, Y: Integer; S: string);
@@ -1202 +1203 @@
 end;
 
-procedure PaintBackground(Form: TForm; Left, Top, Width, Height: Integer);
-begin
-  Fill(Form.Canvas, Left, Top, Width, Height, (MainTexture.Width - Form.ClientWidth) div
-    2, (MainTexture.Height - Form.ClientHeight) div 2);
+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);
 end;