rm_dbchart.hpp

这是一个功能强大

// CodeGear C++Builder
// Copyright (c) 1995, 2007 by CodeGear
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Rm_dbchart.pas' rev: 11.00

#ifndef Rm_dbchartHPP
#define Rm_dbchartHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Sysutils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Extctrls.hpp>	// Pascal unit
#include <Stdctrls.hpp>	// Pascal unit
#include <Comctrls.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <Buttons.hpp>	// Pascal unit
#include <Rm_common.hpp>	// Pascal unit
#include <Rm_class.hpp>	// Pascal unit
#include <Rm_ctrls.hpp>	// Pascal unit
#include <Teeprocs.hpp>	// Pascal unit
#include <Teengine.hpp>	// Pascal unit
#include <Chart.hpp>	// Pascal unit
#include <Series.hpp>	// Pascal unit
#include <Dbchart.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Rm_dataset.hpp>	// Pascal unit
#include <Rm_jvinterpreter.hpp>	// Pascal unit
#include <Imglist.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Rm_jclwidestrings.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Rm_dbchart
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TRMDBChartObject;
class PASCALIMPLEMENTATION TRMDBChartObject : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
public:
	#pragma option push -w-inl
	/* TComponent.Create */ inline __fastcall virtual TRMDBChartObject(Classes::TComponent* AOwner) : Classes::TComponent(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TComponent.Destroy */ inline __fastcall virtual ~TRMDBChartObject(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMDBChartSeries;
class PASCALIMPLEMENTATION TRMDBChartSeries : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	AnsiString FLegendView;
	AnsiString FValueView;
	AnsiString FLabelView;
	AnsiString FTitle;
	Graphics::TColor FColor;
	Byte FChartType;
	bool FShowMarks;
	bool FColored;
	Byte FMarksStyle;
	AnsiString FDataSet;
	
public:
	__fastcall TRMDBChartSeries(void);
	
__published:
	__property AnsiString DataSet = {read=FDataSet, write=FDataSet};
	__property AnsiString LegendView = {read=FLegendView, write=FLegendView};
	__property AnsiString ValueView = {read=FValueView, write=FValueView};
	__property AnsiString LabelView = {read=FLabelView, write=FLabelView};
	__property AnsiString Title = {read=FTitle, write=FTitle};
	__property Graphics::TColor Color = {read=FColor, write=FColor, nodefault};
	__property Byte ChartType = {read=FChartType, write=FChartType, nodefault};
	__property bool ShowMarks = {read=FShowMarks, write=FShowMarks, nodefault};
	__property bool Colored = {read=FColored, write=FColored, nodefault};
	__property Byte MarksStyle = {read=FMarksStyle, write=FMarksStyle, nodefault};
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMDBChartSeries(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMDBChartView;
class PASCALIMPLEMENTATION TRMDBChartView : public Rm_class::TRMReportView 
{
	typedef Rm_class::TRMReportView inherited;
	
private:
	Rm_class::TRMPrintMethodType FPrintType;
	Dbchart::TDBChart* FDBChart;
	Graphics::TMetafile* FPicture;
	Classes::TList* FList;
	bool FChartDim3D;
	bool FChartShowLegend;
	bool FChartShowAxis;
	bool __fastcall GetUseChartSetting(void);
	void __fastcall SetUseChartSetting(bool Value);
	void __fastcall ShowChart(void);
	TRMDBChartSeries* __fastcall GetSeries(int Index);
	bool __fastcall GetDirectDraw(void);
	void __fastcall SetDirectDraw(bool Value);
	
protected:
	virtual void __fastcall Prepare(void);
	virtual void __fastcall PlaceOnEndPage(Classes::TStream* aStream);
	virtual AnsiString __fastcall GetViewCommon();
	virtual void __fastcall ClearContents(void);
	
public:
	__fastcall virtual TRMDBChartView(void);
	__fastcall virtual ~TRMDBChartView(void);
	void __fastcall Clear(void);
	int __fastcall SeriesCount(void);
	TRMDBChartSeries* __fastcall AddSeries(void);
	void __fastcall DeleteSeries(int Index);
	virtual void __fastcall Draw(Graphics::TCanvas* aCanvas);
	virtual void __fastcall LoadFromStream(Classes::TStream* aStream);
	virtual void __fastcall SaveToStream(Classes::TStream* aStream);
	virtual void __fastcall DefinePopupMenu(Rm_ctrls::TRMCustomMenuItem* Popup);
	virtual bool __fastcall GetPropValue(System::TObject* aObject, AnsiString aPropName, Variant &aValue, Variant * Args, const int Args_Size);
	virtual void __fastcall ShowEditor(void);
	void __fastcall AssignChart(Chart::TCustomChart* AChart);
	__property TRMDBChartSeries* Series[int Index] = {read=GetSeries};
	__property Dbchart::TDBChart* DBChart = {read=FDBChart};
	
__published:
	__property Rm_class::TRMPrintMethodType PrintType = {read=FPrintType, write=FPrintType, nodefault};
	__property bool UseChartSetting = {read=GetUseChartSetting, write=SetUseChartSetting, nodefault};
	__property Memo ;
	__property bool ChartDim3D = {read=FChartDim3D, write=FChartDim3D, nodefault};
	__property bool ChartShowLegend = {read=FChartShowLegend, write=FChartShowLegend, nodefault};
	__property bool ChartShowAxis = {read=FChartShowAxis, write=FChartShowAxis, nodefault};
	__property ReprintOnOverFlow ;
	__property ShiftWith ;
	__property BandAlign ;
	__property LeftFrame ;
	__property RightFrame ;
	__property TopFrame ;
	__property BottomFrame ;
	__property FillColor ;
	__property bool DirectDraw = {read=GetDirectDraw, write=SetDirectDraw, nodefault};
	__property PrintFrame ;
	__property Printable ;
	__property OnPreviewClick ;
	__property OnPreviewClickUrl ;
};


class DELPHICLASS TRMDBChartForm;
class PASCALIMPLEMENTATION TRMDBChartForm : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
__published:
	Comctrls::TPageControl* Page1;
	Comctrls::TTabSheet* Tab1;
	Stdctrls::TGroupBox* gpbSeriesType;
	Comctrls::TTabSheet* Tab2;
	Stdctrls::TButton* btnOk;
	Stdctrls::TButton* btnCancel;
	Stdctrls::TGroupBox* gpbSeriesOptions;
	Stdctrls::TCheckBox* chkSeriesMultiColor;
	Stdctrls::TCheckBox* chkSeriesShowMarks;
	Comctrls::TTabSheet* Tab3;
	Stdctrls::TGroupBox* gpbMarks;
	Stdctrls::TRadioButton* rdbStyle1;
	Stdctrls::TRadioButton* rdbStyle2;
	Stdctrls::TRadioButton* rdbStyle3;
	Stdctrls::TRadioButton* rdbStyle4;
	Stdctrls::TRadioButton* rdbStyle5;
	Comctrls::TTabSheet* TabSheet1;
	Stdctrls::TListBox* ListBox1;
	Stdctrls::TGroupBox* gpbChartOptions;
	Stdctrls::TCheckBox* chkChartShowLegend;
	Stdctrls::TCheckBox* chkChartShowAxis;
	Menus::TPopupMenu* PopupMenu1;
	Menus::TMenuItem* Add1;
	Menus::TMenuItem* Delete1;
	Stdctrls::TCheckBox* chkChartDim3D;
	Menus::TMenuItem* EditTitle1;
	Menus::TMenuItem* N1;
	Menus::TMenuItem* MoveUp1;
	Menus::TMenuItem* MoveDown1;
	Stdctrls::TGroupBox* gpbObjects;
	Stdctrls::TLabel* Label1;
	Stdctrls::TLabel* Label2;
	Stdctrls::TButton* Button1;
	Stdctrls::TLabel* Label6;
	Controls::TImageList* ImageList1;
	Stdctrls::TComboBox* cmbSeriesType;
	Stdctrls::TComboBox* cmbLegend;
	Stdctrls::TComboBox* cmbValue;
	Stdctrls::TComboBox* cmbLabel;
	Stdctrls::TComboBox* cmbDataSet;
	Stdctrls::TLabel* Label7;
	void __fastcall FormCreate(System::TObject* Sender);
	void __fastcall Add1Click(System::TObject* Sender);
	void __fastcall Delete1Click(System::TObject* Sender);
	void __fastcall FormShow(System::TObject* Sender);
	void __fastcall ListBox1Click(System::TObject* Sender);
	void __fastcall PopupMenu1Popup(System::TObject* Sender);
	void __fastcall MoveUp1Click(System::TObject* Sender);
	void __fastcall MoveDown1Click(System::TObject* Sender);
	void __fastcall btnOkClick(System::TObject* Sender);
	void __fastcall EditTitle1Click(System::TObject* Sender);
	void __fastcall chkSeriesMultiColorClick(System::TObject* Sender);
	void __fastcall Button1Click(System::TObject* Sender);
	void __fastcall FormDestroy(System::TObject* Sender);
	void __fastcall cmbSeriesTypeDrawItem(Controls::TWinControl* Control, int Index, const Types::TRect &Rect, Windows::TOwnerDrawState State);
	void __fastcall cmbDataSetChange(System::TObject* Sender);
	void __fastcall cmbDataSetDrawItem(Controls::TWinControl* Control, int Index, const Types::TRect &Rect, Windows::TOwnerDrawState State);
	
private:
	TRMDBChartView* FChartView;
	Rm_class::TRMReport* FReport;
	TRMDBChartSeries* FSeries;
	Rm_ctrls::TRMColorPickerButton* FBtnColor;
	Graphics::TBitmap* FDataSetBMP;
	Graphics::TBitmap* FFieldBMP;
	void __fastcall Localize(void);
	void __fastcall LoadSeriesOptions(void);
	void __fastcall SaveSeriesOptions(void);
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TRMDBChartForm(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TRMDBChartForm(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TRMDBChartForm(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMDBChartForm(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


typedef TMetaClass* TRMCustomDBTeeChartUIClass;

class DELPHICLASS TRMCustomDBTeeChartUI;
class PASCALIMPLEMENTATION TRMCustomDBTeeChartUI : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	/* virtual class method */ virtual void __fastcall Edit(TMetaClass* vmt, Chart::TCustomChart* aTeeChart);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TRMCustomDBTeeChartUI(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMCustomDBTeeChartUI(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMTeeChartUIPlugIn;
class PASCALIMPLEMENTATION TRMTeeChartUIPlugIn : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	/*         class method */ static TMetaClass* __fastcall GetChartUIClass(TMetaClass* vmt, Chart::TCustomChart* aTeeChart);
	
public:
	/*         class method */ static void __fastcall Register(TMetaClass* vmt, TMetaClass* aChartUIClass);
	/*         class method */ static void __fastcall UnRegister(TMetaClass* vmt, TMetaClass* aChartUIClass);
	/*         class method */ static void __fastcall Edit(TMetaClass* vmt, Chart::TCustomChart* aTeeChart);
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TRMTeeChartUIPlugIn(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMTeeChartUIPlugIn(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Rm_dbchart */
using namespace Rm_dbchart;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Rm_dbchart