Jannah Theme License is not validated, Go to the theme options page to validate the license, You need a single license for each domain name.
DelphiPemrograman

Delphi VCL Theme Style Demo #211

Lipan itu adalah hewan

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 :

Delphi VCL Theme Style
Normal LYFE

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

Related Articles

One Comment

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Back to top button