From 633bb96ef50ef7693eb81651b4717af470b1f3b5 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 16 Aug 2012 17:35:44 +0100 Subject: pdf preview: fix the horizontal alignment of the Integer Edit widgets. The now match the horizontal alignment of adjacent buttons. --- src/reportengine/u_visu.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/reportengine') diff --git a/src/reportengine/u_visu.pas b/src/reportengine/u_visu.pas index 88bfa356..45180a71 100644 --- a/src/reportengine/u_visu.pas +++ b/src/reportengine/u_visu.pas @@ -486,7 +486,7 @@ begin Bv_Pages := CreateBevel(Bv_Command, 220, 5, 300, 40, bsBox, bsLowered); Bt_FirstPage := CreateButton(Bv_Pages, 54, 6, 26, '', @Bt_FirstPageClick, 'repimg.First'); Bt_PrecPage := CreateButton(Bv_Pages, 80, 6, 26, '', @Bt_PrecPageClick, 'repimg.Precedent'); - E_NumPage := CreateEditInteger(Bv_Pages, 110, 8, 60, 0); + E_NumPage := CreateEditInteger(Bv_Pages, 110, 6, 60, 0); 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'); @@ -495,7 +495,7 @@ begin 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 := CreateEditInteger(Bv_Sections, 120, 6, 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', 75, E_NumSect.Height, taLeftJustify, tlcenter); -- cgit v1.2.3-70-g09d2