Runtime TPanel Arkaplanının Transparent Yapılması

[Abdullah ILGAZ]

Merhaba,

TPanel komponentini kullanarak geliştirdiğim birkaç alternatif komponent yer alıyor. OnPaint aksiyonunda yeniden boyama işlemi yapıyorum. Default Windows çıktısında her şey yolunda gözüküyor. Runtime arayüz temalarını uyguladığı zaman TPanel, benim işlemlerimi gerçekleştirmiyor. 

Runtime arayüz temalarının spesifik olarak belirteceğim TWinControl komponentlerine müdahale etmemesi için bir öneriniz var mı? (Hatta mümkünse doğrudan komponent bazlı kısıtlama)

[mrmarman]

Panelin StyleElements  property'sinden dilediğiniziz boşaltabilirsiniz.

Örneğin 


Normal hali şu iken....

Panel1.StyleElements  := [seFont,seClient,seBorder];

Font ve Border style tarafından yönetilsin ancak Client'e dokunmasın demek için....seClient silebilirsiniz.

Panel1.StyleElements  := [seFont, seBorder];

Herşeyi ben yöneteyim Style Panel'e etki etmesin derseniz

Panel1.StyleElements  := [];

[Abdullah ILGAZ]

(31-05-2020, Saat: 15:33)mrmarman Adlı Kullanıcıdan Alıntı: Panelin StyleElements  property'sinden dilediğiniziz boşaltabilirsiniz.

Örneğin 


Normal hali şu iken....

Panel1.StyleElements  := [seFont,seClient,seBorder];

Font ve Border style tarafından yönetilsin ancak Client'e dokunmasın demek için....seClient silebilirsiniz.

Panel1.StyleElements  := [seFont, seBorder];

Herşeyi ben yöneteyim Style Panel'e etki etmesin derseniz

Panel1.StyleElements  := [];

@mrmarman Harika bir bilgi! Çok teşekkürler. 

SoF'da bu konu daha önce tartışılmış ve David H. bunun yanlış olduğunu veya transparan = (visible=false) anlamına geldiğini söylemiş. Son çare TPanel'den inherit olan ve arkaplanı transparan olan bir panel komponenti oluşturacaktım ama gerek kalmadı. 

Runtime temalarını kullanıp kendi komponent arabirimlerini kodlayanlar eğer bu tarz tasarımın sizin kodlarınızı ezdiği bir durumla karşılaşırsanız sadece TPanel değil, TLabel, TImage vb. temel komponentlerin tamamı için StyleElements özelliklerini yönetebilirsiniz.

Pratik İpucu: İlgili formun *.DFM dosyasını kompakt bir kod editörü (VS Code gibi) ile açın ve ilgili komponent tanımlarına Üstad @mrmarman ın belirttiği gibi tanımı yazın, noktalı virgül kullanmadan.

[serdal_aksoy]

(31-05-2020, Saat: 15:08)Abdullah ILGAZ Adlı Kullanıcıdan Alıntı: Merhaba,

TPanel komponentini kullanarak geliştirdiğim birkaç alternatif komponent yer alıyor. OnPaint aksiyonunda yeniden boyama işlemi yapıyorum. Default Windows çıktısında her şey yolunda gözüküyor. Runtime arayüz temalarını uyguladığı zaman TPanel, benim işlemlerimi gerçekleştirmiyor. 

Runtime arayüz temalarının spesifik olarak belirteceğim TWinControl komponentlerine müdahale etmemesi için bir öneriniz var mı? (Hatta mümkünse doğrudan komponent bazlı kısıtlama)

Merhaba panel transpare işlemine ihtiyacım var nasıl yaptınız acaba, bilgi paylaşabilir misiniz,

Teşekkürler.

[cinarbil]

(12-07-2021, Saat: 13:51)serdal_aksoy Adlı Kullanıcıdan Alıntı:

(31-05-2020, Saat: 15:08)Abdullah ILGAZ Adlı Kullanıcıdan Alıntı: Merhaba,

TPanel komponentini kullanarak geliştirdiğim birkaç alternatif komponent yer alıyor. OnPaint aksiyonunda yeniden boyama işlemi yapıyorum. Default Windows çıktısında her şey yolunda gözüküyor. Runtime arayüz temalarını uyguladığı zaman TPanel, benim işlemlerimi gerçekleştirmiyor. 

Runtime arayüz temalarının spesifik olarak belirteceğim TWinControl komponentlerine müdahale etmemesi için bir öneriniz var mı? (Hatta mümkünse doğrudan komponent bazlı kısıtlama)

Merhaba panel transpare işlemine ihtiyacım var nasıl yaptınız acaba, bilgi paylaşabilir misiniz,

Teşekkürler.

İnternette biraz araştırma yaptıysanız delphinin standart panel componentti ile saydamlık yapılamadığını göreceksiniz
onun yerine yapmak istediğinizi 3. firma bileşenleri ile yapmalısınız (Ücretlidir)
 veya  
@mrmarman beyin güzel sözü olan  Programcılık biraz sihir biraz illizyon sihir beynimizde illizyon her yerde deyişi ile 
madem panel ile saydamlık olmuyor farkı komponentlere yönelerek çözüm üretmelisiniz.
Yukarda yazmışlar oluyor demeyin orada @Abdullah ILGAZ bey zaten onpaint tarafında kendi çözümünü üretmiş.

[Tuğrul HELVACI]

Delphi'nin son versiyonları ile Windows 10 'da aşağıdaki kod vasıtası ile tüm TWinControl türevlerine yarı saydamlık kazandırılabilir.

  
type
TWinControlHelper = class helper for TWinControl
  public
   procedure AlphaBlendEx(const AlphaBlendValue : Byte); 
 end;

...
...
...

procedure TWinControlHelper.AlphaBlendEx(const AlphaBlendValue: Byte);
var
 AHandle   : HWND;
 AExStyle  : NativeInt;
begin
 AHandle := Self.Handle;

 AExStyle := GetWindowLongPtr(AHandle, GWL_EXSTYLE);
 if AlphaBlendValue = 255
 then AExStyle := AExStyle and (not WS_EX_LAYERED)
 else AExStyle := AExStyle or WS_EX_LAYERED;

 SetWindowLongPtr(AHandle, GWL_EXSTYLE, AExStyle);
 SetLayeredWindowAttributes(AHandle, 0, AlphaBlendValue, LWA_ALPHA);
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
 Panel1.AlphaBlendEx(128);
end;