Listview Background Image und Text ????

[Bernd29bln]

Hallo,

In meinem listview hab ich ein Hintergrundbild, geht super.

Mein Problem : Wie bekomme ich den Text Hintergrund Transparent?


gruss Bernd

[Hobby-Programmierer]

Moin ...,
schau mal ob das funzt

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Listview1.DoubleBuffered:= true; // Flimmern d. Lv verhindern
end;

procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
begin
  with Sender as TListview do begin
    Canvas.StretchDraw(ARect, Image1.Picture.Bitmap);
    SetBkMode(Canvas.Handle, TRANSPARENT);
    Perform(LVM_SETTEXTBKCOLOR, 0, LongInt(CLR_NONE));
    ListView_SetBKColor(Handle, CLR_NONE);
  end;
end;

[edit]Schmarrn von heut Nacht berichtigt [/edit]

LG Mario