Delphi ile bedava Skin (Görünüm) Değiştirme

Yazar 23 Eylül 2020 Çarşamba

Delphi ile bedava Skin (Görünüm) Değiştirme

Delphi ile yıllardır program yazarım. En gıcık olduğum şey skin componentidir. Windows görünümünü hiç beğenmem. Ama skin componenti ninde bedavası yok. Kırık, korsan Lisanssız component de kullanmak çok işime gelmiyor. Sonra bir arkadaşın da yardımıyla aslında Delphi XE serisinde zaten bu özelliğin olduğunu hemde bedava olduğunu gördüm. İşte normal tasarlanmış form. şimdi buna skin ekleyelim İsterseniz Ctrl + Shift + F11 yada aşağıdaki menüyü açıyoruz. Gördüğünüz menüden istediğiniz skini seçebilirsiniz. seçim yaptıktan sora alt tarafta bulunan Default Style kısmından seçtiğiniz temayı varsayılan yapıyoruz. İşte bu kadar. Artık bedava Skin kullanıyoruz. Bazı Skinleri test ettim işte örnek resimler bu skini çalışma zamanında yani runtime de değiştirebilirsiniz.

uses Vcl.Themes;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin TStyleManager.TrySetStyle(ComboBox1.Items[ComboBox1.ItemIndex]); end;procedure TForm1.FormShow(Sender: TObject); var s: String; begin ComboBox1.Items.BeginUpdate; try ComboBox1.Items.Clear; for s in TStyleManager.StyleNames do ComboBox1.Items.Add(s); ComboBox1.Sorted := True; ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(TStyleManager.ActiveStyle.Name); finally ComboBox1.Items.EndUpdate; end; end;

Topma 352 Defa Okundu Eklenme Tarihi : 23 Eylül 2020 Çarşamba 00:00
Erkan ÇAĞLAR

Tasarımcı Programcı, Kendi çapında herşey işte .

www.erkancaglar.com.tr
Üste Git