DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais

voltar

PARA QUEM GOSTA DE DELPHI

Função para converter Bitmap para Ícone.

É necessário estar declarado Graphics, Windows na seção uses,
em versões unicode declare Vcl.Graphics, Winapi.Windows;

function BmpToIco(Bitmap : TBitmap): TIcon;
var
  IconInfo: TIconInfo;
begin
  IconInfo.fIcon := True;
  IconInfo.xHotspot := Bitmap.Width;
  IconInfo.yHotspot := Bitmap.Height;
  IconInfo.hbmColor := Bitmap.Handle;
  IconInfo.hbmMask := Bitmap.MaskHandle;
  Result := TIcon.Create;
  with Result do
    Handle := CreateIconIndirect(IconInfo);
end;

Exemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
var
  vBitmap: TBitmap;
  vIcon: TIcon;
begin
  vBitmap := TBitmap.Create;
  vBitmap.LoadFromFile('D:\teste.bmp');
 
  vIcon := BmpToIco(vBitmap);
  vIcon.SaveToFile('D:\teste.ico');
 
  vIcon.Free;
  vBitmap.Free;
end;