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

V6.0

Browse Source
This commit is contained in:
f1iwq2
2023-04-28 17:51:49 +02:00
parent fe50853e84
commit f8e7aad9aa
11 changed files with 1483 additions and 373 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
UnitDebug.pas
View File

@@ -63,7 +63,6 @@ type
Button0: TButton;
MemoEvtDet: TRichEdit;
CheckDetSIg: TCheckBox;
CheckImporteCDM: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure ButtonEcrLogClick(Sender: TObject);
procedure EditNivDebugKeyPress(Sender: TObject; var Key: Char);
@@ -102,7 +101,6 @@ type
procedure FormActivate(Sender: TObject);
procedure MemoEvtDetChange(Sender: TObject);
procedure CheckDetSIgClick(Sender: TObject);
procedure CheckImporteCDMClick(Sender: TObject);
private
{ Déclarations privées }
public
@@ -112,7 +110,7 @@ type
var
FormDebug: TFormDebug;
NivDebug,signalDebug,compt_erreur,positionErreur,LigneErreur : integer;
AffSignal,AffAffect,initform,AffFD,debug_dec_sig,debugTCO,DebugAffiche,AFfDetSIg,debugAnalyse : boolean;
AffSignal,AffAffect,initform,AffFD,debug_dec_sig,debugTCO,DebugAffiche,AFfDetSIg : boolean;
N_event_det : integer; // index du dernier évènement (de 1 à 20)
N_Event_tick : integer ; // dernier index
@@ -627,9 +625,8 @@ begin
AFfDetSIg:=checkDetSig.checked;
end;
procedure TFormDebug.CheckImporteCDMClick(Sender: TObject);
begin
debugAnalyse:=checkImporteCDM.checked;
end;
end.