bcthememanager.pas 754 B

1234567891011121314151617181920212223242526272829303132
  1. // SPDX-License-Identifier: LGPL-3.0-linking-exception
  2. {******************************* CONTRIBUTOR(S) ******************************
  3. - Edivando S. Santos Brasil | [email protected]
  4. (Compatibility with delphi VCL 11/2018)
  5. ***************************** END CONTRIBUTOR(S) *****************************}
  6. unit BCThemeManager;
  7. {$I bgracontrols.inc}
  8. interface
  9. uses
  10. Classes, SysUtils, Forms, Controls, Graphics,
  11. {$IFDEF FPC}LResources, {$ELSE}Types, BGRAGraphics, GraphType, FPImage,{$ENDIF} Dialogs;
  12. type
  13. TBCThemeManager = class(TComponent)
  14. private
  15. protected
  16. public
  17. procedure Apply(AControl: TWinControl); overload; virtual; abstract;
  18. procedure Apply(); overload; virtual; abstract;
  19. published
  20. end;
  21. implementation
  22. end.