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

TRxDBGridPrint - fix margins in setup form

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3438 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-08-06 11:14:06 +00:00
parent f36775184f
commit 5cfb0fdd5b
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/rx/trunk/rxdbgridprintgrid.pas
View File

@ -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;