// CodeGear C++Builder // Copyright (c) 1995, 2025 by Embarcadero Technologies, Inc. // All rights reserved // (DO NOT EDIT: machine generated header) 'iexThemes.pas' rev: 37.00 (Windows) #ifndef iexThemesHPP #define iexThemesHPP #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 //-- user supplied ----------------------------------------------------------- namespace Iexthemes { //-- forward type declarations ----------------------------------------------- class DELPHICLASS TImageEnStyleHook; //-- type declarations ------------------------------------------------------- class PASCALIMPLEMENTATION TImageEnStyleHook : public Vcl::Forms::TScrollingStyleHook { typedef Vcl::Forms::TScrollingStyleHook inherited; private: void __fastcall UpdateColors(); protected: virtual void __fastcall WndProc(Winapi::Messages::TMessage &Message); public: __fastcall virtual TImageEnStyleHook(Vcl::Controls::TWinControl* AControl); public: /* TScrollingStyleHook.Destroy */ inline __fastcall virtual ~TImageEnStyleHook() { } }; enum DECLSPEC_DENUM TIEThemePart : unsigned char { ietpControlBackground, ietpControlBackgroundDisabled, ietpControlBackgroundGradientEnd, ietpControlBorder, ietpThumbCellBackground, ietpThumbCellBackgroundSelected, ietpThumbCellBackgroundDisabledSelected, ietpThumbCellBorder, ietpThumbCellBorderSelected, ietpThumbCellBorderDisabled, ietpThumbCellFont, ietpThumbCellFontSelected, ietpThumbCellFontDisabled, ietpRuler, ietpRulerBackground, ietpRulerText, ietpRulerBorder, ietpRulerGripFill, ietpRulerGripBorder, ietpPanel }; //-- var, const, procedure --------------------------------------------------- static _DELPHI_CONST int clExplorer_Selection_Background_Color = int(0xfceada); static _DELPHI_CONST int clExplorer_Selection_Border_Color = int(0xcea27d); extern DELPHI_PACKAGE System::Uitypes::TColor __fastcall GetThemeColor(TIEThemePart Part, System::Uitypes::TColor DefaultColor, bool ForceThemed = false); extern DELPHI_PACKAGE Vcl::Themes::TCustomStyleServices* __fastcall IEStyleServices(void); extern DELPHI_PACKAGE bool __fastcall IEStyleServices_Enabled(void); } /* namespace Iexthemes */ #if !defined(DELPHIHEADER_NO_IMPLICIT_NAMESPACE_USE) && !defined(NO_USING_NAMESPACE_IEXTHEMES) using namespace Iexthemes; #endif #pragma pack(pop) #pragma option pop #pragma delphiheader end. //-- end unit ---------------------------------------------------------------- #endif // iexThemesHPP