VclStylesExt

The Vcl.Styles.Ext unit extends the TStyleManager Delphi class adding new properties and methods to list, remove and reload the VCL Styles.

Example to remove a VCL Style

 TStyleManager.RemoveStyle('Carbon');

This unit also a define a new class called TCustomStyleExt that descends of the TCustomStyle and allow you to access to the RAW data of the VCL Styles like bitmaps, fonts and colors.

For example you can modify the vcl styles colors in this way

  TCustomStyleExt(TStyleManager.ActiveStyle).SetStyleColor(scEdit, clRed);
  TCustomStyleExt(TStyleManager.Style[StyleName]).SetSystemColor(clBtnFace,clLime);
  TCustomStyleExt(TStyleManager.Style[StyleName]).SetStyleColor(scBorder, clBlue);
  TCustomStyleExt(TStyleManager.Style[StyleName]).SetStyleFontColor(sfButtonTextNormal, clYellow);