V8.2B

2023-10-02 21:23:20 +02:00
parent ce327d671b
commit e9b659fb98
10 changed files with 1586 additions and 1207 deletions
--- a/UnitPilote.pas
+++ b/UnitPilote.pas
@@ -6,7 +6,8 @@ interface

 uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, ExtCtrls, StdCtrls, UnitPrinc;
+  Dialogs, ExtCtrls, StdCtrls, UnitPrinc,
+  jpeg;

 type
   TFormPilote = class(TForm)
@@ -38,6 +39,7 @@ type
    CheckChiffre: TCheckBox;
    CheckChevron: TCheckBox;
    CheckClignote: TCheckBox;
+    ImageSignaux: TImage;
    procedure RadioVertClick(Sender: TObject);
    procedure RadioVertCliClick(Sender: TObject);
    procedure RadioJauneClick(Sender: TObject);