rm_prvdlg.pas

专用条码打印工具

{*****************************************}
{                                         }
{             Report Machine v2.0         }
{             Report preview Dlg          }
{                                         }
{*****************************************}

unit RM_PrvDlg;

interface

{$I RM.inc}

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Buttons, StdCtrls, Menus, RM_Const, RM_View, RM_common,
  TB97Tlbr, TB97Ctls, TB97
{$IFDEF Delphi4}, ImgList, RzButton, RzLabel, RzPanel{$ENDIF};

type
  TRMPreviewForm = class(TForm)
    ProcMenu: TPopupMenu;
    itmScale200: TMenuItem;
    itmScale150: TMenuItem;
    itmScale100: TMenuItem;
    itmScaale75: TMenuItem;
    itmScale50: TMenuItem;
    itmScale25: TMenuItem;
    itmScale10: TMenuItem;
    itmPageWidth: TMenuItem;
    itmOnePage: TMenuItem;
    itmDoublePage: TMenuItem;
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    PreviewPanel: TPanel;
    ImageList1: TImageList;
    N1: TMenuItem;
    itmNewPage: TMenuItem;
    itmDeletePage: TMenuItem;
    itmEditPage: TMenuItem;
    Dock971: TDock97;
    ToolbarStand: TToolbar97;
    btnAutoScale: TToolbarButton97;
    btnOnePage: TToolbarButton97;
    BtnExit: TToolbarButton97;
    btn100: TToolbarButton97;
    btnPageSetup: TToolbarButton97;
    btnPageWidth: TToolbarButton97;
    ToolbarSep972: TToolbarSep97;
    btnPrint: TToolbarButton97;
    ToolbarSep973: TToolbarSep97;
    btnTop: TToolbarButton97;
    btnSave: TToolbarButton97;
    btnPrev: TToolbarButton97;
    btnOpen: TToolbarButton97;
    btnNext: TToolbarButton97;
    btnLast: TToolbarButton97;
    btnFind: TToolbarButton97;
    ToolbarSep974: TToolbarSep97;
    ToolbarSep975: TToolbarSep97;
    tbLine: TToolbarSep97;
    ToolbarDraw: TToolbar97;
    ToolbarButton971: TToolbarButton97;
    ToolbarButton972: TToolbarButton97;
    ToolbarButton973: TToolbarButton97;
    ToolbarButton974: TToolbarButton97;
    ToolbarButton975: TToolbarButton97;
    ToolbarButton976: TToolbarButton97;
    ToolbarButton977: TToolbarButton97;
    ImageList2: TImageList;
    ToolbarButton978: TToolbarButton97;
    ToolbarButton979: TToolbarButton97;
    ToolbarButton9710: TToolbarButton97;
    ToolbarButton9711: TToolbarButton97;
    ToolbarSep976: TToolbarSep97;
    ToolbarSep977: TToolbarSep97;
    Dock972: TDock97;
    Dock973: TDock97;
    Dock974: TDock97;
    N4: TMenuItem;
    itmPrint: TMenuItem;
    itmPrintCurrentPage: TMenuItem;
    RzPanel3: TRzPanel;
    RzLabel1: TRzLabel;
    RzPanel2: TRzPanel;
    RzToolButton1: TRzToolButton;
    ImageList3: TImageList;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btnTopClick(Sender: TObject);
    procedure btnPrevClick(Sender: TObject);
    procedure btnNextClick(Sender: TObject);
    procedure btnLastClick(Sender: TObject);
    procedure btn100Click(Sender: TObject);
    procedure btnOnePageClick(Sender: TObject);
    procedure btnPageWidthClick(Sender: TObject);
    procedure itmScale10Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnOpenClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnPrintClick(Sender: TObject);
    procedure btnFindClick(Sender: TObject);
    procedure itmNewPageClick(Sender: TObject);
    procedure itmDeletePageClick(Sender: TObject);
    procedure itmEditPageClick(Sender: TObject);
    procedure btnPageSetupClick(Sender: TObject);
    procedure ProcMenuPopup(Sender: TObject);
    procedure btnAutoScaleClick(Sender: TObject);
    procedure BtnExitClick(Sender: TObject);
    procedure itmPrintCurrentPageClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    FDoc: Pointer;
    FViewer: TRMPreview;
    FCmbZoom: TRMComboBox;
    procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
    procedure OnStatusChange(Sender: TObject);
    procedure OnCmbZoomChange(Sender: TObject);
    procedure Localize;
  public
    { Public declarations }
    procedure Show_Modal(ADoc: Pointer);
  end;

implementation

{$R *.DFM}

uses RM_Class, Printers, RM_Prntr, RM_PrDlg, RM_Utils, RM_CmpReg;

var
  LastScale: Double = 1;
  LastScaleMode: TRMScaleMode = mdNone;
  LastAutoScale: Boolean = False;

procedure TRMPreviewForm.Localize;
begin
	Font.Name := RMLoadStr(SRMDefaultFontName);
  Font.Size := StrToInt(RMLoadStr(SRMDefaultFontSize));
  Font.Charset := StrToInt(RMLoadStr(SCharset));

  itmPageWidth.Caption := RMLoadStr(rmRes + 020);
  itmOnePage.Caption := RMLoadStr(rmRes + 021);
  itmDoublePage.Caption := RMLoadStr(rmRes + 022);
  itmNewPage.Caption := RMLoadStr(rmRes + 030);
  itmDeletePage.Caption := RMLoadStr(rmRes + 031);
  itmEditPage.Caption := RMLoadStr(rmRes + 029);
  itmPrint.Caption := RMLoadStr(rmRes + 40) + '...';
  itmPrintCurrentPage.Caption := RMLoadStr(rmRes + 376);

  btnOpen.Hint := RMLoadStr(rmRes + 025);
  btnSave.Hint := RMLoadStr(rmRes + 026);
  btnPrint.Hint := RMLoadStr(rmRes + 027);
  btnFind.Hint := RMLoadStr(rmRes + 028);
  btnExit.Hint := RMLoadStr(rmRes + 023);
  btnOnePage.Hint := RMLoadStr(rmRes + 1858);
  btnPageWidth.Hint := RMLoadStr(rmRes + 1857);
  btnTop.Hint :=  RMLoadStr(rmRes + 32);
  btnPrev.Hint :=  RMLoadStr(rmRes + 33);
  btnNext.Hint :=  RMLoadStr(rmRes + 34);
  btnLast.Hint :=  RMLoadStr(rmRes + 35);
  btnPageSetup.Hint := RMLoadStr(rmRes + 24);
end;

procedure TRMPreviewForm.OnStatusChange(Sender: TObject);
begin
  case FViewer.ZoomMode of
    mdPageWidth: btnPageWidth.Down := TRUE;
    mdOnePage: btnOnePage.Down := TRUE;
  else
    if Round(FViewer.Zoom) = 100 then
      btn100.Down := TRUE
    else
    begin
      btn100.Down := FALSE;
      btnPageWidth.Down := FALSE;
      btnOnePage.Down := FALSE;
    end;
  end;

  if btnPageWidth.Down then
    FCmbZoom.ItemIndex := 7
  else if btnOnePage.Down then
    FCmbZoom.ItemIndex := 8
  else if btn100.Down then
    FCmbZoom.ItemIndex := 2
  else
    FCmbZoom.ItemIndex := FCmbZoom.Items.IndexOf(IntToStr(Round(FViewer.Zoom)) + '%');
end;

procedure TRMPreviewForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if FormStyle <> fsMDIChild then
    RMSaveFormPosition(Self);
  Action := caFree;
end;

procedure TRMPreviewForm.Show_Modal(ADoc: Pointer);
begin
  FDoc := ADoc;
  FViewer.Connect(ADoc);
  FViewer.OnStatusChange := OnStatusChange;

  N4.Visible := RMDesignerClass <> nil;
  itmNewPage.Visible := N4.Visible;
  itmDeletePage.Visible := N4.Visible;
  itmEditPage.Visible := N4.Visible;

  if not (csDesigning in TRMReport(ADoc).ComponentState) then
  begin
    FCmbZoom.Visible := pbZoom in TRMReport(ADoc).PreviewButtons;
    btnOpen.Visible := pbLoad in TRMReport(ADoc).PreviewButtons;
    btnSave.Visible := pbSave in TRMReport(ADoc).PreviewButtons;
    btnPrint.Visible := pbPrint in TRMReport(ADoc).PreviewButtons;
    btnExit.Visible := pbExit in TRMReport(ADoc).PreviewButtons;
  end;

  case TRMReport(ADoc).InitialZoom of
    pzPageWidth: btnPageWidth.Down := TRUE;
    pzOnePage: btnOnePage.Down := TRUE;
  else
    FViewer.LastScale := LastScale;
    FViewer.ZoomMode := LastScaleMode;
//    btn100.Down := TRUE;
  end;

  FViewer.AutoScale := LastAutoScale;
  btnAutoScale.Down := FViewer.AutoScale;
  btnPrint.Enabled := Printer.Printers.Count > 0;
  FCmbZoom.Text := IntToStr(Round(FViewer.Zoom)) + '%';
  tbLine.Visible := FCmbZoom.Visible;
  if TRMReport(ADoc).ModalPreview and (not TRMReport(ADoc).MDIPreview) then
    ShowModal
  else
    Show;
end;

procedure TRMPreviewForm.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
  with Msg.MinMaxInfo^ do
  begin
    ptMaxSize.x := Screen.Width;
    ptMaxSize.y := Screen.Height;
    ptMaxPosition.x := 0;
    ptMaxPosition.y := 0;
  end;
end;

procedure TRMPreviewForm.FormCreate(Sender: TObject);
begin
	Localize;
	FCmbZoom := TRMComboBox.Create(ToolbarStand);
  with FCmbZoom do
  begin
  	Parent := ToolbarStand;
    SetBounds(0, 1, 60, 20);
    DropDownCount := 11;
    Items.Add('200%');
		Items.Add('150%');
		Items.Add('100%');
		Items.Add('75%');
		Items.Add('50%');
		Items.Add('25%');
		Items.Add('10%');
    Items.Add(RMLoadStr(rmRes + 1857));
    Items.Add(RMLoadStr(rmRes + 1858));
    Items.Add(RMLoadStr(rmRes + 1859));
    OnChange := OnCmbZoomChange;
  end;
  ToolbarStand.OrderIndex[FCmbZoom] := 0;

  FViewer := TRMPreview.Create(Self);
  with FViewer do
  begin
    Align := alClient;
    Parent := PreviewPanel;
    PopupMenu := ProcMenu;
    AutoScale := False;
    ParentForm := Self;
  end;
end;

procedure TRMPreviewForm.FormDestroy(Sender: TObject);
begin
//  FViewer.Free;
//  FViewer := nil;
end;

procedure TRMPreviewForm.btnTopClick(Sender: TObject);
begin
  FViewer.First;
end;

procedure TRMPreviewForm.btnPrevClick(Sender: TObject);
begin
  FViewer.Prev;
end;

procedure TRMPreviewForm.btnNextClick(Sender: TObject);
begin
  FViewer.Next;
end;

procedure TRMPreviewForm.btnLastClick(Sender: TObject);
begin
  FViewer.Last;
end;

procedure TRMPreviewForm.btn100Click(Sender: TObject);
begin
  FViewer.Zoom := 100;
  LastScale := FViewer.LastScale;
  LastScaleMode := FViewer.ZoomMode;
end;

procedure TRMPreviewForm.btnOnePageClick(Sender: TObject);
begin
  FViewer.OnePage;
  LastScale := FViewer.LastScale;
  LastScaleMode := FViewer.ZoomMode;
end;

procedure TRMPreviewForm.btnPageWidthClick(Sender: TObject);
begin
  FViewer.PageWidth;
  LastScale := FViewer.LastScale;
  LastScaleMode := FViewer.ZoomMode;
end;

procedure TRMPreviewForm.itmScale10Click(Sender: TObject);
begin
  with Sender as TMenuItem do
  begin
    case Tag of
      1: FViewer.PageWidth;
      2: FViewer.OnePage;
      3: FViewer.TwoPages;
    else
      FViewer.Zoom := Tag;
    end;
    Checked := True;
  end;
  FCmbZoom.Text := IntToStr(Round(FViewer.Zoom)) + '%';
  LastScale := FViewer.LastScale;
  LastScaleMode := FViewer.ZoomMode;
end;

procedure TRMPreviewForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if FViewer.Doc = nil then Exit;
  if Key in [vk_Up, vk_Down, vk_Prior, vk_Next] then
    if FViewer.VScrollBar.Enabled then FViewer.VScrollBar.SetFocus;
  if Key in [vk_Left, vk_Right] then
    if FViewer.HScrollBar.Enabled then FViewer.HScrollBar.SetFocus;
  if Key = vk_Up then
    FViewer.VScrollBar.Position := FViewer.VScrollBar.Position - FViewer.VScrollBar.SmallChange
  else if Key = vk_Down then
    FViewer.VScrollBar.Position := FViewer.VScrollBar.Position + FViewer.VScrollBar.SmallChange
  else if Key = vk_Left then
    FViewer.HScrollBar.Position := FViewer.HScrollBar.Position - FViewer.HScrollBar.SmallChange
  else if Key = vk_Right then
    FViewer.HScrollBar.Position := FViewer.HScrollBar.Position + FViewer.HScrollBar.SmallChange
  else if Key = vk_Prior then
  begin
    if ssCtrl in Shift then
      btnPrev.Click
    else
      FViewer.VScrollBar.Position := FViewer.VScrollBar.Position - FViewer.VScrollBar.LargeChange;
  end
  else if Key = vk_Next then
  begin
    if ssCtrl in Shift then
      btnNext.Click
    else
      FViewer.VScrollBar.Position := FViewer.VScrollBar.Position + FViewer.VScrollBar.LargeChange;
  end
  else if Key = vk_Escape then
    btnExit.Click
  else if Key = vk_Home then
  begin
    if ssCtrl in Shift then
      FViewer.VScrollBar.Position := 0
    else
      Exit;
  end
  else if Key = vk_End then
  begin
    if ssCtrl in Shift then
      btnLast.Click
    else
      Exit;
  end
  else if ssCtrl in Shift then
  begin
		if (ssAlt in Shift) and (Chr(Key) = 'P') and btnPrint.Enabled then
			FViewer.PrintCurrentPage
    else if Chr(Key) = 'O' then btnOpen.Click
    else if Chr(Key) = 'S' then btnSave.Click
    else if (Chr(Key) = 'P') and btnPrint.Enabled then btnPrint.Click
    else if Chr(Key) = 'F' then btnFind.Click
    else if (Chr(Key) = 'E') and itmEditPage.Visible then itmEditPage.Click;
  end
  else if Key = vk_F3 then
  begin
    if FViewer.FindStr <> '' then
    begin
      if FViewer.LastFoundPage <> FViewer.CurPage - 1 then
      begin
        FViewer.LastFoundPage := FViewer.CurPage - 1;
        FViewer.LastFoundObject := 0;
      end;
      FViewer.FindNext;
    end;
  end
  else
    Exit;

  Key := 0;
end;

procedure TRMPreviewForm.btnOpenClick(Sender: TObject);
begin
  if FViewer.Doc = nil then
    Exit;

  OpenDialog.Filter := RMLoadStr(SRepFile) + ' (*.rmp)|*.rmp';
  with OpenDialog do
  begin
    if Execute then
      FViewer.LoadFromFile(FileName);
  end;
end;

procedure TRMPreviewForm.btnSaveClick(Sender: TObject);
var
  i: Integer;
  s: string;
begin
  if FViewer.Doc = nil then
    Exit;

  s := RMLoadStr(SRepFile) + ' (*.rmp)|*.rmp';
  for i := 0 to RMFiltersCount - 1 do
    s := s + '|' + RMFilters(i).FilterDesc + '|' + RMFilters(i).FilterExt;

  SaveDialog.Filter := s;
  SaveDialog.FilterIndex := 1;
  if SaveDialog.Execute then
  begin
    FViewer.SaveToFile(SaveDialog.FileName, SaveDialog.FilterIndex);
  end;
end;

procedure TRMPreviewForm.btnPrintClick(Sender: TObject);
begin
  FViewer.Print;
end;

procedure TRMPreviewForm.OnCmbZoomChange(Sender: TObject);
begin
  case FCmbZoom.ItemIndex of
    0: FViewer.Zoom := 200;
    1: FViewer.Zoom := 150;
    2: FViewer.Zoom := 100;
    3: FViewer.Zoom := 75;
    4: FViewer.Zoom := 50;
    5: FViewer.Zoom := 25;
    6: FViewer.Zoom := 10;
    7: FViewer.PageWidth;
    8: FViewer.OnePage;
    9: FViewer.TwoPages;
  end;
end;

procedure TRMPreviewForm.btnFindClick(Sender: TObject);
begin
  FViewer.Find;
end;

procedure TRMPreviewForm.itmNewPageClick(Sender: TObject);
begin
  FViewer.AddPage;
end;

procedure TRMPreviewForm.itmDeletePageClick(Sender: TObject);
begin
	FViewer.DeletePage(FViewer.CurPage - 1);
end;

procedure TRMPreviewForm.itmEditPageClick(Sender: TObject);
begin
  FViewer.EditPage(FViewer.CurPage - 1);
end;

procedure TRMPreviewForm.btnPageSetupClick(Sender: TObject);
begin
  FViewer.DlgPageSetup;
end;

procedure TRMPreviewForm.ProcMenuPopup(Sender: TObject);
begin
  N4.Visible := FViewer.CanModify;
  itmNewPage.Visible := N4.Visible;
  itmDeletePage.Visible := N4.Visible;
  itmEditPage.Visible := N4.Visible;
end;

procedure TRMPreviewForm.btnAutoScaleClick(Sender: TObject);
begin
	FViewer.AutoScale := btnAutoScale.Down;
  LastAutoScale := btnAutoScale.Down;
end;

procedure TRMPreviewForm.BtnExitClick(Sender: TObject);
begin
  if TRMReport(FDoc).ModalPreview then
    ModalResult := mrOk
  else
    Close;
end;

procedure TRMPreviewForm.itmPrintCurrentPageClick(Sender: TObject);
begin
	FViewer.PrintCurrentPage;
end;

procedure TRMPreviewForm.FormShow(Sender: TObject);
begin
  if FormStyle <> fsMDIChild then
    RMRestoreFormPosition(Self);
end;

end.