buton
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 6
- Kayıt: 16 Tem 2018 10:49
buton
iyi günler.delphide ekrana cxbuton atıyorum windows 10 da yani kendi pc'mde kçşeleri oval gözükmüyor.uzak masaüstü ile açarsam projeyi başka işletim sisteminde köşeleri oval gözüküyor.yani daha güzel gözüküyor.aynı proje neden olur böyle.
Re: buton
Merhaba,
Buton, Edit gibi temel bileşenler esasen Windows işletim sistemi nesneleridir. İşletim sistemi standardına uyarlar.
Başka işletim sistemi sürümü, kullanılan görsel tema vb sebeplerden buton şekilleri bahsettiğiniz farklılıkları gösterebilir.
Buton, Edit gibi temel bileşenler esasen Windows işletim sistemi nesneleridir. İşletim sistemi standardına uyarlar.
Başka işletim sistemi sürümü, kullanılan görsel tema vb sebeplerden buton şekilleri bahsettiğiniz farklılıkları gösterebilir.
-
- Üye
- Mesajlar: 6
- Kayıt: 16 Tem 2018 10:49
Re: buton
Cevabınız için teşekkür ederim,
Peki bununiçin bir çözüm var mı?delphi10.2 sürümü kullaıyorum windows10 da dabutonun köşelerinin oval olmasını sağlayabilir miyim?
Peki bununiçin bir çözüm var mı?delphi10.2 sürümü kullaıyorum windows10 da dabutonun köşelerinin oval olmasını sağlayabilir miyim?
Re: buton
Şunu deneyebilirsiniz:
TButton için ana menü üzerinden:
Project -> Options -> Application -> Appearance
Bu ekranda Custom Styles içinden "Amethyst Kamri" seçin. Ekranın altındaki Default Style kısmında yine aynı stil ismini seçin. Projeyi çalıştırın.
DevExpress bileşenleri için ana menü üzerinden:
Project -> Modify Skin Options
Gelen ekranda Enable skin support seçili olacak. Available skins listsinden istediğiniz bir stili seçin.
Form üzerine cxLookAndFeelController ekleyin. İlgili bileşen içinde NativeStyle özelliğini false yapın. SkinName kısmından istediğiniz bir stili seçin.
TButton için ana menü üzerinden:
Project -> Options -> Application -> Appearance
Bu ekranda Custom Styles içinden "Amethyst Kamri" seçin. Ekranın altındaki Default Style kısmında yine aynı stil ismini seçin. Projeyi çalıştırın.
DevExpress bileşenleri için ana menü üzerinden:
Project -> Modify Skin Options
Gelen ekranda Enable skin support seçili olacak. Available skins listsinden istediğiniz bir stili seçin.
Form üzerine cxLookAndFeelController ekleyin. İlgili bileşen içinde NativeStyle özelliğini false yapın. SkinName kısmından istediğiniz bir stili seçin.
-
- Üye
- Mesajlar: 6
- Kayıt: 16 Tem 2018 10:49
Re: buton
Ertan bey ilginiz için teşekkür ederim.Dediğiniz yol ile başarılı sonuç elde ettim.
-
- Üye
- Mesajlar: 6
- Kayıt: 16 Tem 2018 10:49
Re: buton
TButton için ana menü üzerinden:
Project -> Options -> Application -> Appearance
Bu ekranda Custom Styles içinden "Amethyst Kamri" seçin. Ekranın altındaki Default Style kısmında yine aynı stil ismini seçin. Projeyi çalıştırın.
şeklinde yaptığımda Tpanelin rengi de temaya brünüyor.bunu nasıl engelleyebilirim.Teşekkür Ederim..
Project -> Options -> Application -> Appearance
Bu ekranda Custom Styles içinden "Amethyst Kamri" seçin. Ekranın altındaki Default Style kısmında yine aynı stil ismini seçin. Projeyi çalıştırın.
şeklinde yaptığımda Tpanelin rengi de temaya brünüyor.bunu nasıl engelleyebilirim.Teşekkür Ederim..
Re: buton
Merhaba,
Sadece bir tür bileşenin tema kullanmasını sağlamak istiyorsanız diğer bileşenlerin StyleServices üzerinden çalışmasını engellemeniz gerekli. Bunu aşağıdaki gibi bir kod yardımı ile yapmanız mümkün olabilir.
Kullanımı aşağıdaki gibi olacaktır
Kaynak: https://stackoverflow.com/questions/140 ... -in-delphi
Diğer taraftan, "Amethyst Kamri" stili panel görüntüsünde bir değişiklik yapmamakta. Muhtemelen farklı bir stil kullanıyorsunuz. Sorularınızda mümkün mertebe detaylı bilgi vermenizde fayda var.
Ekte Delphi 10.3.2 ile çalışan örnek proje bulabilirsiniz.
Sadece bir tür bileşenin tema kullanmasını sağlamak istiyorsanız diğer bileşenlerin StyleServices üzerinden çalışmasını engellemeniz gerekli. Bunu aşağıdaki gibi bir kod yardımı ile yapmanız mümkün olabilir.
Kod: Tümünü seç
procedure DisableVclStyles(Control : TControl;const ClassToIgnore:string);
var
i : Integer;
begin
if Control=nil then
Exit;
if not Control.ClassNameIs(ClassToIgnore) then
Control.StyleElements:=[];
if Control is TWinControl then
for i := 0 to TWinControl(Control).ControlCount-1 do
DisableVclStyles(TWinControl(Control).Controls[i], ClassToIgnore);
end;
Kod: Tümünü seç
procedure TForm2.FormCreate(Sender: TObject);
begin
DisableVclStyles(Self, 'TButton');
end;
Diğer taraftan, "Amethyst Kamri" stili panel görüntüsünde bir değişiklik yapmamakta. Muhtemelen farklı bir stil kullanıyorsunuz. Sorularınızda mümkün mertebe detaylı bilgi vermenizde fayda var.
Ekte Delphi 10.3.2 ile çalışan örnek proje bulabilirsiniz.
- Dosya ekleri
-
- VCL_style_selective.7z
- (130.79 KiB) 88 kere indirildi