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

V6.3

Browse Source
This commit is contained in:
f1iwq2
2023-07-16 10:04:33 +02:00
parent f09fa4c454
commit 9957edb6c9
16 changed files with 2442 additions and 389 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
UnitSimule.pas
View File

@@ -12,7 +12,7 @@ type
OpenDialog: TOpenDialog;
EditIntervalle: TEdit;
Label1: TLabel;
CheckAffTick: TCheckBox;
CheckRaz: TCheckBox;
CheckEvalroutes: TCheckBox;
procedure ButtonChargeClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
@@ -136,7 +136,7 @@ begin
OpenDialog.Filter:='Fichiers texte (*.txt)|*.txt|Tous fichiers (*.*)|*.*';
if openDialog.Execute then
begin
if checkAffTick.Checked then raz_tout;
if checkRAZ.Checked then raz_tout;
if checkEvalRoutes.Checked then TraceListe:=true;
s:=openDialog.FileName;
ouvre_simulation(s);
@@ -145,7 +145,8 @@ end;
procedure TFormSimulation.FormCreate(Sender: TObject);
begin
Intervalle:=0;
Intervalle:=1;
CheckRaz.Checked:=true;
EditIntervalle.Text:=IntToSTR(Intervalle);
end;