Canal Alpha Icones

Delphi

12/07/2016

Boa tarde a todos!
Estou precisando de ajuda de novo:

È o seguinte estou criando um componente para delphi 7
para abrir diretórios tipo o "opendialog" mas para visualizar só
diretórios igual o OpenDialog no windowsXP. Já esta quase pronto
estou com um probleminha com os ícones, No XP ícones ficam
assim:
[img]https://postimg.org/image/lxfken9ht/[/img]

não fica bom. Então coloquei uma função para corrigir o canal_alpha dos
ícones.
procedure GetAlphaChannelBitmap(Bmp: TBitmap);
begin
    Bmp.Transparent := TRUE;
    Bmp.Mask(Bmp.TransparentColor);
    Bmp.PixelFormat:= pf32bit;
    Bmp.TransparentMode:= tmAuto ;
    Bmp.TransparentColor := clBtnFace;
    Bmp.Canvas.Brush.Color := clBtnFace;
    Bmp.Canvas.FillRect(Rect(0, 0, Bmp.Width, Bmp.Height));
end;


Ae ficou lindo perfeito achei que já tinha terminado meu componente kkkkk
[img]https://postimg.org/image/6nfp7gdzl/[/img]

Mas quando rodei no Windows 7 e 8 e 10 ficaram orriveis

[img]https://postimg.org/image/pehmhm8k1/[/img]

alguém pode me ajuda ? sabe alguma função para ajustar o canal-alpha
dos ícones corretamente?

desde já agradeço pela atenção;
Cgm2k7 2013

Cgm2k7 2013

Curtidas 0

Respostas

Cgm2k7 2013

Cgm2k7 2013

12/07/2016

help-me
GOSTEI 0
POSTAR