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

V4.71

Browse Source
This commit is contained in:
f1iwq2
2022-10-15 11:09:02 +02:00
parent 11ea636fa6
commit 7771670ea5
8 changed files with 21 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
UnitConfig.dfm
View File

@@ -1580,7 +1580,7 @@ object FormConfig: TFormConfig
Top = 8 Top = 8
Width = 633 Width = 633
Height = 497 Height = 497
ActivePage = TabSheetAutonome ActivePage = TabSheetAct
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -11 Font.Height = -11
@@ -2357,9 +2357,9 @@ object FormConfig: TFormConfig
Top = 48 Top = 48
Width = 145 Width = 145
Height = 21 Height = 21
Style = csDropDownList
ItemHeight = 13 ItemHeight = 13
TabOrder = 3 TabOrder = 3
Text = 'Type'
OnChange = ComboBoxAigChange OnChange = ComboBoxAigChange
Items.Strings = ( Items.Strings = (
'Aiguillage simple' 'Aiguillage simple'
@@ -2626,6 +2626,7 @@ object FormConfig: TFormConfig
Top = 24 Top = 24
Width = 97 Width = 97
Height = 21 Height = 21
Style = csDropDownList
ItemHeight = 13 ItemHeight = 13
TabOrder = 1 TabOrder = 1
OnChange = ComboBoxDDChange OnChange = ComboBoxDDChange
@@ -3002,7 +3003,8 @@ object FormConfig: TFormConfig
Top = 48 Top = 48
Width = 129 Width = 129
Height = 21 Height = 21
ItemHeight = 0 Style = csDropDownList
ItemHeight = 13
TabOrder = 1 TabOrder = 1
OnChange = ComboBoxDecChange OnChange = ComboBoxDecChange
end end
@@ -3105,6 +3107,7 @@ object FormConfig: TFormConfig
Top = 72 Top = 72
Width = 129 Width = 129
Height = 21 Height = 21
Style = csDropDownList
ItemHeight = 13 ItemHeight = 13
TabOrder = 2 TabOrder = 2
OnChange = ComboBoxAspChange OnChange = ComboBoxAspChange

11
UnitConfigCellTCO.dfm
View File

@@ -1,6 +1,6 @@
object FormConfCellTCO: TFormConfCellTCO object FormConfCellTCO: TFormConfCellTCO
Left = 211 Left = 467
Top = 228 Top = 112
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'FormConfCellTCO' Caption = 'FormConfCellTCO'
ClientHeight = 375 ClientHeight = 375
@@ -55,6 +55,7 @@ object FormConfCellTCO: TFormConfCellTCO
Top = 60 Top = 60
Width = 89 Width = 89
Height = 24 Height = 24
Style = csDropDownList
ItemHeight = 16 ItemHeight = 16
TabOrder = 0 TabOrder = 0
OnChange = ComboReprChange OnChange = ComboReprChange
@@ -137,12 +138,15 @@ object FormConfCellTCO: TFormConfCellTCO
Top = 48 Top = 48
Width = 33 Width = 33
Height = 21 Height = 21
Hint = 'Num'#233'ro d'#39'image de l'#39#233'l'#233'ment'
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -9 Font.Height = -9
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0 TabOrder = 0
OnKeyPress = EditTypeImageKeyPress OnKeyPress = EditTypeImageKeyPress
end end
@@ -254,6 +258,9 @@ object FormConfCellTCO: TFormConfCellTCO
Top = 48 Top = 48
Width = 33 Width = 33
Height = 24 Height = 24
Hint = 'Adresse DCC de l'#39#233'l'#233'ment'
ParentShowHint = False
ShowHint = True
TabOrder = 3 TabOrder = 3
OnKeyPress = EditAdrElementKeyPress OnKeyPress = EditAdrElementKeyPress
end end

BIN
UnitPrinc.dcu
View File

Binary file not shown.

3
UnitPrinc.pas
View File

@@ -6162,6 +6162,7 @@ var i,v,va,etatAct,Af,Ao,Access,sortie,dZ1F,dZ2F,dZ1O,dZ2O : integer;
begin begin
// vérifier si l'actionneur en évènement a été déclaré pour réagir // vérifier si l'actionneur en évènement a été déclaré pour réagir
if AffAigDet then AfficheDebug('Tick='+IntToSTR(tick)+' Evt Act '+intToSTR(Adr)+'/'+intToSTR(Adr2)+'='+intToSTR(etat),clyellow); if AffAigDet then AfficheDebug('Tick='+IntToSTR(tick)+' Evt Act '+intToSTR(Adr)+'/'+intToSTR(Adr2)+'='+intToSTR(etat),clyellow);
if adr=0 then exit;
//Affiche(intToSTR(adr)+'/'+intToSTR(adr2)+' '+intToSTR(etat),clyellow); //Affiche(intToSTR(adr)+'/'+intToSTR(adr2)+' '+intToSTR(etat),clyellow);
for i:=1 to maxTablo_act do for i:=1 to maxTablo_act do
begin begin
@@ -8628,7 +8629,7 @@ begin
i:=posEx('AD=',commandeCDM,1);l:=posEx(';',commandeCDM,i); i:=posEx('AD=',commandeCDM,1);l:=posEx(';',commandeCDM,i);
if i<>0 then if i<>0 then
begin begin
ss:=copy(commandeCDM,i+6,l-i-6); ss:=copy(commandeCDM,i+3,l-i-3);
val(ss,adr,erreur); val(ss,adr,erreur);
Delete(commandeCDM,i,l-i+1); Delete(commandeCDM,i,l-i+1);
end; end;

1
UnitTCO.dfm
View File

@@ -915,6 +915,7 @@ object FormTCO: TFormTCO
Top = 84 Top = 84
Width = 89 Width = 89
Height = 21 Height = 21
Style = csDropDownList
ItemHeight = 13 ItemHeight = 13
TabOrder = 4 TabOrder = 4
OnChange = ComboReprChange OnChange = ComboReprChange

BIN
verif_version.dcu
View File

Binary file not shown.

2
verif_version.pas
View File

@@ -23,7 +23,7 @@ var
Lance_verif : integer; Lance_verif : integer;
verifVersion,notificationVersion : boolean; verifVersion,notificationVersion : boolean;
Const Version='4.7'; // sert à la comparaison de la version publiée Const Version='4.71'; // sert à la comparaison de la version publiée
SousVersion=' '; // en cas d'absence de sous version mettre un espace SousVersion=' '; // en cas d'absence de sous version mettre un espace
implementation implementation

2
versions.txt
View File

@@ -121,6 +121,8 @@ version 4.6 : Correction TJD 2/4
version 4.7 : Réorganisation du menu et du panneau de configuration des cellules du TCO. version 4.7 : Réorganisation du menu et du panneau de configuration des cellules du TCO.
Amélioration du séquenceur de connexion à l'interface. Amélioration du séquenceur de connexion à l'interface.
version 4.71 : Correction bug décodage trame actionneur de CDM