rm_chart.hpp

这是一个功能强大

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

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

#ifndef Rm_chartHPP
#define Rm_chartHPP

#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 <Imglist.hpp>	// Pascal unit
#include <Rm_common.hpp>	// Pascal unit
#include <Rm_class.hpp>	// Pascal unit
#include <Rm_ctrls.hpp>	// Pascal unit
#include <Rm_dataset.hpp>	// Pascal unit
#include <Teeprocs.hpp>	// Pascal unit
#include <Teengine.hpp>	// Pascal unit
#include <Chart.hpp>	// Pascal unit
#include <Series.hpp>	// Pascal unit
#include <Ganttch.hpp>	// Pascal unit
#include <Db.hpp>	// Pascal unit
#include <Rm_propinsp.hpp>	// Pascal unit
#include <Rm_jvinterpreter.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Rm_jclwidestrings.hpp>	// Pascal unit

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

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


#pragma option push -b-
enum TRMChartSeriesDataType { rmdtBandData, rmdtDBData, rmdtFixedData };
#pragma option pop

#pragma option push -b-
enum TRMChartSeriesSortOrder { rmsoNone, rmsoAscending, rmsoDescending };
#pragma option pop

typedef DynamicArray<Variant >  RM_Chart__3;

typedef DynamicArray<Variant >  RM_Chart__4;

class DELPHICLASS TRMChartSeries;
class PASCALIMPLEMENTATION TRMChartSeries : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	DynamicArray<Variant >  FXValues;
	DynamicArray<Variant >  FYValues;
	AnsiString FXObject;
	AnsiString FYObject;
	AnsiString FTop10Label;
	AnsiString FTitle;
	Graphics::TColor FColor;
	Byte FChartType;
	bool FShowMarks;
	bool FColored;
	Byte FMarksStyle;
	int FTop10Num;
	TRMChartSeriesDataType FDataType;
	TRMChartSeriesSortOrder FSortOrder;
	AnsiString FDataSet;
	
public:
	__fastcall TRMChartSeries(void);
	void __fastcall Init(void);
	void __fastcall GetData(Rm_class::TRMReport* aReport);
	
__published:
	__property AnsiString DataSet = {read=FDataSet, write=FDataSet};
	__property AnsiString XObject = {read=FXObject, write=FXObject};
	__property AnsiString YObject = {read=FYObject, write=FYObject};
	__property AnsiString Top10Label = {read=FTop10Label, write=FTop10Label};
	__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};
	__property int Top10Num = {read=FTop10Num, write=FTop10Num, nodefault};
	__property TRMChartSeriesDataType DataType = {read=FDataType, write=FDataType, nodefault};
	__property TRMChartSeriesSortOrder SortOrder = {read=FSortOrder, write=FSortOrder, nodefault};
	__property AnsiString XValues = {read=FXObject, write=FXObject};
	__property AnsiString YValues = {read=FYObject, write=FYObject};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TRMChartSeries(void) { }
	#pragma option pop
	
};


class DELPHICLASS TRMChartView;
class PASCALIMPLEMENTATION TRMChartView : public Rm_class::TRMReportView 
{
	typedef Rm_class::TRMReportView inherited;
	
private:
	Rm_class::TRMPrintMethodType FPrintType;
	Chart::TChart* FChart;
	Graphics::TMetafile* FPicture;
	Classes::TList* FSeriesList;
	bool FChartDim3D;
	bool FChartShowLegend;
	bool FChartShowAxis;
	AnsiString FSaveMemo;
	void __fastcall ShowChart(void);
	bool __fastcall GetUseChartSetting(void);
	void __fastcall SetUseChartSetting(bool Value);
	TRMChartSeries* __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 void __fastcall GetEndPageData(Classes::TStream* aStream);
	virtual AnsiString __fastcall GetViewCommon();
	virtual void __fastcall ClearContents(void);
	virtual bool __fastcall GetPropValue(System::TObject* aObject, AnsiString aPropName, Variant &aValue, Variant * Args, const int Args_Size);
	virtual void __fastcall OnHook(Rm_class::TRMView* aView);
	
public:
	__fastcall virtual TRMChartView(void);
	__fastcall virtual ~TRMChartView(void);
	void __fastcall Clear(void);
	int __fastcall SeriesCount(void);
	TRMChartSeries* __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 void __fastcall ShowEditor(void);
	void __fastcall AssignChart(Chart::TCustomChart* AChart);
	__property TRMChartSeries* Series[int Index] = {read=GetSeries};
	__property Chart::TChart* Chart = {read=FChart};
	
__published:
	__property Rm_class::TRMPrintMethodType PrintType = {read=FPrintType, write=FPrintType, nodefault};
	__property bool UseChartSetting = {read=GetUseChartSetting, write=SetUseChartSetting, nodefault};
	__property UseDoublePass ;
	__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 TRMChartForm;
class PASCALIMPLEMENTATION TRMChartForm : public Forms::TForm 
{
	typedef Forms::TForm inherited;
	
__published:
	Comctrls::TPageControl* Page1;
	Stdctrls::TButton* btnOk;
	Stdctrls::TButton* btnCancel;
	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::TButton* btnCharUI;
	Extctrls::TRadioGroup* rdbDataSource;
	Extctrls::TRadioGroup* rdbSortType;
	Stdctrls::TGroupBox* GroupBox3;
	Buttons::TSpeedButton* btnAddSeries;
	Buttons::TSpeedButton* btnDeleteSeries;
	Comctrls::TTreeView* TreeView1;
	Extctrls::TPanel* Panel1;
	Controls::TImageList* ImageList2;
	Menus::TPopupMenu* PopupSeries;
	Menus::TMenuItem* mnuLine;
	Menus::TMenuItem* mnuArea;
	Menus::TMenuItem* mnuPoint;
	Menus::TMenuItem* mnuBar;
	Menus::TMenuItem* mnuHorizBar;
	Menus::TMenuItem* mnuPie;
	Menus::TMenuItem* mnuGantt;
	Menus::TMenuItem* mnuFastLine;
	Stdctrls::TGroupBox* gpbChartOptions;
	Stdctrls::TCheckBox* chkChartShowLegend;
	Stdctrls::TCheckBox* chkChartShowAxis;
	Stdctrls::TCheckBox* chkChartDim3D;
	Stdctrls::TGroupBox* gpbSeriesType;
	Stdctrls::TComboBox* cmbSeriesType;
	Stdctrls::TGroupBox* gpbSeriesOptions;
	Stdctrls::TCheckBox* chkSeriesMultiColor;
	Stdctrls::TCheckBox* chkSeriesShowMarks;
	Stdctrls::TGroupBox* gpbObjects;
	Stdctrls::TLabel* Label1;
	Stdctrls::TLabel* Label2;
	Stdctrls::TComboBox* cmbLegend;
	Stdctrls::TComboBox* cmbValue;
	Stdctrls::TGroupBox* GroupBox2;
	Stdctrls::TLabel* Label7;
	Stdctrls::TLabel* Label8;
	Stdctrls::TLabel* Label10;
	Stdctrls::TComboBox* ComboBox1;
	Stdctrls::TComboBox* ComboBox2;
	Stdctrls::TComboBox* cmbDataSet;
	Stdctrls::TGroupBox* GroupBox1;
	Stdctrls::TLabel* lblXValue;
	Stdctrls::TLabel* lblYValue;
	Stdctrls::TEdit* edtXValues;
	Stdctrls::TEdit* edtYValues;
	Stdctrls::TGroupBox* gpbTopGroup;
	Stdctrls::TLabel* Label3;
	Stdctrls::TLabel* Label4;
	Stdctrls::TLabel* Label5;
	Stdctrls::TEdit* editTop10Num;
	Stdctrls::TEdit* edtTop10Label;
	Buttons::TSpeedButton* SpeedButton1;
	Buttons::TSpeedButton* SpeedButton2;
	Controls::TImageList* ImageList1;
	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 MoveUp1Click(System::TObject* Sender);
	void __fastcall MoveDown1Click(System::TObject* Sender);
	void __fastcall btnOkClick(System::TObject* Sender);
	void __fastcall btnCharUIClick(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 rdbDataSourceClick(System::TObject* Sender);
	void __fastcall cmbDataSetChange(System::TObject* Sender);
	void __fastcall cmbDataSetDrawItem(Controls::TWinControl* Control, int Index, const Types::TRect &Rect, Windows::TOwnerDrawState State);
	void __fastcall TreeView1Click(System::TObject* Sender);
	void __fastcall mnuLineClick(System::TObject* Sender);
	void __fastcall cmbSeriesTypeClick(System::TObject* Sender);
	void __fastcall chkChartShowAxisClick(System::TObject* Sender);
	void __fastcall TreeView1Editing(System::TObject* Sender, Comctrls::TTreeNode* Node, bool &AllowEdit);
	void __fastcall TreeView1Edited(System::TObject* Sender, Comctrls::TTreeNode* Node, AnsiString &S);
	
private:
	TRMChartView* FChartView;
	TRMChartSeries* FSeries;
	Rm_ctrls::TRMColorPickerButton* FBtnColor;
	Rm_class::TRMReport* FReport;
	Graphics::TBitmap* FDataSetBMP;
	Graphics::TBitmap* FFieldBMP;
	Rm_propinsp::TELPropertyInspector* FInspector;
	Comctrls::TTreeNode* FOldSelected;
	void __fastcall Localize(void);
	void __fastcall SetInspControls(void);
	void __fastcall LoadSeriesOptions(void);
	void __fastcall SaveSeriesOptions(void);
	void __fastcall SetSeriesType(Comctrls::TTreeNode* aNode, int aChartType);
	void __fastcall OnColorChangeEvent(System::TObject* Sender);
	void __fastcall OnAfterModifyEvent(System::TObject* Sender, const AnsiString aPropName, const AnsiString aPropValue);
	void __fastcall SetTreeView(void);
public:
	#pragma option push -w-inl
	/* TCustomForm.Create */ inline __fastcall virtual TRMChartForm(Classes::TComponent* AOwner) : Forms::TForm(AOwner) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.CreateNew */ inline __fastcall virtual TRMChartForm(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(AOwner, Dummy) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TCustomForm.Destroy */ inline __fastcall virtual ~TRMChartForm(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TRMChartForm(HWND ParentWindow) : Forms::TForm(ParentWindow) { }
	#pragma option pop
	
};


typedef TMetaClass* TRMCustomTeeChartUIClass;

class DELPHICLASS TRMCustomTeeChartUI;
class PASCALIMPLEMENTATION TRMCustomTeeChartUI : 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 TRMCustomTeeChartUI(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TRMCustomTeeChartUI(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);
	
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);
	/*         class method */ static bool __fastcall HaveChartEditor(TMetaClass* vmt);
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_chart */
using namespace Rm_chart;
#pragma pack(pop)
#pragma option pop

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