// CodeGear C++Builder // Copyright (c) 1995, 2025 by Embarcadero Technologies, Inc. // All rights reserved // (DO NOT EDIT: machine generated header) 'histogrambox.pas' rev: 37.00 (Windows) #ifndef histogramboxHPP #define histogramboxHPP #pragma delphiheader begin #pragma option push #if defined(__BORLANDC__) && !defined(__clang__) #pragma option -w- // All warnings off #pragma option -Vx // Zero-length empty class member #endif #pragma pack(push,8) #include #include #include #include #include #include #include #include #include #include #include #include #include #include //-- user supplied ----------------------------------------------------------- namespace Histogrambox { //-- forward type declarations ----------------------------------------------- class DELPHICLASS THistogramBox; //-- type declarations ------------------------------------------------------- enum DECLSPEC_DENUM Histogrambox__1 : unsigned char { hkRed, hkGreen, hkBlue, hkGray, hkHue }; typedef System::Set THistogramKind; enum DECLSPEC_DENUM Histogrambox__2 : unsigned char { hlVertical, hlHorizontal }; typedef System::Set THistogramLabels; enum DECLSPEC_DENUM THistogramStyle : unsigned char { hsBars, hsLines, hsFilledLines }; enum DECLSPEC_DENUM THistogramMouseInteract : unsigned char { mhNone, mhSelectValue, mhSelectRange }; class PASCALIMPLEMENTATION THistogramBox : public Vcl::Controls::TCustomControl { typedef Vcl::Controls::TCustomControl inherited; private: System::Uitypes::TColor fBackground; Imageenproc::TImageEnProc* fAIEP; THistogramKind fHistKind; THistogramLabels fLabels; bool fCompBar; THistogramStyle fHistogramStyle; int fHistogramAbsXPos; System::Uitypes::TColor fGrayColor; int fMouseMinX; int fMouseMaxX; bool fMouseMinDown; bool fMouseMaxDown; THistogramMouseInteract fMouseInteract; System::Uitypes::TColor fSelectionColor; System::Classes::TNotifyEvent fOnSelectionChanged; System::Classes::TNotifyEvent fOnSelectionChanging; Hyiedefs::THistogramScale fScale; void __fastcall SetBackground(System::Uitypes::TColor bk); void __fastcall SetLabels(THistogramLabels v); void __fastcall SetCompBar(bool v); void __fastcall SetHistogramStyle(THistogramStyle v); void __fastcall SetHistogramKind(THistogramKind v); void __fastcall SetAIEP(Imageenproc::TImageEnProc* v); THistogramKind __fastcall GetHistogramKind(); THistogramLabels __fastcall GetLabels(); void __fastcall SetMouseInteract(THistogramMouseInteract v); void __fastcall SetSelectionColor(const System::Uitypes::TColor Value); int __fastcall GetMaxSelected(); int __fastcall GetMinSelected(); void __fastcall SetMaxSelected(const int Value); void __fastcall SetMinSelected(const int Value); void __fastcall SetScale(Hyiedefs::THistogramScale Value); protected: HIDESBASE MESSAGE void __fastcall WMSize(Winapi::Messages::TWMSize &Message); HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Winapi::Messages::TMessage &Message); DYNAMIC void __fastcall MouseMove(System::Classes::TShiftState Shift, int X, int Y); DYNAMIC void __fastcall MouseDown(System::Uitypes::TMouseButton Button, System::Classes::TShiftState Shift, int X, int Y); DYNAMIC void __fastcall MouseUp(System::Uitypes::TMouseButton Button, System::Classes::TShiftState Shift, int X, int Y); virtual void __fastcall Notification(System::Classes::TComponent* AComponent, System::Classes::TOperation Operation); public: Vcl::Graphics::TBitmap* Bitmap; virtual void __fastcall Paint(); __fastcall virtual THistogramBox(System::Classes::TComponent* Owner); __fastcall virtual ~THistogramBox(); virtual void __fastcall Update(); void __fastcall UpdateFromBitmap(Iexbitmaps::TIEBitmap* Bitmap); void __fastcall UpdateFromHistogram(Imageenproc::TIEHistogram Histogram); void __fastcall Clear(); __property int HistogramAbsXPos = {read=fHistogramAbsXPos, nodefault}; __property System::Uitypes::TColor SelectionColor = {read=fSelectionColor, write=SetSelectionColor, nodefault}; __property int MinSelected = {read=GetMinSelected, write=SetMinSelected, nodefault}; __property int MaxSelected = {read=GetMaxSelected, write=SetMaxSelected, nodefault}; __property Hyiedefs::THistogramScale Scale = {read=fScale, write=SetScale, nodefault}; __published: __property Imageenproc::TImageEnProc* AttachedImageEnProc = {read=fAIEP, write=SetAIEP}; __property System::Uitypes::TColor Background = {read=fBackground, write=SetBackground, default=16777215}; __property THistogramKind HistogramKind = {read=GetHistogramKind, write=SetHistogramKind, default=8}; __property THistogramLabels Labels = {read=GetLabels, write=SetLabels, default=3}; __property bool CompBar = {read=fCompBar, write=SetCompBar, default=1}; __property THistogramStyle HistogramStyle = {read=fHistogramStyle, write=SetHistogramStyle, default=0}; __property System::Uitypes::TColor GrayColor = {read=fGrayColor, write=fGrayColor, default=0}; __property System::Classes::TNotifyEvent OnSelectionChanged = {read=fOnSelectionChanged, write=fOnSelectionChanged}; __property System::Classes::TNotifyEvent OnSelectionChanging = {read=fOnSelectionChanging, write=fOnSelectionChanging}; __property THistogramMouseInteract MouseInteract = {read=fMouseInteract, write=SetMouseInteract, default=0}; __property Align = {default=0}; __property DragCursor = {default=-12}; __property DragMode = {default=0}; __property Enabled = {default=1}; __property ParentShowHint = {default=1}; __property PopupMenu; __property ShowHint; __property Visible = {default=1}; __property OnClick; __property OnDblClick; __property OnDragDrop; __property OnDragOver; __property OnEndDrag; __property OnMouseDown; __property OnMouseMove; __property OnMouseUp; __property OnStartDrag; __property Font; __property Width = {default=256}; __property Height = {default=105}; __property OnContextPopup; public: /* TWinControl.CreateParented */ inline __fastcall THistogramBox(HWND ParentWindow) : Vcl::Controls::TCustomControl(ParentWindow) { } }; //-- var, const, procedure --------------------------------------------------- } /* namespace Histogrambox */ #if !defined(DELPHIHEADER_NO_IMPLICIT_NAMESPACE_USE) && !defined(NO_USING_NAMESPACE_HISTOGRAMBOX) using namespace Histogrambox; #endif #pragma pack(pop) #pragma option pop #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // histogramboxHPP