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

V2.2

Browse Source 
V2.2
This commit is contained in:
f1iwq2
2020-11-29 11:04:24 +01:00
parent 9fba9f6a97
commit a1839decfa
21 changed files with 11131 additions and 441 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
UnitTCO.pas
View File

@@ -552,7 +552,7 @@ begin
Adr:=TCO[x,y].adresse;
if Adr<>0 then
begin
if detecteur[Adr] then
if detecteur[Adr].etat then
begin
Brush.Color:=clAllume;
pen.color:=clAllume;
@@ -1066,7 +1066,7 @@ begin
Adr:=TCO[x,y].adresse;
if Adr<>0 then
begin
if detecteur[Adr] then
if detecteur[Adr].etat then
begin
Brush.Color:=clAllume;
pen.color:=clAllume;
@@ -1114,7 +1114,7 @@ begin
Adr:=TCO[x,y].adresse;
if Adr<>0 then
begin
if detecteur[Adr] then
if detecteur[Adr].etat then
begin
Brush.Color:=clAllume;
pen.color:=clAllume;
@@ -1652,7 +1652,7 @@ begin
Adr:=TCO[x,y].adresse;
if Adr<>0 then
begin
if detecteur[Adr] then
if detecteur[Adr].etat then
begin
Brush.Color:=clAllume;
pen.color:=clAllume;
@@ -4028,14 +4028,14 @@ end;
procedure TFormTCO.Button1Click(Sender: TObject);
begin
Detecteur[569]:=true;
Detecteur[569].etat:=true;
Maj_tco(569);
end;
procedure TFormTCO.Button2Click(Sender: TObject);
begin
Detecteur[569]:=false;
Detecteur[569].etat:=false;
Maj_tco(569);
end;