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

V8.43

Browse Source
This commit is contained in:
f1iwq2
2024-02-12 17:11:02 +01:00
parent b4d968c6ea
commit c116b8c933
10 changed files with 196 additions and 153 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
UnitConfig.pas
View File

@@ -669,14 +669,14 @@ var
AdresseIPCDM,AdresseIP,PortCom,recuCDM,residuCDM : string; //,trainsauve : string;
portCDM,TempoOctet,TimoutMaxInterface,Valeur_entete,PortInterface,prot_serie,NumPort,debug,
LigneCliqueePN,AncLigneCliqueePN,clicMemo,Nb_cantons_Sig,protocole,Port,PortServeur,
LigneCliqueePN,AncLigneCliqueePN,clicMemo,Nb_cantons_Sig,protocole,Port,PortServeur,
ligneclicAig,AncLigneClicAig,ligneClicSig,AncligneClicSig,EnvAigDccpp,AdrBaseDetDccpp,
ligneClicBr,AncligneClicBr,ligneClicAct,AncLigneClicAct,IndexSignalclic,NumTrameCDM,
Algo_localisation,Verif_AdrXpressNet,ligneclicTrain,AncligneclicTrain,AntiTimeoutEthLenz,
ligneDCC,decCourant,AffMemoFenetre,ligneClicAccPeriph,AncligneClicAccPeriph,ligneCherche,
compt_Ligne,Style_aff,Ancien_Style,Ecran_SC,Mode_reserve,Max_Signal_Sens,nCantonsRes : integer;
ack_cdm,clicliste,config_modifie,clicproprietes,confasauver,trouve_MaxPort,
ack_cdm,clicliste,config_modifie,clicproprietes,confasauver,trouve_MaxPort,
modif_branches,ConfigPrete,trouve_section_dccpp,trouve_section_trains,trouve_section_acccomusb,
trouveAvecVerifIconesTCO,Affiche_avert,activ,trouve_section_dec_pers : boolean;
@@ -4030,6 +4030,10 @@ begin
Formprinc.roulage1.visible:=true;
end
else
begin
AvecRoulage:=0;
Formprinc.roulage1.visible:=false;
end;
// contrôle adresse IP interface
s:=EditIPLenz.text;
@@ -4252,6 +4256,7 @@ begin
EditP2.Visible:=false;
EditP3.Visible:=false;
EditP4.Visible:=false;
LabelTJD1.Visible:=false;
LabelTJD2.Visible:=false;
EditDevieS2.Visible:=false;
Label18.Visible:=false;
@@ -5841,7 +5846,7 @@ begin
end;
// remplir la combobox avec les styles disponibles
for s in TStyleManager.StyleNames do
for s in TStyleManager.StyleNames do
ComboStyle.Items.Add(s);
ComboStyle.itemIndex:=Style_Aff;
@@ -5928,6 +5933,26 @@ begin
begin
Left:=x;Top:=68;Width:=30;Height:=15;
name:='EditFiltrDet';
text:='';
parent:=GroupBoxAvance;
hint:='Temps de filtrage des détecteurs qui passent à 0';
ShowHint:=true;
end;
LabelnCantonsRes:=TLabel.Create(FormConfig.TabAvance);
with LabelnCantonsRes do
begin
Left:=10;Top:=90;Width:=170;Height:=12;
caption:='Nombre de cantons à réserver en avant du train';
name:='LabelnCantonsRes';
parent:=GroupBoxAvance;
end;
EditnCantonsRes:=TEdit.Create(TabAvance);
with EditnCantonsRes do
begin
Left:=x;Top:=88;Width:=30;Height:=15;
name:='EditnCantonsRes';
text:='';
parent:=GroupBoxAvance;
hint:='Nombre de cantons à réserver (1 à 5) en avant du train.'+#13+
'Utilisé en mode roulage ou réservation [sous mode réservation par canton (ci-dessous)].'+#13+
@@ -5936,7 +5961,7 @@ begin
end;
LabelAntiTO:=TLabel.Create(FormConfig.TabAvance);
begin
with LabelAntiTO do
begin
Left:=10;Top:=110;Width:=170;Height:=12;
caption:='Utilisation de l''anti timeout Lenz Ethernet';