unit3.pas

Report Machine Sample

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ImgList, RM_Preview, ComCtrls, ToolWin;

type
  TForm3 = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ImageList2: TImageList;
    RMPreview1: TRMPreview;
    ToolButton15: TToolButton;
    SaveDialog: TSaveDialog;
    OpenDialog: TOpenDialog;
    procedure frSpeedButton11Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses RM_Common, RM_Const, RM_Utils;

{$R *.DFM}

procedure TForm3.frSpeedButton11Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TForm3.ToolButton14Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TForm3.ToolButton5Click(Sender: TObject);
begin
  RMPreview1.First;
end;

procedure TForm3.ToolButton6Click(Sender: TObject);
begin
  RMPreview1.Prev;
end;

procedure TForm3.ToolButton7Click(Sender: TObject);
begin
  RMPreview1.Next;
end;

procedure TForm3.ToolButton8Click(Sender: TObject);
begin
  RMPreview1.Last;
end;

procedure TForm3.ToolButton1Click(Sender: TObject);
begin
  RMPreview1.Zoom := 100;
end;

procedure TForm3.ToolButton2Click(Sender: TObject);
begin
	RMPreview1.OnePage;
end;

procedure TForm3.ToolButton3Click(Sender: TObject);
begin
	RMPreview1.PageWidth;
end;

procedure TForm3.ToolButton12Click(Sender: TObject);
begin
	RMPreview1.Print;
end;

procedure TForm3.ToolButton11Click(Sender: TObject);
var
  i: Integer;
  s: string;
begin
  if RMPreview1.Report = 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
    RMPreview1.SaveToFile(SaveDialog.FileName, SaveDialog.FilterIndex);
  end;
end;

procedure TForm3.ToolButton10Click(Sender: TObject);
begin
  if RMPreview1.Report = nil then
    Exit;

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

end.