Afficher des images sur une grille

salut à tous

j'essais de faire un pti jeux qui se joue à 2 sur un quadrillage : les adversaires choisissent soit les points soit les croix

c'est une sorte de puissance 4

enfin c'est aps important pour ce que je vous demande :D

donc j'ai fais un quadrillage sur un TpaintBox (un ami m'a conseillé)

et je trouve qu'il est assez réussit :p

Code:

---

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

procedure TForm1.PaintBox1Paint(Sender: TObject); var x, y, i : integer;   begin x := 700; y := 25; PaintBox1.Canvas.Brush.Color := clblack; PaintBox1.Canvas.Pen.Color := clblack;   for i := 0 to 50 do begin PaintBox1.Canvas.MoveTo(0,y); PaintBox1.Canvas.LineTo(1200,y);   PaintBox1.Canvas.MoveTo(y,1200); PaintBox1.Canvas.LineTo(y,0);   y := 25 + y;   end;

---

j'ai un bitman qui représente un point et un autre qui représente une croix

donc je veux savoir comment faire en sorte qu'au click de souris on puisse "ajouter" les points et les croix sur la grille

le prog sera biensur sur 2 pc différents (donc client / server à envisager) mais pour le moment je préfère le réaliser en local pour apprendre; donc j'utiliserai un radiobouton pour choisir quoi afficher (point ou croix)

pour info les points et croix ne doivent pas s'afficher n'importe où : uniquement sur les coins des carrés; donc : un carré peut contenir 4 points/croix vu qu'il a 4 coins

je vous remercie d'avance poru l'aide :)

Bonjour,

Pour avoir rencontré un problème similaire, c'est à dire réagir à un clique dans un TPaintBox en fonction de la localisation de ce clique, je te conseillerai de déclarer un type contenant la position X, Y de chaque case, et un entier indiquant son statut (ou un autre type record). Les statuts seraient croix, rond et vide. Ensuite tu déclares un tableau avec autant d'enregistrement que de case dans ta grille. Puis tu initialises le tableau.

Dans l'évènement OnClick de la TPaintBox, tu contrôles la position du clique de la souris afin de trouver la case de la grille qui est cliquée, puis tu réagis en fonction de l'état (ajouter une croix si vide, ...)

Bonne continuation.

j'ai pas trop compris ton explication donc avec l'aide d'un ami je fais :

Code:

---

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

procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var x1, y1 : integer;   begin p := tbitmap.create; c := tbitmap.Create; p.LoadFromFile('point.bmp'); c.LoadFromFile('croix.bmp');   x1 := 700; y1 := 25;   PaintBox1.Canvas.CopyRect(rect (x, y, x+64, y+64), p.Canvas, rect (0, 0, 64, 64));   p.Free; c.Free; end;

---

pour le moment ça affiche que les points, donc suffit de faire pareil pour les croix; mais voilà, je bute sur 2 choses :

1/ je n'ai pas compris ce que je dois mettre exactement dans le 1er et 3ème paramètre du CopyRect, ce que vous voyez plus haut c'est pas jolie, c'est une copie de code se trouavnt sur un autre programme qui n'a rien à avoir ...

Code:

---

PaintBox1.Canvas.CopyRect(QUOI_METTRE, p.Canvas, QUOI_METTRE);

---

les QUOI_METTRE c'est ce que je n'ai pas compris

le code fonctionne, le point s'affiche mais il y a un prob : il ne s'affiche pas EXACTEMENT où le curseur a clicker, il y a un pti décalage

2/ comment faire pour que les points/croix ne s'affichent UNIQUEMENT sur les coins des cases ? (car dans le code plus haut on peux les affichier n'importe où et c'est très laid)

pour info, j'ai réussis à déterminer au click dans un Tedit le n° de la ligne et le n° de la colonne :

Code:

---

1 2 3

x1 := 700; y1 := 25; edit1.text:= inttostr(floor(X/y1))+ ' et ' + inttostr(floor(Y/y1));

---

peut être que je dois l'utiliser ?

Pour ta première question, regarde dans l'aide, sinon sur le forum. Y'a rien de sorcier.

Pour ta deuxième question concernant le contrôle de la localisation de tes croix, je ne peux que te renvoyer à mon explication, où je te parle de tableau contenant les positions "autorisées" de tes croix.

Si tu n'as pas compris une chose dans mon explication, n'hésite pas à me dire quoi.