// Borland C++ Builder // Copyright (c) 1995, 1999 by Borland International // All rights reserved // (DO NOT EDIT: machine generated header) 'ShowDistribution.pas' rev: 5.00 #ifndef ShowDistributionHPP #define ShowDistributionHPP #pragma delphiheader begin #pragma option push -w- #pragma option push -Vx #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit #include // Pascal unit //-- user supplied ----------------------------------------------------------- namespace Showdistribution { //-- type declarations ------------------------------------------------------- #pragma option push -b- enum TDirection { Horizontal, Vertical }; #pragma option pop class DELPHICLASS TShowDistribution; class PASCALIMPLEMENTATION TShowDistribution : public Controls::TGraphicControl { typedef Controls::TGraphicControl inherited; private: Graphics::TColor FBackgroundColor; Graphics::TColor FForegroundColor; Graphics::TColor FHighlightColor; int PointerOfArrayData; int FLeftMargin; int FTopMargin; int FRightMargin; int FBottomMargin; TDirection FDirection; int FIndexMin; int FIndexMax; int FHilightMin; int FHilightMax; int FMaxData; Graphics::TBitmap* FBitmap; Windows::TRect FBitmapArea; void __fastcall SetBackgroundColor(Graphics::TColor AColor); void __fastcall SetForegroundColor(Graphics::TColor AColor); void __fastcall SetHighlightColor(Graphics::TColor AColor); public: __fastcall virtual TShowDistribution(Classes::TComponent* AOwner); virtual void __fastcall Paint(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 LeftMargin = {read=FLeftMargin, write=FLeftMargin, default=0}; __property int TopMargin = {read=FTopMargin, write=FTopMargin, default=0}; __property int RightMargin = {read=FRightMargin, write=FRightMargin, default=0}; __property int BottomMmargin = {read=FBottomMargin, write=FBottomMargin, default=0}; __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 HighlightMin = {read=FHilightMin, write=FHilightMin, nodefault}; __property int HighlightMax = {read=FHilightMax, write=FHilightMax, nodefault}; __property int ArrayData = {read=PointerOfArrayData, write=PointerOfArrayData, nodefault}; __property Height ; __property Width ; public: #pragma option push -w-inl /* TGraphicControl.Destroy */ inline __fastcall virtual ~TShowDistribution(void) { } #pragma option pop }; //-- var, const, procedure --------------------------------------------------- extern PACKAGE void __fastcall Register(void); } /* namespace Showdistribution */ #if !defined(NO_IMPLICIT_NAMESPACE_USE) using namespace Showdistribution; #endif #pragma option pop // -w- #pragma option pop // -Vx #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // ShowDistribution