UN PUZZLE POUR L'ÉTÉ

Commentaire de Debiars le 05/07/2008 09:14:10

Merci, Florenth, pour tes suggestions...
Je m'occupe immédiatement la sauvegarde.
J'avais pensé à la création dynamique des Timage, mais cela m'obligeait à définir un tableau des 80 positions initiales des pièces. Ce qui a été le plus long c'est de dessiner les masques des pièces et d'en relever les dimensions/positions finales.
Pour le déplacement de la fenêtre, suffit de modifier la propriété Borderstyle de la Form, non.
Pour les .dcu, j'avions point pensé à la compatibilité, sorry.

Commentaire de Debiars le 05/07/2008 14:46:05

La dimension des carrés est fonction du nombre de pièces que tu veux réaliser. Là dessus on accroche effectivement des ellipses.

Les tableaux posx# et posy# donnent la position du coin supérieur gauche des pièces dans l'image et permettent de déterminer si une pièce est à sa place (voir Image1MousUp).

Les tableaux dimx# et dimy# donnent les dimmensions de chaque pièce mais ne servent absolument pas et peuvent allègrement être supprimés. Merci de m'avoir mis le nez dedans. C'est sans doute le reste d'une version précédente.

Bon courage.

Commentaire de Debiars le 06/07/2008 14:03:32

Je n'ai mis que les mises à jour, mais ça a viré tout le reste.
Alors, je remets tout le paquet et j'en profite pour remplacer les .dcu de PNG par leur sources.

Il semblerait que les collègues sont déjà partis en ouacances.
Chic, chic, Delphifr est à nous !!!

Commentaire de cincap le 07/07/2008 09:21:02

Bonjour à toutes et à tous,

@ DEBIARS, bravo pour ta source et pour te donner d'autres idées sans alourdir le jeu (utilisation d'un seul paintbox au lieu de Timage, rotations de la pièce avec le click droit, vitesse, solution, niveau de difficulté etc...), va voir la source de Qpuzzle par J. Y. Queinec sur ce site :

http://www.efg2.com/Lab/Library/Delphi/Graphics/Algorithms.htm

@+,

Cincap

Commentaire de Debiars le 07/07/2008 14:25:01

@Cincap
ça y est, j'ai trouvé...fallait chercher Jigsaw et non pas Qpuzzle.
j'vas étudier, ça a l'air costaud.

merci.

Commentaire de Debiars le 07/07/2008 19:16:26

@Cincap : j'avais déjà neutralisé Lecture1click. Mais ce prog est plein de choses intéressantes, entre autres la génération des pièces sur laquelle Florenth vient de plancher.

@Florenth : Je pense qu'il faut poster, de toutes façons, ça m'intéresse énormément.

A+

Commentaire de Debiars le 08/07/2008 15:33:28

@Cincap : Je n'ai pas eu ce problème, mais j'ai quand-même remplacé dans Upuzzle3 ces composants un peu vieillots par un OpenPictureDialog et j'ai gardé et modifié la procédure FileListBox1Click comme suit :
----------------------------------------
procedure TForm3.FileListBox1Click(Sender: TObject);
const
  K = 136;
Var
  w0, h0 : single;
  w, h   : single;
  kk : single;
begin
{  IF filelistbox1.items.count < 1 then exit;
  IF filelistbox1.filename = '' then exit;
  IF Diskindrive(Drivecombobox1.drive) = False Then
  Begin
    Showmessage('CD-ROM or floppy disk not ready');
    exit;
  end;    }
  if not OPDlg.Execute then exit;
  Image1.visible := false;
  Image1.width  := K;
  Image1.height := K;
  try
//    Image1.Picture.LoadFromFile(FileListbox1.Filename);
    Image1.Picture.LoadFromFile(OPDlg.Filename);
  except
----------------------------
Cela entraîne la suppression des procédures suivantes qui ne servent pus à rien :

   procedure DirectoryListBox1Change(Sender: TObject);
   procedure DriveComboBox1Click(Sender: TObject);
   function DiskInDrive(Drive: Char): Boolean;

ainsi que quelques lignes qui se révèlent à la compile et naturellement la Form3.