V5.1

2022-11-26 20:10:21 +01:00
parent b8bd8c5771
commit b5b43f25a1
33 changed files with 3655 additions and 948 deletions
--- a/UnitConfigTCO.pas
+++ b/UnitConfigTCO.pas
@@ -222,8 +222,6 @@ begin
 end;

 procedure TFormConfigTCO.ButtonOKClick(Sender: TObject);
-var i : integer;   
-    
 begin
  if verif_config_TCO then
  begin
@@ -241,9 +239,6 @@ begin
 end;

 procedure TFormConfigTCO.ButtonDessineClick(Sender: TObject);
-var i,erreur : integer;
-    r : Trect;
-    c : tCanvas;
 begin
  if verif_config_TCO then
  begin