ImageList

[Deven]

Hi zusammen

Ich habe eben eine Form gemacht, darauf ein Image und eine ImageList + 2 Buttons

Auf den Buttons habe ich folgendes geproggt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
ImageList1.Draw(Image1.Canvas,0,0,0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ImageList1.Draw(Image1.Canvas,0,0,1);
end;

Kann mir jemand sagen warum das bild nicht ausgetauscht wird?

Wenn ich Button eins als erstes klicke ist ein bild im Image1 wenn ich dann Button2 drücke ändert sich das Bild aber nicht?

(Ja! es sind zwei verschiedene Bilder )

Dankö 8)

[fkerber]

Hi!

Du musst nach dem Wechseln des Bildes noch

Image1.Refresh; Machen, vorher aber Image1 nochmal "leeren", sonst legen sich die Bilder übereinander.

[F.W.]

Wie geht denn das mit dem leeren?