TThemeServices

type TThemeServices = class(TObject)

protected

  function InitThemes; virtual;

  procedure UnloadThemeData; virtual;

  function UseThemes; virtual;

  function ThemedControlsEnabled; virtual;

  function InternalColorToRGB(); virtual;

  procedure InternalDrawParentBackground(); virtual;

public

  constructor Create;

  destructor Destroy; override;

  procedure IntfDoOnThemeChange; virtual;

  function IsDisabled();

  function IsPushed();

  function IsHot();

  function IsChecked();

  function IsMixed();

  function GetElementDetails();

  function GetDetailSize(); virtual;

  function GetStockImage(); virtual;

  function GetOption(); virtual;

  function ColorToRGB();

  function ContentRect(); virtual;

  procedure DrawEdge(); virtual;

  procedure DrawElement(); virtual;

  procedure DrawIcon();

  procedure DrawParentBackground();

  procedure DrawText();

  function HasTransparentParts(); virtual;

  procedure PaintBorder(); virtual;

  procedure UpdateThemes;

  property DottedBrush: HBRUSH; [r]

  property ThemesAvailable: Boolean; [r]

  property ThemesEnabled: Boolean; [r]

  property OnThemeChange: TNotifyEvent; [rw]

end;

TThemeServices

TObject