Discussion :

[Roland Chastain]

Bonjour ! Je vous propose un nouvel élément à télécharger :

Mateusz Memory

Jeu de mémoire de Mateusz Janda.

Version française par Roland Chastain.

Compilé avec Delphi 10.1 Berlin.

Qu'en pensez-vous ?

[retwas]

J'ai pas le temps de regarder le code, mais quand la partie est terminée j'ai plusieurs fois le message "Bravo !" qui s'affiche

Peut être replacer la fenêtre au milieu de l'écran quand on change de difficulté aussi ?

Edit: Tant que je clic pas sur "ok" j'ai un nouveau message :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TFormJeu.TimerHorlogeTimer(Sender: TObject);
begin
  AfficheTempsEcoule((GetTickCount - HeureDebut) div 1000);
  if NombrePairesDecouvertes = RacineNombreCartes * RacineNombreCartes div 2 then
  begin
    // couper le timer
    TimerHorloge.Enabled := False;
    MessageDlg('Bravo !', mtInformation, [mbOk], 0);
    MenuItemAbandonner.Click; 
  end;
end;

[Cirec]

Salut,

même constat que retwas sur le timer

sinon le code est bien fait ... bien plus lisible que l'originale
Si tu lis le Polonais ça va sinon c'est déjà plus chaud

en tous cas le résultat est sympas

Merci pour le partage.

[Roland Chastain]

Merci pour vos retours.

J'ai appliqué la correction proposée par retwas et aussi réglé le problème de la position de la fenêtre sur l'écran, de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TFormJeu.RedimensionneFenetre;
var
  ...
  {rect: TRect;}
begin
  ...
 
  {rect := Screen.WorkAreaRect;}
  Left := ({rect.Width}Screen.WorkAreaWidth - Width) div 2;
  Top := ({rect.Height}Screen.WorkAreaHeight - Height) div 2;

Non en temps normal je ne parle pas le polonais mais j'aime bien me casser la tête, et j'ai trouvé que ce programme en valait la peine.