Bonjour ! Je vous propose un nouvel élément à télécharger :
Mateusz Memory
Qu'en pensez-vous ?Jeu de mémoire de Mateusz Janda.
Version française par Roland Chastain.
Compilé avec Delphi 10.1 Berlin.
Bonjour ! Je vous propose un nouvel élément à télécharger :
Mateusz Memory
Qu'en pensez-vous ?Jeu de mémoire de Mateusz Janda.
Version française par Roland Chastain.
Compilé avec Delphi 10.1 Berlin.
Mon site personnel consacré à MSEide+MSEgui : msegui.net
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;
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.
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 :
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.
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;
Mon site personnel consacré à MSEide+MSEgui : msegui.net
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager