You've already forked lazarus-ccr
c44066ae41
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8591 8e941d3f-bd1b-0410-a28a-d453659cc2b4
68 lines
1.3 KiB
ObjectPascal
68 lines
1.3 KiB
ObjectPascal
unit GridPrnPreviewDlg;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, GridPrn, GridPrnPreviewForm;
|
|
|
|
type
|
|
TGridPrintPreviewDialog = class(TComponent)
|
|
private
|
|
FGridPrinter: TGridPrinter;
|
|
FOptions: TGridPrintPreviewOptions;
|
|
protected
|
|
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
|
|
public
|
|
constructor Create(AOwner: TComponent); override;
|
|
procedure Execute;
|
|
published
|
|
property GridPrinter: TGridPrinter read FGridPrinter write FGridPrinter;
|
|
property Options: TGridPrintPreviewOptions
|
|
read FOptions write FOptions default DEFAULT_GRIDPRN_OPTIONS;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Controls;
|
|
|
|
constructor TGridPrintPreviewDialog.Create(AOwner: TComponent);
|
|
begin
|
|
inherited;
|
|
FOptions := DEFAULT_GRIDPRN_OPTIONS;
|
|
end;
|
|
|
|
procedure TGridPrintPreviewDialog.Execute;
|
|
var
|
|
F: TGridPrintPreviewForm;
|
|
begin
|
|
if FGridPrinter = nil then
|
|
exit;
|
|
|
|
F := TGridPrintPreviewForm.Create(nil);
|
|
try
|
|
F.GridPrinter := FGridPrinter;
|
|
F.Options := FOptions;
|
|
if (F.ShowModal = mrOK) then
|
|
FGridPrinter.Print;
|
|
finally
|
|
F.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TGridPrintPreviewDialog.Notification(AComponent: TComponent;
|
|
Operation: TOperation);
|
|
begin
|
|
inherited;
|
|
if Operation = opRemove then
|
|
begin
|
|
if AComponent = FGridPrinter then
|
|
FGridPrinter := nil;
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|