Delphi VCL Theme Style Demo #211

andrypein.net : Akhirnya dan akhirnya demo untuk delphi VCL style selesai juga, vcl style yakni tema bawaan dari delphi XE2 nya itu sendiri.

Yang ane buat ga pake internal theme, alias kopiin semua style nya dan silahkan ganti-ganti tema nya saat running program.

Mungkin sudah tidak asing form biasa dengan standar bawaan tema window tuh model bentukannya seperti ini :

Allrite kita ubah ubah menjadi keren seperti gallery dibawah.

Kita berkoding dulu sedikit, bahannya sedikit cuma satu tombol,listbox,dan satu label (mayan nih kode bikin gw muntah,padahal dikit,yang bikin lama adalah mikirnya dan eror mulu yang ada).

Tapi semua itu EZ SOLVED

Sebelum itu tambahkan uses berikut ke bagian uses nya “Vcl.Themes, TypInfo, System.IOUtils, Vcl.Styles“.

Kode pertama, kita ke form OnCreate dulu.

procedure TForm1.FormCreate(Sender: TObject);
var
  namatema,hasilekstrak : string;
begin
  for namatema in TDirectory.GetFiles((ExtractFilePath(ParamStr(0)))+'style','*'+TStyleEngine.FileExtension) do
    begin
      hasilekstrak:=extractfilename(namatema);
      ListBoxtema.Items.Add(hasilekstrak);
    end;
end;

Penjelasan : yang dikutip dengan nama style adalah nama folder yang bersama dengan .exe si programnya, kebetulan nama foldernya style, kalo rubah otomatis listbox akan gagal load.

Lalu setelah itu ke listbox click.

procedure TForm1.ListBoxTemaClick(Sender: TObject);
var
  i : smallint;
begin
  i:=listboxtema.ItemIndex;
  label1.Caption:=listboxtema.Items[i];
end;

Last untuk button apply nya.

procedure TForm1.Button1Click(Sender: TObject);
var
  lokasi,tema : string;
begin
  lokasi:=getcurrentdir+'style';
  tema:=''+label1.Caption;
  TStyleManager.SetStyle(TStyleManager.LoadFromFile(lokasi+tema));
end;

Okay selesai ini hasilnya :

Download Delphi VCL Theme Style nya gan janlups.

Download

*AFK