Changeset 565 for trunk/Direct.pas

Timestamp:

May 1, 2024, 12:08:20 PM (6 months 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/Direct.pas (modified) (1 diff)

trunk/Direct.pas

@@ -278 +278 @@
 procedure TDirectDlg.FormPaint(Sender: TObject);
 begin
-  PaintBackground(Self, 3, 3, ClientWidth - 6, ClientHeight - 6);
+  PaintBackground(Canvas, 3, 3, ClientWidth - 6, ClientHeight - 6,
+    ClientWidth, ClientHeight);
   Frame(Canvas, 0, 0, ClientWidth - 1, ClientHeight - 1, 0, 0);
   Frame(Canvas, 1, 1, ClientWidth - 2, ClientHeight - 2,