Ben bunu yeni öğrendim bilenler vardır mutlaka. ama bilmeyenler için önemli bir şey olduğunu düşünüyorum
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. Hemde tek satır kod yazmadan.
İş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
Delphi ile bedava Skin (Görünüm) Değiştirme
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Delphi ile bedava Skin (Görünüm) Değiştirme
بِسْمِ اللهِ الرَّحْمنِ الرَّحِيمِ
Forumun 365. Üyesi
Hiç Bir Şey İnsan Kadar Yükselemez ve Alçalamaz
Erkan ÇAĞLAR
Forumun 365. Üyesi
Hiç Bir Şey İnsan Kadar Yükselemez ve Alçalamaz
Erkan ÇAĞLAR
- hi_selamlar
- Üye
- Mesajlar: 523
- Kayıt: 05 May 2005 03:24
- Konum: DelphiTürkiye.COM
Re: Delphi ile bedava Skin (Görünüm) Değiştirme
Merhaba,
Çalışma zamanında (Runtime) da değiştirebilirsiniz.
Kolay gelsin.
Çalışma zamanında (Runtime) da değiştirebilirsiniz.
Kod: Tümünü seç
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;
Herkes cahildir, bazi konularda.
Re: Delphi ile bedava Skin (Görünüm) Değiştirme
merhaba bu kod bloğunu kullanınca comboya yalnızca windows elemanı geliyor diğer skinlerin de gelmesi için ne yapmalı?