new delphi style system

VCL TMS VCL UI Pack
1

Do you plan to adapt the style of the components automatically according to the delphi styles? Here I can leave you an example of how I do it:

procedure ChangeStyle(pComponente:TComponent);
begin
    if pComponente is TAdvSpinEdit then
    begin
        with (pComponente as TAdvSpinEdit) do begin
          SpinFlat:=false;
          LabelFont.Color:=StyleServices.GetStyleFontColor(sfTextLabelNormal);
          LabelFont.Name:='Tahoma';
          Color:=StyleServices.GetStyleColor(scEdit);
          FocusColor:=StyleServices.GetSystemColor(clHighlight);
          BorderColor:=vEstilo.C_ClHighlight:=StyleServices.GetStyleColor(scBorder);
          BorderStyle:=Vcl.Forms.bsSingle;
          ButtonColor:=StyleServices.GetStyleColor(scButtonNormal);
          ButtonColorDown:=StyleServices.GetStyleColor(scButtonPressed);
          ButtonTextColor:=StyleServices.GetStyleFontColor(sfButtonTextNormal);
          ButtonTextColorDown:=StyleServices.GetStyleFontColor(sfButtonTextPressed);
          ButtonTextColorHot:=StyleServices.GetStyleFontColor(sfButtonTextHot);
          DisabledColor:=StyleServices.GetStyleColor(scEditDisabled);
          FlatLineColor:=StyleServices.GetStyleColor(scPanel);
          FocusBorderColor:=StyleServices.GetStyleColor(scBorder);
        end;
    end;
end;
2

Many TMS VCL UI Pack components already have built-in VCL styles support. The latest TAdvSpinEdit also has it.
Are you using the latest version v12.0.1.0 of TMS VCL UI Pack?

3

Yes, I have the latest version, for example when leaving the focus of the component, the title changes to another color.
I have only tested this component and it already gives me problems, for the moment I use my configuration waiting for it to be corrected

4

We will retest and report.