ListView mit Hintergrundbild

[marcus]

Hallo zusammen!

Ich suche jetzt schon ein Weilchen nach einem Weg ein Hintergrundbild in ein ListView einzufügen. Das Bild
einfügen ist kein großes Problem, siehe unten. Aber bei Einträgen in dem ListView wird das Bild dann leider
"übermalt". Ich habe schon mit den Funktionen AdvancedCustomDrawItem und AdvancedCustomDrawSubItem herum
probiert, aber leider ohne Erfolg.
Hat jemand evtl. einen Tip für mich oder hatte jemand schon ein ähnliches Problem?

Delphi-Quellcode:

procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;const ARect: TRect; var DefaultDraw: Boolean);
var
  Bitmap: TBitmap;
  x, y: integer;

begin
  Bitmap:=TBitmap.Create;
  Bitmap.LoadFromFile('*.bmp');
  x:=0;
  y:=0;
  ListView1.Canvas.Draw(x, y, Bitmap);
  Bitmap.Free;
end;

Gruß
Marcus

[chris]

hi,

du kannst das löschen des hintergrundes verhindern indem du auf die message WM_ERASEBKGND reagierst.

z.b.

Delphi-Quellcode:

//private
procedure wmerasebkgnd(var msg: tmessage); message wm_erasebkgnd;

procedure tform1.wmerasebkgnd;
begin
  listview1.canvas.draw(x,y,bitmap);
  msg.result := 0
end

[Manne]

Gebe zusätzlich zum Zeichnen des Hintergrunds folgenden Code in das OnCustamDraw Ereignis deiner Listview:

Code:

    SetBkMode(Canvas.Handle,TRANSPARENT);
    Perform(LVM_SETTEXTBKCOLOR,0,LongInt(CLR_NONE));
    ListView_SetBKColor(Handle,CLR_NONE);

[marcus]

Hi Chris,
sorry aber mit WM_ERASEBKGND ist quasi alles um die ListView herum durchsichtig, bloß nicht die ListView selber.

Hi Manne,
für deine Lösung benötige ich ja eine Variable vom Typ TLVBkImage. Welche Unit muss ich denn da einbinden, dass mir der Typ dann zur Verfügung steht?

Gruß Marcus

[Manne]

Ich muss nur

Code:

 Uses ...,CommCtrl,..

eingeben dann kann ich es ohne Probleme kompilieren

[Akut-Programming]

Kann ich das auch irgendwie realisieren, wenn die Anwendung gestartet wird, also ohne das ich erst Items in die ListView lade? Im OnCreate des Forms funzt es nicht.

Gruß,
Sascha

[mirage228]

Zitat:

Zitat von Akut-Programming

Kann ich das auch irgendwie realisieren, wenn die Anwendung gestartet wird, also ohne das ich erst Items in die ListView lade? Im OnCreate des Forms funzt es nicht.

Gruß,
Sascha

Hi,

versuch es mal im OnShow. (Edit: Aber pass auf - denn OnShow wird immer beim Anzeigen des Fensters aufgerufen!)

Ansonsten ist auch das TVirtualTreeView von www.delphi-gems.com empfehlenswert - es ist schneller und besser als die Borland Implementierung der ListView (aber leider auch etwas komplizierter).

mfG
mirage228