Woher hast du denn das mit dem width := 80? brauchst du doch garnicht wenn du schon mir Visible := true / false arbeitest.
Du brauchst auch keine 12 Images.
1. Pack die beiden Images dahin wo die Würfel zu sehen sein sollen, Größe einstellen; Transparens auf false.
2. Nimm eine ImageList, pass die Bildergröße an deine Bilder an und lade die Bilder in die ImageList (Transparens dabei auf clNone stellen); Masked auf false stellen.
jetzt nur noch:
Delphi-Quellcode:
wurf1 := random(6) + 1;
wurf2 := random(6) + 1;
Image1.Visible := false;
Image1.Visible := true;
ImageList1.Draw(Image1.Canvas, 0, 0, wurf1 - 1, dsNormal, itImage);
Image2.Visible := false;
Image2.Visible := true;
ImageList1.Draw(Image2.Canvas, 0, 0, wurf2 - 1, dsNormal, itImage);
Hoffe das hilft, David
P.S.: du kannst den Code auch direkt hier einfügen (mit dem "Streithelm"
)