Ir para conteúdo
Fórum Script Brasil
  • 0

Converter Bmp Para ícone


Mauro Jr

Pergunta

4 respostass a esta questão

Posts Recomendados

  • 0

Olá, ai vai com código que converte icone p/ bimap, só que o inverso(bitmap p/ icone) eu num sei não.

Adinione dois TImage e um TButton do Form, na mesma pasta do projeto coloque um arquivo *.ico, no exemplo to usando um icone com o nome: 'Aviso.ico'.

No onCreate do Form coloque:

Image1.Picture.Icon.LoadFromFile('Aviso.ico');
no button:
procedure TForm1.Button1Click(Sender: TObject);
var winDC, srcdc, destdc : HDC;
    oldBitmap : HBitmap;
    iinfo : TICONINFO;
begin
    GetIconInfo(Image1.Picture.Icon.Handle, iinfo);

    WinDC := getDC(handle);
    srcDC := CreateCompatibleDC(WinDC);
    destDC := CreateCompatibleDC(WinDC);
    oldBitmap := SelectObject(destDC, iinfo.hbmColor);
    oldBitmap := SelectObject(srcDC, iinfo.hbmMask);

    BitBlt(destdc, 0, 0, Image1.Picture.Icon.Width,
           Image1.Picture.Icon.Height, srcdc, 0, 0, SRCPAINT);
    Image2.Picture.Bitmap.Handle := SelectObject(destDC, oldBitmap);
    DeleteDC(destDC);
    DeleteDC(srcDC);
    DeleteDC(WinDC);

    Image2.Picture.Bitmap.SaveToFile(ExtractFilePath(Application.ExeName)+'myfile.bmp');
end;

Esse exemplo irá criar o 'myfile.bmp'.

Abs. Progr'amador.

Link para o comentário
Compartilhar em outros sites

  • 0
pow... tenta o paint brush.. paint shop....

mas não tah em forum errado não ?!?!?!

vlw.....

porque no Forum errado? Cara, estou tentando apenas aprender.

Se não quer ajudar, então não posta.

Acho que tu é que estás no Forum errado!

Mauro mad.gif

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...