acecan.cpp

suite component ace report

//---------------------------------------------------------------------------
#include "aceout.hpp"

#include <vcl\vcl.h>
#pragma hdrstop

#include "acecan.h"
//---------------------------------------------------------------------------
#pragma link "AcePrev"
#pragma resource "*.dfm"
TFormCanvas *FormCanvas;
//---------------------------------------------------------------------------
__fastcall TFormCanvas::TFormCanvas(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormCanvas::B1Click(TObject *Sender)
{
  int count;
  output = new TAceOutput;

  // Set output destination to a file
  output->Destination = adAceFile;
  output->AcePrinterSetup->Orientation = DMORIENT_PORTRAIT;
  output->BeginDoc();
  output->AceCanvas->Textout(1,1,"TextOut");
  for (count=0; count<6; count++)
    output->AceCanvas->Textout(10*count+10,20+25*count,String(count));
  output->AceCanvas->Ellipse(100,10,60,70);
  output->AceCanvas->Rectangle(200,100,300,150);
  output->AceCanvas->Font->Name = "Times New Roman";
  output->AceCanvas->Font->Size = 18;
  output->AceCanvas->Textout(150,50,"TextOut");
  output->EndDoc();

  // Load from output.AceFile into AcePreview1
  AcePreview1->LoadFromAceFile(output->AceFile);
  // Set output.AceFile to nil so AcePreview1 file is not freed
  // with output.AceFile
  output->AceFile = '\0';
  free;
}
//---------------------------------------------------------------------
void __fastcall TFormCanvas::B2Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------
void __fastcall TFormCanvas::B3Click(TObject *Sender)
{
  int count;

  if (SaveFileDialog->Execute())
    {
      output = new TAceOutput;
      output->Destination = adAceFile;
      output->AcePrinterSetup->Orientation = DMORIENT_PORTRAIT;

      // Set filename for the file output will save canvas to
      output->FileName = SaveFileDialog->FileName;
      output->BeginDoc();
      output->AceCanvas->Textout(1,1,"TextOut");
      for (count=6; count>=0; count--)
        output->AceCanvas->Textout(25*count,20 + 10*count+10,String(count));
      output->AceCanvas->Ellipse(200,100,300,150);
      output->AceCanvas->Rectangle(20,90,100,150);
      output->AceCanvas->Font->Name = "Arial";
      output->AceCanvas->Font->Size = 20;
      output->AceCanvas->Textout(250,20,"TextOut");
      output->EndDoc();   // Writes output to file
    }
}
//---------------------------------------------------------------------
void __fastcall TFormCanvas::B4Click(TObject *Sender)
{
  if (OpenFileDialog->Execute())
    // Load the output file to the AcePreview component
    AcePreview1->LoadFromFile(OpenFileDialog->FileName);
}
//---------------------------------------------------------------------
void __fastcall TFormCanvas::FormClose(TObject *Sender,
	TCloseAction &Action)
{
  Action = caFree;
}
//---------------------------------------------------------------------