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

V8.6

Browse Source
This commit is contained in:
f1iwq2
2024-03-26 18:36:08 +01:00
parent 4a82a86965
commit 1f2fa711ca
30 changed files with 5349 additions and 1158 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UnitDebug.pas
View File

@@ -512,14 +512,14 @@ procedure TFormDebug.ButtonSimuAct1Click(Sender: TObject);
var det,erreur : integer;
begin
val(EditSimuDet.Text,det,erreur);
if (erreur=0) and (det>0) then Event_Act(det,0,1,'');
if (erreur=0) and (det>0) then Event_Act(det,0,1,'',false);
end;
procedure TFormDebug.ButtonSimuAct0Click(Sender: TObject);
var det,erreur : integer;
begin
val(EditSimuDet.Text,det,erreur);
if (erreur=0) and (det>0) then Event_Act(det,0,0,'');
if (erreur=0) and (det>0) then Event_Act(det,0,0,'',false);
end;
procedure TFormDebug.ButtonRazToutClick(Sender: TObject);