Buscar

Transformando ícone (*.ico) em bitmap (*.bmp)

Código

Var
Pic : TPicture;
TI : TIcon;
begin
TI := TIcon.Create;
TI.Handle := ExtractIcon(HInstance, FileNameBuf, 0);
Pic := TPicture.Create;
Pic.Icon := TI;
Image1.Picture := Pic; {TImage}
BitBtn1.Glyph := TBitmap.Create;
with BitBtn1.Glyph do
begin
width := TI.Width;
Height := TI.Height;
Canvas.Draw(0, 0, Pic.Icon);
end;
end;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Imagens
Adicionada dia: 24/06/03
Por: Felipe Monteiro
Visualizada: 2441 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009