PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

Fórum Canal Alpha Icones #559200

12/07/2016

0

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

Responder

Posts

14/07/2016

Cgm2k7 2013

help-me
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar