Colega,
O component TImage é transparente então para mudar a cor da "área" de
desenho dele basta mudar a cor do componete que está por baixo.
No entanto se o que você deseja é alterar a cor de fundo da figura exibida,
existe uma gambiarra que pode ser feita usando uma API do windows que está
disponível através do método Draw do TImageList.
Exemplo (usa um TImage existente no form para exibir a figura
('C:\bitmap1.bmp') cuja cor de fundo original é branco - clWhite):
Var
Bmp : TBitmap;
ImageList : TImageList;
CorTramsp,
CorDeFundo : TColor;
Begin
CorTransp := clWhite; {A cor de transparencia deve ser a mesma do fundo
da imagem original}
CorDeFundo := clBlue; {uma nova cor de fundo qualquer para a imagem}
Bmp := TBitmap.Create;
Bmp.LoadFromFile('C:\bitmap1.bmp');
ImageList := TImageList.CreateSize(Bmp.Width,Bmp.Height);
Try
{Ajusta o tamanho da imagem no seu TImagem}
Image1.Picture.Bitmap.Width := bmp.Width;
Image1.Picture.Bitmap.height := bmp.Width;
{Pinta com a nova cor de fundo}
Image1.Picture.Bitmap.Canvas.Brush.Color := CorDeFundo;
Image1.Picture.Bitmap.Canvas.Fillrect(Rect(0,0,Bmp.Width,Bmp.Height));
{Adiciona a imagem original ao ImageList
e usa o metodo Draw para pinta-la sobre o novo fundo}
ImageList.AddMasked(Bmp, CorTransp);
ImageList.Draw(Image1.Picture.Bitmap.Canvas,0,0,0,True);
Finally
Bmp.Free;
ImageList.Free;
End;
End;
==============================================
[]s,
Alexandre P. Trindade
----- Original Message -----
From: "alarkcy" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Sunday, September 05, 2004 1:45 PM
Subject: [delphi-br] Componente Timage
Olá a todos
sou novato em programação para Delphi.
É possivel mudar a cor da area de desenho de um componente Timage.
Obrigado
Sds
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
