Changeset 620 for trunk/Packages

Timestamp:

Sep 15, 2024, 5:34:07 PM (2 months ago)

Author:

chronos

Message:

• Modified: Do not use Screen Width and Height values for Offscreen bitmap size initialization to improve multi monitor support.

Location:

trunk/Packages

Files:

• CevoComponents/BaseWin.pas (modified) (6 diffs)
• DpiControls/Dpi.Controls.pas (modified) (1 diff)

trunk/Packages/CevoComponents/BaseWin.pas

@@ -69 +69 @@
   SideFrame = 9;
 
-procedure CreateOffscreen(var Offscreen: TBitmap);
+procedure CreateOffscreen(var Offscreen: TBitmap; Width, Height: Integer);
 function WindowModeMakePersistent(Mode: TWindowMode): TWindowMode;
 procedure Register;
@@ -93 +93 @@
 constructor TBufferedDrawDlg.Create(AOwner: TComponent);
 begin
-  BaseWin.CreateOffscreen(Offscreen);
+  BaseWin.CreateOffscreen(Offscreen, Width, Height);
   OnClose := FormClose;
   OnPaint := FormPaint;
@@ -159 +159 @@
 procedure TBufferedDrawDlg.OffscreenPaint;
 begin
+  BaseWin.CreateOffscreen(Offscreen, Width, Height);
   if (OffscreenUser <> nil) and (OffscreenUser <> Self) then
     OffscreenUser.Update; // complete working with old owner to prevent rebound
@@ -332 +333 @@
   Frame(Canvas, SideFrame - 1, TitleHeight - 1, ClientWidth - SideFrame,
     InnerBottom, MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
-  // RFrame(Canvas,SideFrame-2,TitleHeight-2,ClientWidth-SideFrame+1,
-  // InnerBottom+1,MainTexture.ColorBevelShade,MainTexture.ColorBevelLight);
+  // RFrame(Canvas,SideFrame - 2, TitleHeight - 2, ClientWidth - SideFrame + 1,
+  // InnerBottom + 1, MainTexture.ColorBevelShade, MainTexture.ColorBevelLight);
   if FullCaption then begin
     if (FWindowMode <> wmModal) or not ModalIndication then
@@ -475 +476 @@
 end;
 
-procedure CreateOffscreen(var Offscreen: TBitmap);
+procedure CreateOffscreen(var Offscreen: TBitmap; Width, Height: Integer);
 var
   NewWidth: Integer;
@@ -484 +485 @@
     Offscreen.PixelFormat := TPixelFormat.pf24bit;
   end;
-  if Screen.Height - yUnused < 480 then begin
-    NewWidth := Screen.Width;
+  if Height - yUnused < 480 then begin
+    NewWidth := Width;
     NewHeight := 480;
   end else begin
-    NewWidth := Screen.Width;
-    NewHeight := Screen.Height - yUnused;
+    NewWidth := Width;
+    NewHeight := Height - yUnused;
   end;
   if (Offscreen.Width <> NewWidth) or (Offscreen.Height <> NewHeight) then begin

trunk/Packages/DpiControls/Dpi.Controls.pas

@@ -375 +375 @@
   end;
 
-
 var
   Mouse: TMouse;