diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-16 17:27:42 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-16 17:27:42 +0100 |
| commit | 757301bc27a3929fdbd11eb0bf91531bda7990f2 (patch) | |
| tree | beec042161f7c70a2f3a515207c265e8d14866e0 | |
| parent | 787bbf336ef5e90bff4ee8f8a6327f06bb4db18f (diff) | |
| download | fpGUI-757301bc27a3929fdbd11eb0bf91531bda7990f2.tar.xz | |
pdf: all preview form related properties are now in one place in the code.
| -rw-r--r-- | src/reportengine/u_visu.pas | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/reportengine/u_visu.pas b/src/reportengine/u_visu.pas index bda8c35d..70d146ad 100644 --- a/src/reportengine/u_visu.pas +++ b/src/reportengine/u_visu.pas @@ -469,9 +469,11 @@ begin Name := 'F_Visu'; WindowTitle := 'Preview'; WindowPosition := wpUser; - SetPosition(0, 0, FpgApplication.ScreenWidth - 2, FpgApplication.ScreenHeight - 66); Sizeable := False; BackgroundColor := clMediumAquamarine; + SetPosition(0, 0, fpgApplication.ScreenWidth - 2, fpgApplication.ScreenHeight - 66); + OnShow := @FormShow; + CreateReportImages; Bv_Command := CreateBevel(Self, 0, 0, Width, 50, bsBox, bsRaised); Bv_Command.BackgroundColor := clBisque; @@ -512,7 +514,6 @@ begin 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); - OnShow := @FormShow; end; destructor TF_Visu.Destroy; |