frxpreviewpagesettings.pas

报表源码 FastReport 3 is new generation of the report generators components. It consists of report engin

{******************************************}
{ }
{ FastReport v3.0 }
{ Preview Page settings }
{ }
{ Copyright (c) 1998-2005 }
{ by Alexander Tzyganenko, }
{ Fast Reports Inc. }
{ }
{******************************************}

unit frxPreviewPageSettings;

interface

{$I frx.inc}

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, frxClass
{$IFDEF Delphi6}
, Variants
{$ENDIF};

type
  TfrxDesignerUnits = (duCM, duInches, duPixels, duChars);

  TfrxPageSettingsForm = class(TForm)
    OKB:TButton;
    CancelB:TButton;
    SizeL:TGroupBox;
    WidthL:TLabel;
    HeightL:TLabel;
    UnitL1:TLabel;
    UnitL2:TLabel;
    WidthE:TEdit;
    HeightE:TEdit;
    SizeCB:TComboBox;
    OrientationL:TGroupBox;
    PortraitImg:TImage;
    LandscapeImg:TImage;
    PortraitRB:TRadioButton;
    LandscapeRB:TRadioButton;
    MarginsL:TGroupBox;
    LeftL:TLabel;
    TopL:TLabel;
    RightL:TLabel;
    BottomL:TLabel;
    UnitL3:TLabel;
    UnitL4:TLabel;
    UnitL5:TLabel;
    UnitL6:TLabel;
    MarginLeftE:TEdit;
    MarginTopE:TEdit;
    MarginRightE:TEdit;
    MarginBottomE:TEdit;
    OtherL:TGroupBox;
    ApplyToCurRB:TRadioButton;
    ApplyToAllRB:TRadioButton;
    procedure FormShow(Sender:TObject);
    procedure FormHide(Sender:TObject);
    procedure PortraitRBClick(Sender:TObject);
    procedure SizeCBClick(Sender:TObject);
    procedure WidthEChange(Sender:TObject);
  private
    { Private declarations }
    FPage:TfrxReportPage;
    FReport:TfrxReport;
    FUnits:TfrxDesignerUnits;
    FUpdating:Boolean;
    function GetNeedRebuild:Boolean;
    function mmToUnits(mm:Extended):Extended;
    function UnitsTomm(mm:Extended):Extended;
  public
    { Public declarations }
    property NeedRebuild:Boolean read GetNeedRebuild;
    property Page:TfrxReportPage read FPage write FPage;
    property Report:TfrxReport read FReport write FReport;
  end;

implementation

{$R *.DFM}

uses Printers, frxPrinter, frxUtils, frxRes, IniFiles;

function TfrxPageSettingsForm.mmToUnits(mm:Extended):Extended;
begin
  Result:= 0;
  case FUnits of
    duCM, duPixels, duChars:
      Result:= mm / 10;
    duInches:
      Result:= mm / 25.4;
  end;
end;

function TfrxPageSettingsForm.UnitsTomm(mm:Extended):Extended;
begin
  Result:= 0;
  case FUnits of
    duCM, duPixels, duChars:
      Result:= mm * 10;
    duInches:
      Result:= mm * 25.4;
  end;
end;

function TfrxPageSettingsForm.GetNeedRebuild:Boolean;
begin
  Result:= ApplyToAllRB.Checked;
end;

procedure TfrxPageSettingsForm.FormShow(Sender:TObject);
var
  i:Integer;
  Ini:TCustomIniFile;
  uStr:String;
begin
  FUpdating:= True;

  frxResources.LocalizeForm(Self);

  Ini:= Report.GetIniFile;
  FUnits:= TfrxDesignerUnits(Ini.ReadInteger('Form.TfrxDesignerForm', 'Units', 0));
  Ini.Free;

  uStr:= '';
  case FUnits of
    duCM, duPixels, duChars:
      uStr:= frxResources.Get('uCm');
    duInches:
      uStr:= frxResources.Get('uInch');
  end;

  UnitL1.Caption:= uStr;
  UnitL2.Caption:= uStr;
  UnitL3.Caption:= uStr;
  UnitL4.Caption:= uStr;
  UnitL5.Caption:= uStr;
  UnitL6.Caption:= uStr;

  SizeCB.Items:= frxPrinters.Printer.Papers;
  i:= frxPrinters.Printer.PaperIndex(Page.PaperSize);
  if i =-1 then
    i:= frxPrinters.Printer.PaperIndex(256);
  SizeCB.ItemIndex:= i;

  WidthE.Text:= frxFloatToStr(mmToUnits(Page.PaperWidth));
  HeightE.Text:= frxFloatToStr(mmToUnits(Page.PaperHeight));
  PortraitRB.Checked:= Page.Orientation = poPortrait;
  LandscapeRB.Checked:= Page.Orientation = poLandscape;

  MarginLeftE.Text:= frxFloatToStr(mmToUnits(Page.LeftMargin));
  MarginRightE.Text:= frxFloatToStr(mmToUnits(Page.RightMargin));
  MarginTopE.Text:= frxFloatToStr(mmToUnits(Page.TopMargin));
  MarginBottomE.Text:= frxFloatToStr(mmToUnits(Page.BottomMargin));

  PortraitRBClick(nil);
  FUpdating:= False;
end;

procedure TfrxPageSettingsForm.FormHide(Sender:TObject);
begin
  if ModalResult = mrOk then
  begin
    if PortraitRB.Checked then
      Page.Orientation:= poPortrait else
      Page.Orientation:= poLandscape;

    Page.PaperWidth:= UnitsTomm(frxStrToFloat(WidthE.Text));
    Page.PaperHeight:= UnitsTomm(frxStrToFloat(HeightE.Text));
    Page.PaperSize:= frxPrinters.Printer.PaperNameToNumber(SizeCB.Text);

    Page.LeftMargin:= UnitsTomm(frxStrToFloat(MarginLeftE.Text));
    Page.RightMargin:= UnitsTomm(frxStrToFloat(MarginRightE.Text));
    Page.TopMargin:= UnitsTomm(frxStrToFloat(MarginTopE.Text));
    Page.BottomMargin:= UnitsTomm(frxStrToFloat(MarginBottomE.Text));

    Page.AlignChildren;
  end;
end;

procedure TfrxPageSettingsForm.PortraitRBClick(Sender:TObject);
begin
  PortraitImg.Visible:= PortraitRB.Checked;
  LandscapeImg.Visible:= LandscapeRB.Checked;
  SizeCBClick(nil);
end;

procedure TfrxPageSettingsForm.SizeCBClick(Sender:TObject);
var
  pOr:TPrinterOrientation;
  pNumber:Integer;
  pWidth, pHeight:Extended;
begin
  if FUpdating then Exit;
  FUpdating:= True;

  with frxPrinters.Printer do
  begin
    pNumber:= PaperNameToNumber(SizeCB.Text);
    pWidth:= UnitsTomm(frxStrToFloat(WidthE.Text));
    pHeight:= UnitsTomm(frxStrToFloat(HeightE.Text));
    if PortraitRB.Checked then
      pOr:= poPortrait else
      pOr:= poLandscape;

    if pNumber = 256 then
      SetViewParams(pNumber, pHeight, pWidth, pOr) else
      SetViewParams(pNumber, pWidth, pHeight, pOr);

    WidthE.Text:= frxFloatToStr(mmToUnits(PaperWidth));
    HeightE.Text:= frxFloatToStr(mmToUnits(PaperHeight));
  end;

  FUpdating:= False;
end;

procedure TfrxPageSettingsForm.WidthEChange(Sender:TObject);
begin
  if not FUpdating then
    SizeCB.ItemIndex:= 0;
end;

end.