pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

GridPrinter: Fix AutoSizing of Header/Footer Dialog.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8601 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-11-10 17:09:25 +00:00
parent c3d1e09bab
commit 413eaa1b60
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/gridprinter/source/gridprnheaderfooterform.pas
View File

@ -80,12 +80,13 @@ var
begin begin
delta := TabControl.Height - TabControl.ClientHeight; delta := TabControl.Height - TabControl.ClientHeight;
Constraints.MinHeight := delta + clbLineColor.Top + clbLineColor.Height + Constraints.MinHeight := delta + clbLineColor.Top + clbLineColor.Height +
clbLinecolor.BorderSpacing.Bottom + ButtonPanel1.Height + clbLinecolor.BorderSpacing.Bottom +
ButtonPanel1.Height + ButtonPanel1.BorderSpacing.Around * 2;// +
TabControl.BorderSpacing.Around * 2; TabControl.BorderSpacing.Around * 2;
Constraints.MinWidth := edTextLeft.Left + edTextLeft.Width + Bevel1.Width + Constraints.MinWidth := edTextLeft.Left + edTextLeft.Width + Bevel1.Width +
edTextCenter.Width + Bevel2.Width + edTextRight.Width + edTextRight.BorderSpacing.Right + edTextCenter.Width + Bevel2.Width + edTextRight.Width + edTextRight.BorderSpacing.Right +
TabControl.BorderSpacing.Around * 2; TabControl.BorderSpacing.Around * 2;
Width := 0; Width := 0; // Enforce the constraints
Height := 0; Height := 0;
end; end;