rotation de rectangle en FMX

bonsoir
merci encore pour cette amélioration
mon bouton jouer lance les photos présélectionnées
mais comme je veux que le joueur sélectionne lui même des photos
sur son PC j' ai crée un nouveau button qui lance a intérieur le premier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button4Click(Sender: TObject); begin   load_fichier:='';     if form1.OpenDialog1. execute then begin   load_fichier:=form1.OpenDialog1.filename;   form1.SpeedButton1Click(sender);{ ici il lance le bouton origine } end else load_fichier:='';

---

j'ai rajouté sa dans la procédure cree_puzzle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

if load_fichier<>'' then begin   fond.LoadFromFile(load_fichier);   end else begin {ici pas encore remplacer par ton amélioration}   choix_image := random(5) + 1; case choix_image of 1: fond.LoadFromFile(repertoire + 'photo\fee.png'); 2: fond.LoadFromFile(repertoire + 'photo\pie800.png'); 3: fond.LoadFromFile(repertoire + 'photo\bateau.png'); 4: fond.LoadFromFile(repertoire + 'photo\laboureur.png'); 5: fond.LoadFromFile(repertoire + 'photo\peroque.png'); else fond.LoadFromFile(repertoire + 'photo\fee.png'); end;

---

mais j'ai peur comme init est deja lancer si le fichier image load_fichier
est pas bon de me faire un arret du programme car procedure init
a déjà crée des array
merci mais je voudrais pas que cette discussion nuise au forum vu sa longueur
merci encore

Citation:

---

sa marche sauf que j'ai dut changer un petit truc

---

Je n'ai pas inclus la commande z dans la sélection car dans les trois fichiers exemples elle n'existe pas avec ou sans elle n'a pas d'effet donc je l'ai ignoré.

Citation:

---

ajouté +1 à num ,

---

Oui j'ai changé la déclaration pour muter vers tableaux indice 0 c'est plus adapté aux versions modernes de Delphi.
Pour que ca fonctionne dans l'ancienne déclaration il faut utiliser num+1 dans les indices de la boucle,, comme tu dis

bonsoir
normalement je dois remplacer tous les array[1..66] of trectangle
par des array of trectangle eux commence a 0
mais avant je dois tous modifier mes indices qui commence a 1
je crois que dans la discussion on me la conseillé
mais je ferais plus tard pour instant sa marche
me reste a adapter les images importées au cadre du puzzle
qui fait 400*400
mais la difficulté on as jamais des images au carre
donc soit je modifie image pour la forcer a 400*400 et la image est déformé
soit si image est trop grande on copie une partie de 400*400
que me conseillez vous
merci

Citation:

---

mais avant je dois tous modifier mes indices qui commence a 1
je crois que dans la discussion on me la conseillé
mais je ferais plus tard pour instant sa marche

---

Tu n'es pas obligé de changé la base de l'indice, j'ai simplement oublié de corriger les indices dans la boucle du code posté pour rester conforme à ta version originale.

comme çà:

Code:

---

1 2	piecepuz[num+1].car := tpathdata.Create(); piecepuz[num+1].car.Data := ligne;

---