BONNE ANNEE !

Signaler
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
-
Messages postés
992
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
24 avril 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/48846-bonne-annee

Messages postés
992
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
24 avril 2013
2
bah je m'en doutais un peu (bcp) que c'était un problème de MAJ :)

Trop de souris , ça fait des trous dans les serveurs , c'est à cause de ça !
[vraiment mauvaise celle-là , je sors -->[])

Nico

Et bonne année (mal poli que je suis ^^ )
Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
14
@Nicolas___:

Rien à faire, la maj ne passe pas..
le site a vraisemeblablement
des soucis en ce moment...
Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
14
si si j'avais bien mis la correction mais la maj ne s'est pas faite..
du moins elle s'est mis en place et puis elle s'est annulée !

je recommence.
Messages postés
992
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
24 avril 2013
2
tu n'as pas retirer ts les uses inutiles : JvExStdCtrls,
JvBehaviorLabel, JvExControls, JvLabel;

Pour tes
IF compteur = 0 THEN
IF (COMPTEUR > 0) AND (compteur < 50) THEN
IF (COMPTEUR = 50) THEN

tu peux faire comme ca aussi

case Compteur of

0 :

1..49 :

50 :

end;

Ca serait bien de pouvoir stopper vite l'application :

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_ESCAPE then Close;
end;

"Nettoyage des uses en trop et passage en 32 bits"

En gros je pense que tu t'es trompé de version parceque moi j'ai ca :

Bitmap.PixelFormat := pf24bit;
Afficher les 16 commentaires