ilcdmatrix.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) 'iLCDMatrix.pas' rev: 6.00

#ifndef iLCDMatrixHPP
#define iLCDMatrixHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <iComponent.hpp>	// Pascal unit
#include <iVCLComponent.hpp>	// Pascal unit
#include <iLCDCharacter.hpp>	// Pascal unit
#include <iCustomComponent.hpp>	// Pascal unit
#include <iMath.hpp>	// Pascal unit
#include <iGPFunctions.hpp>	// Pascal unit
#include <iTypes.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 Ilcdmatrix
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TClickCellEvent)(System::TObject* Sender, int Col, int Row);

class DELPHICLASS TiLCDElement;
class PASCALIMPLEMENTATION TiLCDElement : public System::TObject 
{
	typedef System::TObject inherited;
	
public:
	Graphics::TColor Color;
	char AChar;
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TiLCDElement(void) : System::TObject() { }
	#pragma option pop
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~TiLCDElement(void) { }
	#pragma option pop
	
};


class DELPHICLASS TiLCDMatrix;
class PASCALIMPLEMENTATION TiLCDMatrix : public Icustomcomponent::TiCustomComponent 
{
	typedef Icustomcomponent::TiCustomComponent inherited;
	
private:
	#pragma pack(push, 1)
	Types::TRect FClientRect;
	#pragma pack(pop)
	
	int FBorderMargin;
	AnsiString FText;
	Classes::TStringList* FCharacterList;
	Classes::TStringList* FElementList;
	int FCellsHorz;
	int FCellsVert;
	int FCellsWidth;
	int FCellsSpacingHorz;
	int FCellsSpacingVert;
	Graphics::TColor FCellsColorOn;
	Graphics::TColor FCellsColorOff;
	bool FCellsShowOff;
	int FCharactersetWidth;
	int FCharactersetHeight;
	AnsiString FCharactersetName;
	int FCharacterSpacingHorz;
	int FCharacterSpacingVert;
	int FCharactersHorz;
	int FCharactersVert;
	int FExtraPixelsHorz;
	int FExtraPixelsVert;
	#pragma pack(push, 1)
	Types::TPoint FDrawStartPoint;
	#pragma pack(pop)
	
	int FOuterMarginTop;
	int FOuterMarginLeft;
	int FOuterMarginRight;
	int FOuterMarginBottom;
	
protected:
	HIDESBASE void __fastcall SetText(const AnsiString Value);
	void __fastcall SetCharactersetWidth(const int Value);
	void __fastcall SetCharactersetHeight(const int Value);
	void __fastcall SetCharactersetName(const AnsiString Value);
	void __fastcall SetCharacterSpacingHorz(const int Value);
	void __fastcall SetCharacterSpacingVert(const int Value);
	void __fastcall SetCellsColorOn(const Graphics::TColor Value);
	void __fastcall SetCellsColorOff(const Graphics::TColor Value);
	void __fastcall SetCellsSpacingHorz(const int Value);
	void __fastcall SetCellsSpacingVert(const int Value);
	void __fastcall SetCellsWidth(const int Value);
	void __fastcall SetCellsShowOff(const bool Value);
	void __fastcall SetOuterMarginBottom(const int Value);
	void __fastcall SetOuterMarginLeft(const int Value);
	void __fastcall SetOuterMarginRight(const int Value);
	void __fastcall SetOuterMarginTop(const int Value);
	Graphics::TColor __fastcall GetElementColor(int Col, int Row);
	char __fastcall GetElementChar(int Col, int Row);
	int __fastcall GetElementCharCode(int Col, int Row);
	void __fastcall SetElementColor(int Col, int Row, const Graphics::TColor Value);
	void __fastcall SetElementChar(int Col, int Row, const char Value);
	void __fastcall SetElementCode(int Col, int Row, const int Value);
	void __fastcall AdjustElementList(int RequiredElements);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	void __fastcall ReadFromStream(Classes::TReader* Reader);
	void __fastcall WriteToStream(Classes::TWriter* Writer);
	Ilcdcharacter::TiLCDCharacter* __fastcall GetCharacterObject(int Index);
	TiLCDElement* __fastcall GetElementObject(int Index);
	virtual void __fastcall iPaintTo(Graphics::TCanvas* Canvas);
	void __fastcall DrawCalc(void);
	void __fastcall DrawGrid(Graphics::TCanvas* Canvas);
	void __fastcall DrawText(Graphics::TCanvas* Canvas);
	void __fastcall DrawCell(Graphics::TCanvas* Canvas, int Col, int Row, bool Active);
	void __fastcall DrawCharacter(Graphics::TCanvas* Canvas, int Col, int Row, int CharacterIndex, Graphics::TColor Color);
	__property Ilcdcharacter::TiLCDCharacter* CharacterObject[int Index] = {read=GetCharacterObject};
	__property TiLCDElement* ElementObject[int Index] = {read=GetElementObject};
	
public:
	__fastcall virtual TiLCDMatrix(Classes::TComponent* AOwner);
	__fastcall virtual ~TiLCDMatrix(void);
	void __fastcall LoadDefaultCharacterset(void);
	void __fastcall BlankAllCharacters(void);
	void __fastcall SetCharactorRowData(int CharacterIndex, int RowIndex, int Value);
	void __fastcall LoadCharactersetFromFile(AnsiString FileName);
	void __fastcall SaveCharactersetToFile(AnsiString FileName);
	void __fastcall Clear(void);
	void __fastcall PlaceText(AnsiString AText, int Col, int Row, Graphics::TColor AColor);
	__property Graphics::TColor ElementColor[int Col][int Row] = {read=GetElementColor, write=SetElementColor};
	__property char ElementChar[int Col][int Row] = {read=GetElementChar, write=SetElementChar};
	__property int ElementCharCode[int Col][int Row] = {read=GetElementCharCode, write=SetElementCode};
	__property int CharactersHorz = {read=FCharactersHorz, nodefault};
	__property int CharactersVert = {read=FCharactersVert, nodefault};
	
__published:
	__property Width  = {default=300};
	__property Height  = {default=100};
	__property int CharactersetWidth = {read=FCharactersetWidth, write=SetCharactersetWidth, default=5};
	__property int CharactersetHeight = {read=FCharactersetHeight, write=SetCharactersetHeight, default=7};
	__property int CharacterSpacingHorz = {read=FCharacterSpacingHorz, write=SetCharacterSpacingHorz, default=1};
	__property int CharacterSpacingVert = {read=FCharacterSpacingVert, write=SetCharacterSpacingVert, default=1};
	__property Graphics::TColor CellsColorOn = {read=FCellsColorOn, write=SetCellsColorOn, default=16776960};
	__property Graphics::TColor CellsColorOff = {read=FCellsColorOff, write=SetCellsColorOff, default=8421376};
	__property int CellsSpacingHorz = {read=FCellsSpacingHorz, write=SetCellsSpacingHorz, default=1};
	__property int CellsSpacingVert = {read=FCellsSpacingVert, write=SetCellsSpacingVert, default=1};
	__property int CellsWidth = {read=FCellsWidth, write=SetCellsWidth, default=2};
	__property bool CellsShowOff = {read=FCellsShowOff, write=SetCellsShowOff, nodefault};
	__property AnsiString Text = {read=FText, write=SetText};
	__property int OuterMarginLeft = {read=FOuterMarginLeft, write=SetOuterMarginLeft, default=5};
	__property int OuterMarginTop = {read=FOuterMarginTop, write=SetOuterMarginTop, default=5};
	__property int OuterMarginRight = {read=FOuterMarginRight, write=SetOuterMarginRight, default=5};
	__property int OuterMarginBottom = {read=FOuterMarginBottom, write=SetOuterMarginBottom, default=5};
	__property AnsiString CharactersetName = {read=FCharactersetName};
	__property BackGroundColor  = {default=9671775};
	__property BorderStyle  = {default=1};
	__property Align  = {default=0};
public:
	#pragma option push -w-inl
	/* TWinControl.CreateParented */ inline __fastcall TiLCDMatrix(HWND ParentWindow) : Icustomcomponent::TiCustomComponent(ParentWindow) { }
	#pragma option pop
	
};


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

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

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