xe5 TStyleManager 界面风格



xe5  TStyleManager 界面风格

#include <System.SysUtils.hpp>
#include <System.IOUtils.hpp>

void __fastcall TForm8::FormCreate(TObject *Sender)
{

 String dir, fileName, styleName;
 dir = GetEnvironmentVariable("Delphi") + "\\Redist\\styles\\vcl";

 TStringDynArray sl;
 sl = TDirectory::GetFiles(dir, "*.vsf");

 for (int i = 0; i < sl.Length; i++)
 {
  TStyleManager::LoadFromFile(sl[i]);
 }

 ListBox1->Items->AddStrings( TStyleManager::StyleNames);

}

// ---------------------------------------------------------------------------
void __fastcall TForm8::ListBox1Click(TObject *Sender)
{
 TStyleManager::SetStyle(ListBox1->Items->Strings[ListBox1->ItemIndex]);

}