This commit is contained in:
f1iwq2
2023-10-29 09:52:14 +01:00
parent b33561a463
commit 95f2e65b80
17 changed files with 2099 additions and 1074 deletions

View File

@@ -74,7 +74,6 @@ procedure actualise(indexTCO : integer);
implementation
uses UnitPrinc,UnitAnalyseSegCDM,UnitConfigTCO,UnitTCO;
{$R *.dfm}
@@ -416,7 +415,7 @@ end;
procedure TFormConfCellTCO.EditTexteCCTCOChange(Sender: TObject);
begin
if clicTCO or not(ConfCellTCO) or actualize then exit;
PCanvasTCO[indexTCOCourant].Brush.Color:=clfond;
PCanvasTCO[indexTCOCourant].Brush.Color:=clfond[indexTCOCourant];
if tco[indexTCOCourant,XclicCell[indexTCOCourant],YclicCell[indexTCOCourant]].texte='' then
begin