printf.pas

来自「极具实用价值的文件管理系统」· PAS 代码 · 共 98 行

{ *********************************************************************** }
{ Unit Name: PrintF                                                       
{ Purpose: PrintF  
{ Author: Cyclone
{ History:
{         2005-3-16 21:32:57 Create the function
{ *********************************************************************** }

unit PrintF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DialogBaseF, Buttons, CycSpeedButton, CycPanel, ExtCtrls,
  StdCtrls, ComCtrls, Mask, CycLabel, GR32_Image;

type
  TfmPrint = class(TfmDialogBase)
    gbxSetting: TGroupBox;
    gbxPreview: TGroupBox;
    btnPageSetting: TCycSpeedButton;
    lblPagePosition: TCycLabel;
    cbxPagePosition: TComboBox;
    gbxMargins: TGroupBox;
    lblTop: TCycLabel;
    edtTop: TMaskEdit;
    btnTop: TUpDown;
    lblBottom: TCycLabel;
    edtBottom: TMaskEdit;
    btnBottom: TUpDown;
    lblLeft: TCycLabel;
    edtLeft: TMaskEdit;
    btnLeft: TUpDown;
    lblRight: TCycLabel;
    edtRight: TMaskEdit;
    btnRight: TUpDown;
    gbxAdvanceOptions: TGroupBox;
    lblNumberOfCopy: TCycLabel;
    edtNumberOfCopy: TMaskEdit;
    btnNumberOfCopy: TUpDown;
    rdoFitPage: TRadioGroup;
    chkFittopage: TCheckBox;
    lblHeight: TCycLabel;
    lblWidth: TCycLabel;
    edtHeight: TMaskEdit;
    btnHeight: TUpDown;
    edtWidth: TMaskEdit;
    btnWidth: TUpDown;
    chkMaintainAspectRatio: TCheckBox;
    lblUnit: TCycLabel;
    edtUnit: TComboBox;
    pnlPage: TShape;
    shpMargin: TShape;
    imgPreview: TImage32;
    PrinterSetupDialog: TPrinterSetupDialog;
    procedure btnPageSettingClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmPrint: TfmPrint;

implementation

{$R *.dfm}

procedure TfmPrint.FormCreate(Sender: TObject);
begin
  inherited;
  //
end;

procedure TfmPrint.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  //
end;

procedure TfmPrint.FormActivate(Sender: TObject);
begin
  inherited;
  //
end;

procedure TfmPrint.btnPageSettingClick(Sender: TObject);
begin
  PrinterSetupDialog.Execute;
end;

end.