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

GridPrinter: Rename TGridPrinter property PrintDialogs to ShowPrintDialog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8593 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-11-08 23:02:34 +00:00
parent e2badd8381
commit 5733bf1c3b
2 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/gridprinter/examples/stringgrid/main.lfm
View File

@ -60,7 +60,7 @@ object Form1: TForm1
Header.Font.Height = -11
Header.Text = 'test||'
Orientation = poLandscape
PrintDialogs = gpdPrintDialog
ShowPrintDialog = gpdPrintDialog
Left = 168
Top = 96
end

14
components/gridprinter/source/gridprn.pas
View File

@ -112,8 +112,8 @@ type
FPadding: Integer;
FPageHeight: Integer;
FPageWidth: Integer;
FPrintDialogs: TGridPrnDialog;
FPrintOrder: TGridPrnOrder;
FShowPrintDialog: TGridPrnDialog;
FToPage: Integer;
FOnAfterPrint: TNotifyEvent;
FOnBeforePrint: TNotifyEvent;
@ -135,6 +135,7 @@ type
function IsBorderLineWidthStored: Boolean;
function IsFixedLineWidthStored: Boolean;
function IsGridLineWidthStored: Boolean;
function IsOrientationStored: Boolean;
procedure SetBorderLineColor(AValue: TColor);
procedure SetBorderLineWidth(AValue: Double);
procedure SetFileName(AValue: String);
@ -230,9 +231,9 @@ type
property Header: TGridPrnHeaderFooter read FHeader write FHeader;
property Margins: TGridPrnMargins read FMargins write FMargins;
property Monochrome: Boolean read FMonochrome write FMonochrome default false;
property Orientation: TPrinterOrientation read GetOrientation write SetOrientation default poPortrait;
property PrintDialogs: TGridPrnDialog read FPrintDialogs write FPrintDialogs default gpdNone;
property Orientation: TPrinterOrientation read GetOrientation write SetOrientation stored IsOrientationStored;
property PrintOrder: TGridPrnOrder read FPrintOrder write FPrintOrder default poRowsFirst;
property ShowPrintDialog: TGridPrnDialog read FShowPrintDialog write FShowPrintDialog default gpdNone;
property ToPage: Integer read FToPage write FToPage default 0;
property OnAfterPrint: TNotifyEvent read FOnAfterPrint write FOnAfterPrint;
property OnBeforePrint: TNotifyEvent read FOnBeforePrint write FOnBeforePrint;
@ -725,6 +726,11 @@ begin
Result := FGridLineWidth >= 0.0;
end;
function TGridPrinter.IsOrientationStored: Boolean;
begin
Result := GetOrientation <> poPortrait;
end;
{ Find the column and row indices before which page breaks are occuring.
Store them in the arrays FPageBreakCols and FPageBreakRows.
Note that the indices do not contain the fixed columns/rows. }
@ -888,7 +894,7 @@ begin
exit;
SetGrid(FGrid);
case FPrintDialogs of
case FShowPrintDialog of
gpdNone:
;
gpdPageSetup: