Ein Spiel mit Delphi programmieren

[David Martens]

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" )