easylinux/SignauxComplexes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

V3.84B

Browse Source
This commit is contained in:
f1iwq2
2022-04-16 17:08:47 +02:00
parent b28f369c59
commit 34b3b07d99
12 changed files with 263 additions and 86 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
UnitPrinc.pas
View File

@@ -325,7 +325,7 @@ var
FormPrinc: TFormPrinc;
ack,portCommOuvert,traceTrames,AffMem,AfficheDet,CDM_connecte,
Raz_Acc_signaux,AvecInit,AvecTCO,terminal,Srvc_Aig,Srvc_Det,Srvc_Act,
Raz_Acc_signaux,AvecInit,AvecTCO,terminal,Srvc_Aig,Srvc_Det,Srvc_Act,MasqueBandeauTCO,
Srvc_PosTrain,Srvc_Sig,debugtrames : boolean;
tablo : array of byte; // tableau rx usb
Enregistrement,chaine_Envoi,chaine_recue,Id_CDM,Af,
@@ -6823,10 +6823,18 @@ begin
ClientSocketLenz.close;
if TCO_modifie then
if MessageDlg('Le TCO a été modifié. Voulez vous le sauvegarder ?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
sauve_fichier_tco;
ancienFormatTCO:=false;
end;
if config_modifie then
if MessageDlg('La configuration a été modifiée. Voulez vous la sauvegarder ?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
sauve_config;
if avecTCO then
begin
if ancienFormatTCO then sauve_fichier_tco;
end;
end;