From 5cfb0fdd5bb01ba260a34a2afabd41d6993bddfd Mon Sep 17 00:00:00 2001 From: alexs75 Date: Wed, 6 Aug 2014 11:14:06 +0000 Subject: [PATCH] TRxDBGridPrint - fix margins in setup form git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3438 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/rx/trunk/rxdbgridprintgrid.pas | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/components/rx/trunk/rxdbgridprintgrid.pas b/components/rx/trunk/rxdbgridprintgrid.pas index 57f4e6297..3f64ea7fd 100644 --- a/components/rx/trunk/rxdbgridprintgrid.pas +++ b/components/rx/trunk/rxdbgridprintgrid.pas @@ -463,10 +463,12 @@ begin RxDBGridPrintGrid_SetupForm.Edit1.Text:=FReportTitle; RxDBGridPrintGrid_SetupForm.RadioGroup1.ItemIndex:=ord(FOrientation); - RxDBGridPrintGrid_SetupForm.SpinEdit1.Value:=FPageMargin.Left; - RxDBGridPrintGrid_SetupForm.SpinEdit2.Value:=FPageMargin.Top; + + RxDBGridPrintGrid_SetupForm.SpinEdit2.Value:=FPageMargin.Left; + RxDBGridPrintGrid_SetupForm.SpinEdit1.Value:=FPageMargin.Top; RxDBGridPrintGrid_SetupForm.SpinEdit3.Value:=FPageMargin.Right; RxDBGridPrintGrid_SetupForm.SpinEdit4.Value:=FPageMargin.Bottom; + RxDBGridPrintGrid_SetupForm.CheckBox1.Checked:=FShowColumnHeaderOnAllPage; RxDBGridPrintGrid_SetupForm.CheckGroup1.Checked[0]:=rxpoShowTitle in FOptions; @@ -480,8 +482,9 @@ begin begin FReportTitle := RxDBGridPrintGrid_SetupForm.Edit1.Text; FOrientation := TPrinterOrientation(RxDBGridPrintGrid_SetupForm.RadioGroup1.ItemIndex); - FPageMargin.Left := RxDBGridPrintGrid_SetupForm.SpinEdit1.Value; - FPageMargin.Top := RxDBGridPrintGrid_SetupForm.SpinEdit2.Value; + + FPageMargin.Left := RxDBGridPrintGrid_SetupForm.SpinEdit2.Value; + FPageMargin.Top := RxDBGridPrintGrid_SetupForm.SpinEdit1.Value; FPageMargin.Right := RxDBGridPrintGrid_SetupForm.SpinEdit3.Value; FPageMargin.Bottom := RxDBGridPrintGrid_SetupForm.SpinEdit4.Value;