Apply Skin Colors to Third-party Controls
Use TbsBusinessSkinForm.OnChangeSkinData event and TbsSkindata.SkinColors property.
Example:
procedure TForm1.bsBusinessSkinForm1ChangeSkinData(Sender: TObject);
begin
DBGridEh1.FixedColor := bsSkinData1.SkinColors.cBtnFace;
DBGridEh1.Color := bsSkinData1.SkinColors.cWindow;
DBGridEh1.Font.Color := bsSkinData1.SkinColors.cWindowText;
DBGridEh1.TitleFont.Color := bsSkinData1.SkinColors.cBtnText;
end;
|