Bild in Imagelist durch ein anderes Ersetzen - zur Laufzeit

[alleinherrscher]

Was ist mit ImageList.Replace?

Code von: http://www.delphigroups.info/2/9/640652.html

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
  Bitmap.PixelFormat := pf32bit;
  Bitmap.Width := ImageList1.Width;
  Bitmap.Height := ImageList1.Height;
  Bitmap.Canvas.Brush.Color := clGreen;
  Bitmap.Canvas.FillRect(Rect(0, 2, 16, 14));
  ImageList1.Replace(0, Bitmap, nil);
finally
  Bitmap.Free;
end;
end;