chartunit.cpp

生成PDF文档的控件

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "ChartUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "VPDFDoc"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
  switch ( RadioGroup1->ItemIndex ) {
    case 0: BarSeries1->MultiBar = Series::mbNone;
            break;
    case 1: BarSeries1->MultiBar = Series::mbSide;
            break;
    case 2: BarSeries1->MultiBar = Series::mbStacked;
            break;
    case 3: BarSeries1->MultiBar = Series::mbStacked100;
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  int H;
  randomize();
  for ( H = 1; H <= 12; H++ )
      BarSeries1->Add( rand(), ShortMonthNames[H], clTeeColor);
  for ( H = 1; H <= 12; H++ )
      BarSeries2->Add( rand(), ShortMonthNames[H], clTeeColor);
  for ( H = 1; H <= 12; H++ )
      BarSeries3->Add( rand(), ShortMonthNames[H], clTeeColor);
  ComboBox1->Items->Clear();
  for ( H = 0; H < DemoChart->SeriesCount(); H++ )
      ComboBox1->Items->Add( DemoChart->Series[H]->Name );
  ComboBox1->ItemIndex = 0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CheckBox2Click(TObject *Sender)
{
  DemoChart->View3D = CheckBox2->Checked;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TRect ChartRect;
    ChartRect.Left = 0;
    ChartRect.Right = 596;
    ChartRect.Top = 0;
    ChartRect.Bottom = 400;
    VPDF->BeginDoc(false);
    DemoChart->PrintPartialCanvas( VPDF->CurrentPage->Canvas, ChartRect );
    VPDF->EndDoc();
}
//---------------------------------------------------------------------------