TGraphic aus TImageList?

[PeterPanino]

Hallo,

weiß jemand, wie man ein Bild als TGraphic aus einer TImageList erhalten kann?

Vielen Dank!

[jbg]

Da gibt es doch die TImageList.GetBitmap Methode, die dir ein TBitmap füllt (was bekannlicherweise von TGraphic abgeleitet ist).

[PeterPanino]

Zitat von jbg:

Da gibt es doch die TImageList.GetBitmap Methode, die dir ein TBitmap füllt (was bekannlicherweise von TGraphic abgeleitet ist).

Danke. Aber wie erhalte ich aus dem TBitMap ein TGraphic?

Delphi-Quellcode:

var
  bmp: TBitmap;
begin
  ImageList.GetBitmap(0, bmp);
  //wie jetzt weiter?

[PeterPanino]

Habe die Antwort inzwischen gefunden:

Delphi-Quellcode:

var
  bmp: TBitmap;
  gr: TGraphic;
begin
  bmp := TBitMap.Create;
  for i := 0 to Count;
  begin
    ImageList.GetBitmap(i, bmp);
    gr := TGraphic(bmp);

Aber ich verwende den Code in einer Schleife. Wie kann ich nun bmp bzw. gr bei jedem Schleifendurchgang so löschen, damit sich die Graphiken nicht bei jedem Schleifendurchgang überlagern? (bmp bei jedem Schleifendurchgang neu zu erzeugen und freizugeben ist ja zu zeitraubend). Und bmp.Empty funktioniert offensichtlich nicht.