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

V3.6

Browse Source 
V3.6
This commit is contained in:
f1iwq2
2022-02-08 19:11:20 +01:00
parent 68e87e9ec8
commit 950310ba04
22 changed files with 1090 additions and 591 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
UnitDebug.pas
View File

@@ -54,6 +54,7 @@ type
CheckBoxTiers: TCheckBox;
ButtonSimuAct0: TButton;
ButtonSimuAct1: TButton;
CheckDebugTrames: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure ButtonEcrLogClick(Sender: TObject);
procedure EditNivDebugKeyPress(Sender: TObject; var Key: Char);
@@ -86,6 +87,7 @@ type
procedure CheckBoxTiersClick(Sender: TObject);
procedure ButtonSimuAct1Click(Sender: TObject);
procedure ButtonSimuAct0Click(Sender: TObject);
procedure CheckDebugTramesClick(Sender: TObject);
private
{ Déclarations privées }
public
@@ -97,7 +99,6 @@ Max_Event_det_tick=30000;
Max_event_det=400;
Max_Trains=50;
var
FormDebug: TFormDebug;
NivDebug,signalDebug : integer;
@@ -493,8 +494,9 @@ begin
end;
procedure TFormDebug.CheckDebugTramesClick(Sender: TObject);
begin
debugtrames:=checkDebugTrames.checked;
end;
end.