V9.3

2024-09-25 14:13:46 +02:00
parent 7d2c4bd591
commit 20b1990c2e
29 changed files with 4529 additions and 1448 deletions
--- a/UnitHorloge.pas
+++ b/UnitHorloge.pas
@@ -300,12 +300,13 @@ begin
  if (erreur<>0) or (i<0) or (i>23) then
  begin
    LabelErreur.Caption:='Erreur heure';
+    SpinEditHInit.value:=0;
    exit;
  end;
+  SpinEditHInit.Value:=i;
  LabelErreur.Caption:='';
  HeureInit:=i;
  config_modifie:=true;
-
 end;

 procedure TFormHorloge.ButtonLanceClick(Sender: TObject);