VCL Skins aus Datei

[mmw]

Hallo,

so sollte es functionieren.

Delphi-Quellcode:

var
   myStyle : TStyleInfo;

begin

 if TStyleManager.IsValidStyle('C:\Users\Public\Documents\Embarcadero\Studio\21.0\Styles\'+'SmokeyQuartzKamri'+'.vsf', myStyle)

  then
    begin
     TStyleManager.LoadFromFile('C:\Users\Public\Documents\Embarcadero\Studio\21.0\Styles\'+'SmokeyQuartzKamri'+'.vsf');
     TStyleManager.TrySetStyle(myStyle.Name,true);
    end;
  end;

als Beispiel

Gruß