margink.pas

企业智能(ERP)管理系统

// create 李泽伦
unit margink;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Spin, ReportControl, ExtCtrls, GodmanForm;

type
  TMarginkForm = class(TGodmanForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    LeftMargin: TSpinEdit;
    TopMargin: TSpinEdit;
    RightMargin: TSpinEdit;
    BottomMargin: TSpinEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label5: TLabel;
    PrinterSetupDialog1: TPrinterSetupDialog;
    Label6: TLabel;
    SpeedButton2: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    class function EditReportControl(AOwner:TComponent;ReportControl:TReportControl):TModalResult;
  end;

implementation

uses creport, PreviewDbGrid;

{$R *.DFM}

procedure TMarginkForm.FormCreate(Sender: TObject);
begin

  // NewTableBox.Checked := True;
  // LineCountEdit.Value := 32767;
end;

procedure TMarginkForm.SpeedButton2Click(Sender: TObject);
begin
  //If PrinterSetupDialog1.Execute Then
  //begin
   // cp_pgw:=0;
   // Creportform.ReportControl1.CalcWndSize;
  //end;
  PrinterSetupDialog1.Execute;
end;

class function TMarginkForm.EditReportControl(
  AOwner:TComponent;ReportControl: TReportControl):TModalResult;
var
  MarginRect: TRect;
begin
  Result:=mrCancel;
  with TMarginkForm.GodmanCreate(AOwner) do begin
    try
      MarginRect := ReportControl.GetMargin;
      LeftMargin.Value := MarginRect.Left;
      TopMargin.Value := MarginRect.Top;
      RightMargin.Value := MarginRect.Right;
      BottomMargin.Value := MarginRect.Bottom;
      //NewTableBox.Checked := ReportControl1.IsNewTable;
      //LineCountEdit.Value := ReportControl1.DataLine;
      //TableCountEdit.Value := ReportControl1.TablePerPage;
      prDeviceMode;
      with Devmode^ do //设置打印纸  李泽伦
      begin
        dmFields := dmFields or DM_PAPERSIZE;
        dmPapersize := ReportControl.FprPageNo;
        dmFields := dmFields or DM_ORIENTATION;
        dmOrientation := ReportControl.FprPageXy;

        dmPaperLength := ReportControl.fpaperLength;
        dmPaperWidth := ReportControl.fpaperWidth;
      end;
      if ShowModal = mrOK then
      begin
        ReportControl.SetMargin(LeftMargin.Value,
          TopMargin.Value,
          RightMargin.Value,
          BottomMargin.Value);
        Result:=mrOK;
      end;
    finally
      Free;
    end;
  end;
end;

end.