iplottable.hpp

Iocomp Ultra Pack v3.0.2 Sources.For.Delphi 数据显示编程插件,可用于工业控制

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'iPlotTable.pas' rev: 6.00

#ifndef iPlotTableHPP
#define iPlotTableHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <iPlotChannelCustom.hpp>	// Pascal unit
#include <iPlotObjects.hpp>	// Pascal unit
#include <iGPFunctions.hpp>	// Pascal unit
#include <iTypes.hpp>	// Pascal unit
#include <Menus.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <ComCtrls.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <Clipbrd.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <TypInfo.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Iplottable
{
//-- type declarations -------------------------------------------------------
class DELPHICLASS TiPlotTableButton;
class PASCALIMPLEMENTATION TiPlotTableButton : public Iplotobjects::TiPlotButton 
{
	typedef Iplotobjects::TiPlotButton inherited;
	
public:
	virtual void __fastcall Draw(const Graphics::TCanvas* Canvas, const Graphics::TColor BackGroundColor);
public:
	#pragma option push -w-inl
	/* TiPlotButton.Create */ inline __fastcall virtual TiPlotTableButton(System::TObject* AOwner, Classes::TNotifyEvent AOnChange, Classes::TNotifyEvent AOnInsert, Classes::TNotifyEvent AOnRemove, Classes::TNotifyEvent AOnRename) : Iplotobjects::TiPlotButton(AOwner, AOnChange, AOnInsert, AOnRemove, AOnRename) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TiPlotButton.Destroy */ inline __fastcall virtual ~TiPlotTableButton(void) { }
	#pragma option pop
	
};


class DELPHICLASS TiPlotTableColumn;
class PASCALIMPLEMENTATION TiPlotTableColumn : public System::TObject 
{
	typedef System::TObject inherited;
	
protected:
	int WidthPixels;
	
public:
	AnsiString Title;
	double Width;
	bool Visible;
	Itypes::TiAlignmentHorizontal TitleAlignment;
	double TitleAlignmentMargin;
	Graphics::TColor TitleFontColor;
	Itypes::TiAlignmentHorizontal DataAlignment;
	double DataAlignmentMargin;
	Graphics::TColor DataFontColor;
	bool AutoSize;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TiPlotTableColumn(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TiPlotTableColumn(void) { }
	#pragma option pop
	
};


class DELPHICLASS TiPlotTable;
class PASCALIMPLEMENTATION TiPlotTable : public Iplotobjects::TiPlotLayoutObject 
{
	typedef Iplotobjects::TiPlotLayoutObject inherited;
	
private:
	TiPlotTableButton* FUpButton;
	TiPlotTableButton* FDownButton;
	int FRequiredWidth;
	int FRequiredHeight;
	Classes::TStringList* FColumnList;
	Classes::TStringList* FRowDataList;
	Classes::TStringList* FTempStringList;
	int FItemViewStartIndex;
	int FItemViewStopIndex;
	int FRowHeight;
	double FMarginLeft;
	double FMarginRight;
	double FMarginBottom;
	double FMarginTop;
	bool FGridBackGroundTransparent;
	Graphics::TColor FGridBackGroundColor;
	bool FGridLinesShow;
	Graphics::TColor FGridLinesColor;
	double FColumnSpacing;
	double FRowSpacing;
	int FRowsMax;
	Graphics::TFont* FDataFont;
	#pragma pack(push, 1)
	Types::TRect FGridRect;
	#pragma pack(pop)
	
	#pragma pack(push, 1)
	Types::TRect FTitleRect;
	#pragma pack(pop)
	
	bool FColumnTitlesVisible;
	Graphics::TFont* FColumnTitlesFont;
	
protected:
	void __fastcall SetMarginBottom(const double Value);
	void __fastcall SetMarginLeft(const double Value);
	void __fastcall SetMarginRight(const double Value);
	void __fastcall SetMarginTop(const double Value);
	void __fastcall SetGridBackGroundColor(const Graphics::TColor Value);
	void __fastcall SetGridBackGroundTransparent(const bool Value);
	void __fastcall SetDataFont(const Graphics::TFont* Value);
	void __fastcall SetColumnSpacing(const double Value);
	void __fastcall SetRowSpacing(const double Value);
	void __fastcall SetColumnTitlesFont(const Graphics::TFont* Value);
	void __fastcall SetColumnTitlesVisible(const bool Value);
	void __fastcall SetGridLinesShow(const bool Value);
	void __fastcall SetGridLinesColor(const Graphics::TColor Value);
	void __fastcall SetRowsMax(const int Value);
	void __fastcall CalcRects(Graphics::TCanvas* Canvas);
	TiPlotTableColumn* __fastcall GetColumn(int Index);
	int __fastcall GetColumnCount(void);
	int __fastcall GetRowCount(void);
	AnsiString __fastcall GetData(int Col, int Row);
	void __fastcall SetData(int Col, int Row, const AnsiString Value);
	void __fastcall ButtonInvalidate(System::TObject* Sender);
	void __fastcall UpButtonClick(System::TObject* Sender);
	void __fastcall DownButtonClick(System::TObject* Sender);
	virtual void __fastcall NotificationSetFocus(System::TObject* Sender);
	virtual Iplotobjects::TiPlotObject* __fastcall GetMouseObject(int X, int Y);
	virtual int __fastcall GetRequiredWidth(const Graphics::TCanvas* Canvas);
	virtual void __fastcall AddMenuItems(Menus::TPopupMenu* PopupMenu);
	virtual void __fastcall DoMouseUp(const Iplotobjects::TiPlotMouseData &MouseData);
	virtual void __fastcall Draw(const Graphics::TCanvas* Canvas, const Graphics::TColor BackGroundColor);
	void __fastcall DrawGrid(const Graphics::TCanvas* Canvas);
	void __fastcall DrawColumnTitles(const Graphics::TCanvas* Canvas);
	void __fastcall DrawData(const Graphics::TCanvas* Canvas);
	void __fastcall DrawDownButton(const Graphics::TCanvas* Canvas);
	void __fastcall DrawUpButton(const Graphics::TCanvas* Canvas);
	
public:
	__fastcall virtual TiPlotTable(System::TObject* AOwner, Classes::TNotifyEvent AOnChange, Classes::TNotifyEvent AOnInsert, Classes::TNotifyEvent AOnRemove, Classes::TNotifyEvent AOnRename);
	__fastcall virtual ~TiPlotTable(void);
	int __fastcall AddColumn(AnsiString Title);
	int __fastcall AddRow(void);
	void __fastcall RemoveAllColumns(void);
	void __fastcall RemoveAllRows(void);
	void __fastcall DeleteColumn(int Index);
	void __fastcall DeleteRow(int Index);
	__property int RowCount = {read=GetRowCount, nodefault};
	__property int ColumnCount = {read=GetColumnCount, nodefault};
	__property TiPlotTableColumn* Column[int Index] = {read=GetColumn};
	__property AnsiString Data[int Col][int Row] = {read=GetData, write=SetData};
	
__published:
	__property double MarginLeft = {read=FMarginLeft, write=SetMarginLeft};
	__property double MarginTop = {read=FMarginTop, write=SetMarginTop};
	__property double MarginRight = {read=FMarginRight, write=SetMarginRight};
	__property double MarginBottom = {read=FMarginBottom, write=SetMarginBottom};
	__property Graphics::TColor GridBackGroundColor = {read=FGridBackGroundColor, write=SetGridBackGroundColor, default=8421504};
	__property bool GridBackGroundTransparent = {read=FGridBackGroundTransparent, write=SetGridBackGroundTransparent, default=0};
	__property Graphics::TColor GridLinesColor = {read=FGridLinesColor, write=SetGridLinesColor, nodefault};
	__property bool GridLinesShow = {read=FGridLinesShow, write=SetGridLinesShow, nodefault};
	__property Graphics::TFont* DataFont = {read=FDataFont, write=SetDataFont};
	__property double ColumnSpacing = {read=FColumnSpacing, write=SetColumnSpacing};
	__property double RowSpacing = {read=FRowSpacing, write=SetRowSpacing};
	__property int RowsMax = {read=FRowsMax, write=SetRowsMax, nodefault};
	__property bool ColumnTitlesVisible = {read=FColumnTitlesVisible, write=SetColumnTitlesVisible, default=0};
	__property Graphics::TFont* ColumnTitlesFont = {read=FColumnTitlesFont, write=SetColumnTitlesFont};
};


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

}	/* namespace Iplottable */
using namespace Iplottable;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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