// Borland C++ Builder // Copyright (c) 1995, 1999 by Borland International // All rights reserved // (DO NOT EDIT: machine generated header) 'ShowArray.pas' rev: 4.00 #ifndef ShowArrayHPP #define ShowArrayHPP #pragma delphiheader begin #pragma option push -w- #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit //-- user supplied ----------------------------------------------------------- namespace Showarray { //-- type declarations ------------------------------------------------------- #pragma option push -b- enum TDirection { Horizontal, Vertical }; #pragma option pop class DELPHICLASS TShowArray; #pragma pack(push, 4) class PASCALIMPLEMENTATION TShowArray : public Controls::TCustomControl { typedef Controls::TCustomControl inherited; private: int FVsep; int FHsep; Graphics::TColor FBackgroundColor; Graphics::TColor FForegroundColor; Graphics::TColor FHighlightColor; int FArrayData[256]; int PointerOfFArrayData; int FHmargin; int FVmargin; TDirection FDirection; int FIndexMin; int FIndexMax; int FBoxHeight; int FBoxWidth; int FNumBundle; System::Set FHilightElmnts; int FHighlightedElmnts; void __fastcall SetBackgroundColor(Graphics::TColor AColor); void __fastcall SetForegroundColor(Graphics::TColor AColor); void __fastcall SetHighlightColor(Graphics::TColor AColor); void __fastcall SetHSize(int Size); void __fastcall SetVSize(int Size); void __fastcall SetArrayData(void); void __fastcall SetHighlightedElmnts(void); int __fastcall GetHSize(void); int __fastcall GetVSize(void); public: __fastcall virtual TShowArray(Classes::TComponent* AOwner); virtual void __fastcall Paint(void); void __fastcall SizeToFit(void); __published: __property Graphics::TColor BackgroundColor = {read=FBackgroundColor, write=SetBackgroundColor, default=16777215 }; __property Graphics::TColor ForegroundColor = {read=FForegroundColor, write=SetForegroundColor, default=0 }; __property Graphics::TColor HighlightColor = {read=FHighlightColor, write=SetHighlightColor, default=255 }; __property int VSep = {read=FVsep, write=FVsep, default=10}; __property int HSep = {read=FHsep, write=FHsep, default=50}; __property int HMargin = {read=FHmargin, write=FHmargin, default=0}; __property int VMargin = {read=FVmargin, write=FVmargin, default=0}; __property int HSize = {read=GetHSize, write=SetHSize, nodefault}; __property int VSize = {read=GetVSize, write=SetVSize, nodefault}; __property Align ; __property TDirection Direction = {read=FDirection, write=FDirection, default=0}; __property int IndexMax = {read=FIndexMax, write=FIndexMax, default=-1}; __property int IndexMin = {read=FIndexMin, write=FIndexMin, default=1}; __property int BoxHeight = {read=FBoxHeight, write=FBoxHeight, default=20}; __property int BoxWidth = {read=FBoxWidth, write=FBoxWidth, default=40}; __property int ArrayData = {read=PointerOfFArrayData, write=PointerOfFArrayData, nodefault}; __property int HighlightedElmnts = {read=FHighlightedElmnts, write=FHighlightedElmnts, nodefault}; __property int NumBundle = {read=FNumBundle, write=FNumBundle, default=10}; public: #pragma option push -w-inl /* TCustomControl.Destroy */ inline __fastcall virtual ~TShowArray(void) { } #pragma option pop public: #pragma option push -w-inl /* TWinControl.CreateParented */ inline __fastcall TShowArray(HWND ParentWindow) : Controls::TCustomControl( ParentWindow) { } #pragma option pop }; #pragma pack(pop) //-- var, const, procedure --------------------------------------------------- extern PACKAGE void __fastcall Register(void); } /* namespace Showarray */ #if !defined(NO_IMPLICIT_NAMESPACE_USE) using namespace Showarray; #endif #pragma option pop // -w- #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // ShowArray