V9.5

2024-11-07 11:29:24 +01:00
parent 20b1990c2e
commit 31bb8233e3
40 changed files with 8070 additions and 3920 deletions
--- a/UnitHorloge.pas
+++ b/UnitHorloge.pas
@@ -115,8 +115,8 @@ procedure Demarre_horloge;
 var h,m,sec,ms : word;
 begin
  decodeTime(GetTime,h,m,sec,ms);
-  //Affiche(intToSTR(ms),clwhite);
  comptSec:=ms div 100;
+  if comptsec>9 then comptsec:=0;
  horloge:=true;
 end;