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

v7.2

Browse Source
This commit is contained in:
f1iwq2
2023-08-20 12:05:08 +02:00
parent af03d91a65
commit 15d124f2a2
22 changed files with 1627 additions and 1300 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
UnitPilote.pas
View File

@@ -345,7 +345,7 @@ begin
if (n<4) or (n>10) then checkVerrouCarre.Visible:=false else
begin
checkVerrouCarre.Visible:=true;
checkVerrouCarre.Checked:=feux[i].VerrouilleCarre;
checkVerrouCarre.Checked:=feux[i].VerrouCarre;
end;
ImagePilote.Parent:=FormPilote;
@@ -379,9 +379,9 @@ procedure TFormPilote.CheckVerrouCarreClick(Sender: TObject);
var i : integer;
begin
i:=Index_Signal(AdrPilote);
feux[i].VerrouilleCarre:=checkVerrouCarre.Checked=true;
if feux[i].VerrouilleCarre then
if feux[i].VerrouCarre then
begin
feux[i].EtatVerrouCarre:=checkVerrouCarre.Checked=true;
Maj_Etat_Signal(AdrPilote,carre);
envoi_signal(Adrpilote);
Maj_Etat_Signal(0,carre);