// CodeGear C++Builder // Copyright (c) 1995, 2025 by Embarcadero Technologies, Inc. // All rights reserved // (DO NOT EDIT: machine generated header) 'iegradientbar.pas' rev: 37.00 (Windows) #ifndef iegradientbarHPP #define iegradientbarHPP #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 Iegradientbar { //-- forward type declarations ----------------------------------------------- class DELPHICLASS TIEGradientBar; //-- type declarations ------------------------------------------------------- enum DECLSPEC_DENUM TIEMouseInteractItemsGr : unsigned char { migDragGrip }; typedef System::Set TIEMouseInteractGr; class PASCALIMPLEMENTATION TIEGradientBar : public Vcl::Controls::TCustomControl { typedef Vcl::Controls::TCustomControl inherited; private: int fColorIndex; System::Uitypes::TColor fBeginColor; System::Uitypes::TColor fEndColor; System::StaticArray fGradient; Hyiedefs::TIEGradientDir fDirection; System::Classes::TNotifyEvent fOnChange; TIEMouseInteractGr fMouseInteract; void __fastcall SetColorIndex(int v); void __fastcall SetBeginColor(System::Uitypes::TColor v); void __fastcall SetEndColor(System::Uitypes::TColor v); System::Uitypes::TColor __fastcall GetColor(); Hyiedefs::TRGB __fastcall GetRGB(); void __fastcall SetDirection(Hyiedefs::TIEGradientDir v); void __fastcall SetMouseInteractGr(TIEMouseInteractGr v); TIEMouseInteractGr __fastcall GetMouseInteractGr(); 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); void __fastcall CalcGradient(); void __fastcall DrawGrip(); public: virtual void __fastcall Paint(); __fastcall virtual TIEGradientBar(System::Classes::TComponent* Owner); __fastcall virtual ~TIEGradientBar(); __property int ColorIndex = {read=fColorIndex, write=SetColorIndex, nodefault}; __property System::Uitypes::TColor Color = {read=GetColor, nodefault}; __property Hyiedefs::TRGB RGB = {read=GetRGB}; __published: __property System::Uitypes::TColor BeginColor = {read=fBeginColor, write=SetBeginColor, default=0}; __property System::Uitypes::TColor EndColor = {read=fEndColor, write=SetEndColor, default=16777215}; __property Hyiedefs::TIEGradientDir Direction = {read=fDirection, write=SetDirection, default=1}; __property System::Classes::TNotifyEvent OnChange = {read=fOnChange, write=fOnChange}; __property TIEMouseInteractGr MouseInteract = {read=GetMouseInteractGr, write=SetMouseInteractGr, default=1}; __property Width = {default=40}; __property Height = {default=300}; __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 OnContextPopup; public: /* TWinControl.CreateParented */ inline __fastcall TIEGradientBar(HWND ParentWindow) : Vcl::Controls::TCustomControl(ParentWindow) { } }; //-- var, const, procedure --------------------------------------------------- } /* namespace Iegradientbar */ #if !defined(DELPHIHEADER_NO_IMPLICIT_NAMESPACE_USE) && !defined(NO_USING_NAMESPACE_IEGRADIENTBAR) using namespace Iegradientbar; #endif #pragma pack(pop) #pragma option pop #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // iegradientbarHPP