V9.1
This commit is contained in:
f1iwq2
2024-08-02 17:13:36 +02:00
parent d2909cc5eb
commit ede3d91c4d
15 changed files with 2960 additions and 1271 deletions

View File

@@ -1258,6 +1258,7 @@ begin
sens:=SensHaut;
end;
TCO[indexTCOCourant,x,y].SensCirc:=Sens;
canton[Idc].SensCirc:=sens;
end;
procedure TFormConfCellTCO.RadioButtonDBClick(Sender: TObject);
@@ -1279,6 +1280,7 @@ begin
sens:=SensBas;
end;
TCO[indexTCOCourant,x,y].SensCirc:=Sens;
canton[Idc].SensCirc:=sens;
end;
procedure TFormConfCellTCO.RadioButtonDSClick(Sender: TObject);
@@ -1294,6 +1296,7 @@ begin
else
ImageSens.Picture:=ImageHB.Picture;
TCO[indexTCOCourant,x,y].SensCirc:=0;
canton[Idc].SensCirc:=0;
end;
procedure TFormConfCellTCO.CheckBoxEncadreClick(Sender: TObject);