Changeset 684 for trunk/Packages/CevoComponents/BaseWin.pas

Timestamp:

Jul 26, 2025, 10:38:53 PM (14 hours ago)

Author:

chronos

Message:

• Modified: Improved forms painting if resized to bigger dimensions.

File:

• trunk/Packages/CevoComponents/BaseWin.pas (modified) (9 diffs)

trunk/Packages/CevoComponents/BaseWin.pas

@@ -23 +23 @@
     procedure OffscreenPaint; virtual;
     procedure VPaint; virtual;
+    procedure DoOnResize; override;
   public
     UserLeft: Integer;
@@ -40 +41 @@
   end;
 
+  { TFramedDlg }
+
   TFramedDlg = class(TBufferedDrawDlg)
   protected
@@ -53 +56 @@
     procedure VPaint; override;
     procedure FillOffscreen(Left, Top, Width, Height: Integer);
+    procedure DoOnResize; override;
   public
     constructor Create(AOwner: TComponent); override;
@@ -167 +171 @@
 begin
   BitBltCanvas(Canvas, 0, 0, ClientWidth, ClientHeight, Offscreen.Canvas, 0, 0);
+end;
+
+procedure TBufferedDrawDlg.DoOnResize;
+begin
+  inherited;
+  SmartUpdateContent;
 end;
 
@@ -232 +242 @@
 end;
 
-constructor TFramedDlg.Create;
+constructor TFramedDlg.Create(AOwner: TComponent);
 begin
   OnCreate := FormCreate;
@@ -247 +257 @@
   ModalIndication := True;
   Canvas.Brush.Style := TBrushStyle.bsClear;
-  InnerWidth := Width - 2 * SideFrame;
-  InnerHeight := Height - TitleHeight - NarrowFrame;
+  DoOnResize;
 end;
 
@@ -304 +313 @@
   L := BiColorTextWidth(Canvas, Caption);
   Cut := (ClientWidth - L) div 2;
-  xTexOffset := (Maintexture.Width - ClientWidth) div 2;
-  yTexOffset := (Maintexture.Height - ClientHeight) div 2;
+  xTexOffset := 0; //(Maintexture.Width - ClientWidth) div 2;
+  yTexOffset := 0; //(Maintexture.Height - ClientHeight) div 2;
   if WideBottom then
     InnerBottom := ClientHeight - WideFrame
@@ -332 +341 @@
   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);
@@ -471 +481 @@
 begin
   Fill(Offscreen.Canvas, Left, Top, Width, Height,
-    SideFrame + (Maintexture.Width - ClientWidth) div 2,
-    TitleHeight + (Maintexture.Height - ClientHeight) div 2);
+    SideFrame, TitleHeight);
+end;
+
+procedure TFramedDlg.DoOnResize;
+begin
+  inherited;
+  InnerWidth := Width - 2 * SideFrame;
+  InnerHeight := Height - TitleHeight - NarrowFrame;
+  SmartUpdateContent;
 end;