acecan.pas

suite component ace report

unit Acecan;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, aceout, Aceprev, ExtCtrls;

type
  TCanvasForm = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    AcePreview1: TAcePreview;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    SaveFileDialog: TSaveDialog;
    OpenFileDialog: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CanvasForm: TCanvasForm;
  Output: TAceOutput;

implementation

{$R *.DFM}

procedure TCanvasForm.Button1Click(Sender: TObject);
var
  count: Integer;
begin
  output := TAceOutput.Create;
  with output do
  begin
    {Set output destination to a file}
    destination := adAceFile;
    AcePrinterSetup.Orientation := DMORIENT_PORTRAIT;
    BeginDoc;
    with AceCanvas do
     begin
       TextOut(1,1,'TextOut');
       for count:=1 to 6 do
         TextOut(25*count,10*count+10,IntToStr(count));
       Ellipse(100,10,60,70);
       Rectangle(200,100,300,150);
       Font.Name := 'Arial';
       Font.Size := 20;
       TextOut(250,20,'TextOut');
     end;
    EndDoc;
    {Load from output.AceFile into AcePreview1}
    AcePreview1.LoadFromAceFile(AceFile);
    {Set output.AceFile to nil so AcePreview1 file is not freed
     with output.AceFile}
    AceFile := nil;
    free;
  end;
end;

procedure TCanvasForm.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TCanvasForm.Button3Click(Sender: TObject);
var
  count: Integer;
begin
  if SaveFileDialog.Execute then
   begin
     output := TAceOutput.Create;
     with output do
     begin
      destination := adAceFile;
      AcePrinterSetup.Orientation := DMORIENT_PORTRAIT;
      {Set filename for the file output will save canvas to}
      FileName := SaveFileDialog.FileName;
      BeginDoc;
      with AceCanvas do
      begin
         TextOut(1,1,'TextOut');
         for count:=6 downto 1 do
           TextOut(25*count,10*count+10,IntToStr(count));
         Ellipse(100,10,60,70);
         Rectangle(200,100,300,150);
         Font.Name := 'Arial';
         Font.Size := 20;
         TextOut(250,20,'TextOut');
      end;
      EndDoc;   {Writes output to file}
     end;
  end;
end;

procedure TCanvasForm.Button4Click(Sender: TObject);
begin
   if OpenFileDialog.Execute then
      {Load the output file to the AcePreview component}
      AcePreview1.LoadFromFile(OpenFileDialog.FileName);
end;

procedure TCanvasForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

end.