Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi ListView Hintergrundbild Problem (https://www.delphipraxis.net/103586-listview-hintergrundbild-problem.html)

iron 18. Nov 2007 00:17


ListView Hintergrundbild Problem
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo wiedermal,

ich zermartere mir schon den Schädel, ich möchte ein Bild das ich aus einer Resource hole in ein Image laden und dieses dann als Hintergrundbild in eine ListView zeichnen.

Soweit klappt das ja auch, nur wird das Bild nicht auf der ganzen Größe des ListView angezeigt, sondern nur auf einen kleinen teil davon(ein Bild davon ist Up)

Mit diesem Code zeichne ich das Bild auf das ListView
Delphi-Quellcode:
procedure TForm1.listview1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);
begin
  with Sender do
  begin
    Canvas.StretchDraw(ARect, Image2.Picture.Bitmap);
    SetBkMode(Canvas.Handle, TRANSPARENT);
    ListView_SetTextBkColor(Handle, CLR_NONE);
    ListView_SetBKColor(Handle, CLR_NONE);
  end;
end;
Gibt es da irgend eine Lösung?

bitsetter 18. Nov 2007 06:50

Re: ListView Hintergrundbild Problem
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hi,

eigenartigerweise funktioniert dein Code bei mir. :gruebel:


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:02 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz