Einzelnen Beitrag anzeigen

Benutzerbild von ste_ett
ste_ett

Registriert seit: 10. Sep 2004
Ort: Dülmen
464 Beiträge
 
Delphi 7 Professional
 
#4

Re: In ImageList eine Bitmap laden?

  Alt 4. Apr 2007, 15:05
Du könntest beim Zeichnen des Controls das Bild reinmalen lassen.

Delphi-Quellcode:
procedure TForm.ListViewCustomDraw(Sender: TCustomListView; const ARect: TRect; var DefaultDraw: Boolean);
var
  Bitmap: TBitmap;
  sFileName: String;
begin
  Bitmap := TBitmap.Create;
  try
    sFileName := 'C:\Windows\Angler.bmp';
    Bitmap.LoadFromFile(sFileName);
    ListView.Canvas.Draw(0, 0, Bitmap);
  finally
    Bitmap.Free;
  end;
end;
Aus Performacegründen kannst du das Laden des Bildes auch in den Konstruktor der Form verlagern.
Stefan
"Geht nicht!" ist keine Fehlerbeschreibung und "Hab ich schon versucht!" keine Antwort!

Hey, it compiles! Ship it!
  Mit Zitat antworten Zitat