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

V8.7

Browse Source 
V8.7
This commit is contained in:
f1iwq2
2024-04-06 16:54:03 +02:00
parent 1f2fa711ca
commit b10f983b0b
26 changed files with 4349 additions and 2848 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
UnitDebug.pas
View File

@@ -107,6 +107,7 @@ type
procedure CheckBoxPrincClick(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ButtonAigDevieClick(Sender: TObject);
procedure ButtonSigPrecClick(Sender: TObject);
private
{ Déclarations privées }
public
@@ -512,14 +513,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,'',false);
if (erreur=0) and (det>0) then Event_Act(det,0,1,'');
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,'',false);
if (erreur=0) and (det>0) then Event_Act(det,0,0,'');
end;
procedure TFormDebug.ButtonRazToutClick(Sender: TObject);
@@ -715,4 +716,16 @@ begin
NivDebug:=AncDebug;
end;
procedure TFormDebug.ButtonSigPrecClick(Sender: TObject);
var Adr,erreur,ancDebug : integer;
begin
Val(EditSigSuiv.Text,Adr,erreur);
if (erreur<>0) or (Adr<1) then exit;
ancdebug:=NivDebug;
NivDebug:=3;
erreur:=Signal_Precedent(Adr);
NivDebug:=AncDebug;
AfficheDebug('signal précédent='+intToSTR(erreur),clyellow);
end;