Problem mit Image/ImageList

[hircusmutzus]

Hi,
ich will mit einen Button 6 Images per Zufallsgenerator mit der Augenzahl eines Würfels füllen. Diese 6 Augenzahlen habe ich in einer ImageList. Beim Klicken wird folgender Code ausgefüht:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ImageList1.GetBitmap(Random(5), Image2.Picture.Bitmap);
  ImageList1.GetBitmap(Random(5), Image3.Picture.Bitmap);
  ImageList1.GetBitmap(Random(5), Image4.Picture.Bitmap);
  ImageList1.GetBitmap(Random(5), Image5.Picture.Bitmap);
  ImageList1.GetBitmap(Random(5), Image6.Picture.Bitmap);
  ImageList1.GetBitmap(Random(5), Image7.Picture.Bitmap);
end;

Beim 1. Mal klappt es auch, doch dann beim 2. Mal tut sich nix mehr!
Könnt ihr mir vielleicht bei meinem Problem helfen?

MfG Matthias Volland

[Ultimator]

Vielleicht musst du erst das vorhandene Bitmap löschen, bevor du ein neues zuweisen kannst.

[Meflin]

initialisierst du den randomgenerator auch mit randomize? vielleicht liegts daran?!

[hircusmutzus]

@Meflin: Doch mach ich!

Wie kann ich denn das Bild aus dem Image löschen was drin ist?

[Ultimator]

Ich glaube, das geht mit

Delphi-Quellcode:

IMGLST.Delete(DeineBildNummer);

[hircusmutzus]

ich will ja nichts aus der imagelist sondern nur das bild aus dem image löschen!

[Meflin]

ohne es zu wissen, versuch doch mal clear oder delete vielleicht auch free, was mich aber wundern würde :stupid:

[alcaeus]

Mit Free wirst du nicht den Inhalt des Bitmaps löschen, sondern das ganze Bitmap selbst. Bevor du wieder drauf zugreifen kannst, musst du es mit Create neu erstellen.
Du kannst aber auch ein Rechteck in irgendeiner Farbe darüberzeichnen:

Delphi-Quellcode:

Bitmap.Canvas.Brush.Color := DeineFarbe;
Bitmap.Canvas.FillRect(Bitmap.ClientRect);

Greetz
alcaeus