Hintergrundgrafik in TListView

[Popov]

Zitat von mkinzler:

Wann/Wo/Wie zeichnest Du das Bild?

Ich zeichne es in OnCustomDraw. Der ist normal. Ich hab ein Rect, ein Canvas, also alles was ich zum zeichnen brauche.

Wie gesagt, ich bin erst beim Testen. Das Ganze ist also noch zusammengeschustert:

Delphi-Quellcode:

var
  BkBmp: TBitmap;
  Path: string;
begin
  with TListView(Sender) do
  begin
    Path := ExtractFilePath(ParamStr(0)) + 'Test.bmp';
    if not FileExists(Path) then
      Exit;

    BkBmp := TBitmap.Create;
    try
      BkBmp.LoadFromFile(Path);

      Canvas.Draw(ARect.Right - BkBmp.Width, ARect.Bottom - BkBmp.Height, BkBmp);
    finally
      BkBmp.Free;
    end;
  end;
end;