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.Font.Height = -11
Header.Text = 'test||' Header.Text = 'test||'
Orientation = poLandscape Orientation = poLandscape
PrintDialogs = gpdPrintDialog ShowPrintDialog = gpdPrintDialog
Left = 168 Left = 168
Top = 96 Top = 96
end end

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

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