V8.37

2024-01-11 20:39:36 +01:00
parent 5562e9c899
commit ed7935a641
16 changed files with 685 additions and 635 deletions
--- a/UnitConfigTCO.pas
+++ b/UnitConfigTCO.pas
@@ -549,6 +549,7 @@ procedure TFormConfigTCO.FormCreate(Sender: TObject);
 var i : integer;
    c : tcomponent;
 begin
+  if debug=1 then Affiche('Création fenetre configTCO',clLime);
  for i:=0 to stringGridTCO.RowCount - 1 do
  with stringGridTCO do
  begin
@@ -577,6 +578,7 @@ begin
      composant(c,couleurFond,couleurTexte);
    end;
  end;
+  if debug=1 then Affiche('Fin création fenetre configTCO',clLime);
 end;

 procedure TFormConfigTCO.TrackBarEpaisseurChange(Sender: TObject);