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

V4.0

Browse Source
This commit is contained in:
f1iwq2
2022-05-03 11:37:37 +02:00
parent 398df6e641
commit 3b27e18ab4
20 changed files with 1209 additions and 814 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
UnitDebug.pas
View File

@@ -54,8 +54,8 @@ type
CheckBoxTiers: TCheckBox;
ButtonSimuAct0: TButton;
ButtonSimuAct1: TButton;
CheckDebugTrames: TCheckBox;
ButtonElSuiv: TButton;
CheckBox1: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure ButtonEcrLogClick(Sender: TObject);
procedure EditNivDebugKeyPress(Sender: TObject; var Key: Char);
@@ -88,8 +88,8 @@ type
procedure CheckBoxTiersClick(Sender: TObject);
procedure ButtonSimuAct1Click(Sender: TObject);
procedure ButtonSimuAct0Click(Sender: TObject);
procedure CheckDebugTramesClick(Sender: TObject);
procedure ButtonElSuivClick(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
private
{ Déclarations privées }
public
@@ -490,11 +490,6 @@ begin
end;
procedure TFormDebug.CheckDebugTramesClick(Sender: TObject);
begin
debugtrames:=checkDebugTrames.checked;
end;
procedure TFormDebug.ButtonElSuivClick(Sender: TObject);
var Adr,Prec,Actuel,erreur,ancdebug : integer ;
type1,type2 : tequipement;
@@ -528,4 +523,9 @@ begin
end;
procedure TFormDebug.CheckBox1Click(Sender: TObject);
begin
dupliqueEvt:=CheckBox1.checked;
end;
end.