Hintergrundgrafik in TListView

[Popov]

Ich hab mehrere TListView Komponenten auf dem Formular und dachten mir, Zwecks schnelleren Erfassung welche was liefert, ein dezentes Hintergrundbild einzufügen. Ich dachte dabei an den Windows Explorer, der hatte früher auch bei bestimmten Ordnern unten rechts ein Bild platziert. An sowas dachte ich auch.

Also das Bild in eine ListView an die richtige Stelle zu zeichnen ist kein Problem, ich bin nur irgendwie nicht mit dem Ergebnis zufrieden. Das Bild drängt sich bei mir immer in den Vordergrund, wenn ich mit der Maus über das ListView gehe. Was muss ich machen, damit die Grafik nicht die Items und SubItems überdeckt?

[mkinzler]

Wann/Wo/Wie zeichnest Du das Bild?

[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;

[mkinzler]

http://delphidabbler.com/articles?article=16&part=1#eg1

[Popov]

Danke, das hat mich weiter gebracht.