Como colocar uma imagem no fundo de um ListView?

Delphi

21/08/2006

Olá amigos, tenho um ListView, em que estou usando no formato Icon... gostaria de colocar uma imagem no fundo dele, ou seja, atrás dos ícones.. porem gostaria de colocar na parte inferior à direita do componente..

Alguem sabe como posso fazer isso?

Desde já agradeço

[]s


Titanius

Titanius

Curtidas 0

Respostas

Thiago Vidal

Thiago Vidal

21/08/2006

é bom carregar o BMP junto com a criação do FORM, e deixá-lo em memoria para agilizar o processo de renderização do ListView.

procedure TForm1.FormCreate(Sender: TObject);
begin
  BMP := TBitmap.Create;
  BMP.LoadFromFile(´Logo.bmp´);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  BMP.Free;
end;

procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
begin
  with (Sender as TListView).Canvas do
    Draw(ARect.Right - BMP.Width, ARect.Bottom - BMP.Height, BMP);
end;


O código do Draw acima é para o canto inferior direito, mas dependendo da imagem, o método StretchDraw também poderia ser usado, que redimensiona a imagem de forma que ocupe todo o conteúdo do ListView.


GOSTEI 0
Titanius

Titanius

21/08/2006

Valeu cara... funcionou perfeitamente...

[]s


GOSTEI 0
POSTAR