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

Timestamp:

May 1, 2024, 12:08:20 PM (3 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/DrawDlg.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -21 +21 @@
     procedure DoDeactivate(Sender: TObject);
   protected
+    // Defines area to grip the window for moving (from top)
     TitleHeight: Integer;
-    // defines area to grip the window for moving (from top)
     procedure InitButtons;
     procedure OnEraseBkgnd(var Msg: TMessage); message WM_ERASEBKGND;
@@ -237 +237 @@
 procedure TDrawDlg.SmartInvalidate;
 var
-  i: Integer;
-  r0, r1: HRgn;
-begin
-  r0 := CreateRectRgn(0, 0, Width, Height);
-  for i := 0 to ControlCount - 1 do
-    if not (Controls[i] is TArea) and Controls[i].Visible then
-    begin
-      with Controls[i].BoundsRect do
-        r1 := CreateRectRgn(Left, Top, Right, Bottom);
-      CombineRgn(r0, r0, r1, RGN_DIFF);
-      DeleteObject(r1);
-    end;
-  InvalidateRgn(Handle, r0, False);
-  DeleteObject(r0);
+  I: Integer;
+  R0, R1: HRgn;
+begin
+  R0 := CreateRectRgn(0, 0, Width, Height);
+  for I := 0 to ControlCount - 1 do
+    if not (Controls[I] is TArea) and Controls[I].Visible then begin
+      with Controls[I].BoundsRect do
+        R1 := CreateRectRgn(Left, Top, Right, Bottom);
+      CombineRgn(R0, R0, R1, RGN_DIFF);
+      DeleteObject(R1);
+    end;
+  InvalidateRgn(Handle, R0, False);
+  DeleteObject(R0);
 end;
 
@@ -272 +271 @@
 begin
   if csDesigning in ComponentState then Exit;
-  PaintBackground(Self, 3 + Border, 3 + Border, Width - (6 + 2 * Border),
-    Height - (6 + 2 * Border));
+  PaintBackground(Canvas, 3 + Border, 3 + Border, Width - (6 + 2 * Border),
+    Height - (6 + 2 * Border), Width, Height);
   for I := 0 to Border do
-    Frame(Canvas, I, I, Width - 1 - I, Height - 1 - I,
-      $000000, $000000);
+    Frame(Canvas, I, I, Width - 1 - I, Height - 1 - I, $000000, $000000);
   Frame(Canvas, Border + 1, Border + 1, Width - (2 + Border),
     Height - (2 + Border), MainTexture.ColorBevelLight,