Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Bildschups Puzzle wie die Bilder mischen? (https://www.delphipraxis.net/148912-bildschups-puzzle-wie-die-bilder-mischen.html)

Korg PA 2x Pro 10. Mär 2010 19:29


Bildschups Puzzle wie die Bilder mischen?
 
Hallo Leute,

ich habe folgendes Problem: Ich soll ein Schiebepuzzle programmieren, z.B.(http://www.zimberfamily.de/thomas/puzzle_03.html) was auch soweit schon funktioniert bis auf das Mischen der Bilder.

Ich lese die Bilder in ein Image mit dem Befehl Image1.picture.loadfromfile() ein diese sind mit einem zweidimensionalen Array verknüpft.

Habt ihr eine Idee, wie ich den Code schreiben soll, der mir das mischen der Bilder per klick auf einen Button ermöglicht.

Vielen Dank im vorruas!

MFG Korg PA 2x Pro

DP-Maintenance 10. Mär 2010 19:32

DP-Maintenance
 
Dieses Thema wurde von "Matze" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Multimedia" verschoben.
Spiel -> Multimedia

Blup 11. Mär 2010 07:34

Re: Bildschups Puzzle wie die Bilder mischen?
 
Stichwort: Zufallszahlen, Lottozahlen

Hier auch was von mir zu dem Thema:
http://www.delphipraxis.net/internal...t.php?t=151677
Delphi-Quellcode:
var
  Zufallsreihenfolge: TIntegerDynArray;
  i: integer;
  img: TImage;
begin
  Zufallsreihenfolge := Lottozahlen(1, x, x);

  for i := 1 to x do
  begin
    img := FindComponent(Form1, 'Image' + IntToStr(i));
    if Assigned(img) then
    begin
      img.Picture.LoadFromFile('Bild' + IntToStr(Zufallsreihenfolge[i - 1]));
      img.Tag := i;
    end;
  end;
end;

Korg PA 2x Pro 12. Mär 2010 14:53

Re: Bildschups Puzzle wie die Bilder mischen?
 
Vielen Dank, für Deine Hilfe!
Leider kam ich mit dem Code nicht wirklich weiter!

Hat jemand noch eine andere Idee?

Gruß Korg Pa 2x Pro


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:35 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz