diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-16 17:33:39 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-16 17:33:39 +0100 |
| commit | 28635bb281f0374ae8466a25854d7c71701ec95a (patch) | |
| tree | 132bc667272c851434f7d2ec8f55c07b9adfe7bc /src/reportengine/u_visu.pas | |
| parent | b9a500e818228e751da10548f46e6427dbe0eb74 (diff) | |
| download | fpGUI-28635bb281f0374ae8466a25854d7c71701ec95a.tar.xz | |
pdf preview: label text is now horizontally aligned with other text.
Specifying a 0 width meant the AutoSize = True kicked in, and the width and height was
adjusted, giving the uneven horizontal alignment with other widgets.
Diffstat (limited to 'src/reportengine/u_visu.pas')
| -rw-r--r-- | src/reportengine/u_visu.pas | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/reportengine/u_visu.pas b/src/reportengine/u_visu.pas index 43e3ca6b..88bfa356 100644 --- a/src/reportengine/u_visu.pas +++ b/src/reportengine/u_visu.pas @@ -490,21 +490,21 @@ begin E_NumPage.OnKeyPress := @E_NumPageKeypress; Bt_NextPage := CreateButton(Bv_Pages, 174, 6, 26, '', @Bt_NextPageClick, 'repimg.Next'); Bt_LastPage := CreateButton(Bv_Pages, 200, 6, 26, '', @Bt_LastPageClick, 'repimg.Last'); - L_Pages := CreateLabel(Bv_Pages, 5, E_NumPage.Top, 'Page', 0, E_NumPage.Height, taLeftJustify, tlcenter); - L_FromPage := CreateLabel(Bv_Pages, 235, E_NumPage.Top, 'of', 0, E_NumPage.Height, taLeftJustify, tlcenter); + L_Pages := CreateLabel(Bv_Pages, 5, E_NumPage.Top, 'Page', 45, E_NumPage.Height, taLeftJustify, tlcenter); + L_FromPage := CreateLabel(Bv_Pages, 235, E_NumPage.Top, 'of', 30, E_NumPage.Height, taLeftJustify, tlcenter); L_NbrPages := CreateLabel(Bv_Pages, 265, E_NumPage.Top, ' ', 30, E_NumPage.Height, taCenter, tlcenter); Bv_Sections := CreateBevel(Bv_Command, 540, 5, 500, 40, bsBox, bsLowered); Bt_PrecSect := CreateButton(Bv_Sections, 90, 6, 26, '', @Bt_PrecSectClick, 'repimg.Precedent'); E_NumSect := CreateEditInteger(Bv_Sections, 120, 8, 60, 0); E_NumSect.OnKeyPress := @E_NumSectKeyPress; Bt_NextSect := CreateButton(Bv_Sections, 184, 6, 26, '', @Bt_NextSectClick, 'repimg.Next'); - L_Sections := CreateLabel(Bv_Sections, 5, E_NumSect.Top, 'Section', 0, E_NumSect.Height, taLeftJustify, tlcenter); - L_FromSect := CreateLabel(Bv_Sections, 250, E_NumSect.Top, 'of', 0, E_NumSect.Height, taLeftJustify, tlcenter); - L_NbrSect := CreateLabel(Bv_Sections, 280, E_NumSect.Top, '-', 0, E_NumSect.Height, taLeftJustify, tlcenter); - L_PageSect := CreateLabel(Bv_Sections, 320, E_NumSect.Top, 'Page', 0, E_NumSect.Height, taLeftJustify, tlcenter); - L_NumPageSect := CreateLabel(Bv_Sections, 365, E_NumSect.Top, '-', 0, E_NumSect.Height, taLeftJustify, tlcenter); - L_FromPageSect := CreateLabel(Bv_Sections, 410, E_NumSect.Top, 'of', 0, E_NumSect.Height, taLeftJustify, tlcenter); - L_NbrPageSect := CreateLabel(Bv_Sections, 440, E_NumSect.Top, '-', 0, E_NumSect.Height, taLeftJustify, tlcenter); + L_Sections := CreateLabel(Bv_Sections, 5, E_NumSect.Top, 'Section', 75, E_NumSect.Height, taLeftJustify, tlcenter); + L_FromSect := CreateLabel(Bv_Sections, 250, E_NumSect.Top, 'of', 30, E_NumSect.Height, taLeftJustify, tlcenter); + L_NbrSect := CreateLabel(Bv_Sections, 280, E_NumSect.Top, '-', 30, E_NumSect.Height, taLeftJustify, tlcenter); + L_PageSect := CreateLabel(Bv_Sections, 320, E_NumSect.Top, 'Page', 45, E_NumSect.Height, taLeftJustify, tlcenter); + L_NumPageSect := CreateLabel(Bv_Sections, 365, E_NumSect.Top, '-', 30, E_NumSect.Height, taLeftJustify, tlcenter); + L_FromPageSect := CreateLabel(Bv_Sections, 410, E_NumSect.Top, 'of', 30, E_NumSect.Height, taLeftJustify, tlcenter); + L_NbrPageSect := CreateLabel(Bv_Sections, 440, E_NumSect.Top, '-', 30, E_NumSect.Height, taLeftJustify, tlcenter); end; destructor TF_Visu.Destroy; |