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

V10.82

Browse Source
This commit is contained in:
f1iwq2
2026-01-17 11:19:04 +01:00
parent 4b997f5de1
commit 7daf7e28aa
24 changed files with 1157 additions and 2334 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
selection_train.pas
View File

@@ -590,6 +590,7 @@ begin
if IdCantonSelect=0 then IdCantonSelect:=AncienIdCantonSelect;
if affevt then Affiche('FormSelTrain.StringGridTrainsSelectCell col='+intToSTR(ACol)+' lig='+intToSTR(ARow),clYellow);
if (Arow>nTrains) or (IdCantonSelect<1) then exit;
faire:=false;
//------------change la sélection du train
if (Arow>=1) and (ACol<=5) then
@@ -607,7 +608,9 @@ begin
idAutrecanton:=index_canton_numero(autreCanton);
if (IdAutrecanton<>0) and (IdAutreCanton<>IdCantonSelect) then
begin
LabelInfo.caption:='Le train '+intToSTR(IndexTrainClic)+' '+trains[IndexTrainClic].nom_train+' est affecté au canton '+intToSTR(AutreCanton);
s:='Le train '+intToSTR(IndexTrainClic)+' '+trains[IndexTrainClic].nom_train+' est affecté au canton '+intToSTR(AutreCanton);
LabelInfo.caption:=s;
StringGridTrains.hint:='Affectation impossible,'+#13+s;
exit;
end;
@@ -622,6 +625,7 @@ begin
supprime_route_train(indextrainclic);
StringGridTrains.cells[7,ARow]:='';
end;
if faire then
@@ -657,7 +661,9 @@ begin
if (canton[IdCantonSelect].sensCirc<>0) then sensLoco:=canton[IdCantonSelect].sensCirc ;
affecte_Train_canton(trains[indexTrainClic].adresse,IdCantonSelect,sensLoco); // le train affecté contient la route du train razé
LabelInfo.caption:='Affectation du train '+intToSTR(IndexTrainClic)+' '+trains[indexTrainClic].nom_train+' au canton '+intToSTR(canton[idcantonSelect].numero);
s:='Affectation du train '+intToSTR(IndexTrainClic)+' '+trains[indexTrainClic].nom_train+' au canton '+intToSTR(canton[idcantonSelect].numero);
LabelInfo.caption:=s;
StringGridTrains.hint:=s;
maj_signaux(false);
end;
end;