V8.4

2024-01-26 14:11:58 +01:00
parent 89ebfe67f2
commit c0edae3eb7
24 changed files with 966 additions and 738 deletions
--- a/Unitplace.pas
+++ b/Unitplace.pas
@@ -546,10 +546,9 @@ begin
  end;
 end;

-procedure TFormPlace.FormCreate(Sender: TObject);
-var c : tcomponent;
 procedure TFormPlace.FormCreate(Sender: TObject);
 begin
+  if debug=1 then Affiche('Début création fenetre Place',clLime);
  position:=poMainFormCenter;
  PlaceAffiche:=true;
  couleurs_place;