| Class TForm1 (unit Ledtest1) |
TForm
| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure CounterTimerTimer(Sender: TObject);
procedure CycleTimerTimer(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Show_16(Numbers: String; Types: TImageList);
procedure Show_8(Numbers: String; Types: TImageList);
procedure Show_Im(Im: TImage; Number: Char; Types: TImageList);| Properties |
| Events |
| Variables |
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
CounterTimer : TTimer;
CycleTimer : TTimer;
Edit1 : TEdit;
Image1 : TImage;
Image10 : TImage;
Image11 : TImage;
Image12 : TImage;
Image13 : TImage;
Image14 : TImage;
Image15 : TImage;
Image16 : TImage;
Image17 : TImage;
Image18 : TImage;
Image19 : TImage;
Image2 : TImage;
Image20 : TImage;
Image21 : TImage;
Image22 : TImage;
Image23 : TImage;
Image24 : TImage;
Image3 : TImage;
Image4 : TImage;
Image5 : TImage;
Image6 : TImage;
Image7 : TImage;
Image8 : TImage;
Image9 : TImage;
Led : TImageList;
Lynx : TImageList;
Panel1 : TPanel;
Panel2 : TPanel;| Constructors |
| Functions |
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure CounterTimerTimer(Sender: TObject);
procedure CycleTimerTimer(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Show_16(Numbers: String; Types: TImageList);Split the 16 chars string in to little chars... and some errorhandling.
procedure Show_8(Numbers: String; Types: TImageList);Split the 8 chars string in to little chars... and some errorhandling.
procedure Show_Im(Im: TImage; Number: Char; Types: TImageList);Copy the correct image from some TImageList to a TImage!!!
| Properties |
| Events |
| Variables |
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
CounterTimer : TTimer;
CycleTimer : TTimer;
Edit1 : TEdit;
Image1 : TImage;
Image10 : TImage;
Image11 : TImage;
Image12 : TImage;
Image13 : TImage;
Image14 : TImage;
Image15 : TImage;
Image16 : TImage;
Image17 : TImage;
Image18 : TImage;
Image19 : TImage;
Image2 : TImage;
Image20 : TImage;
Image21 : TImage;
Image22 : TImage;
Image23 : TImage;
Image24 : TImage;
Image3 : TImage;
Image4 : TImage;
Image5 : TImage;
Image6 : TImage;
Image7 : TImage;
Image8 : TImage;
Image9 : TImage;
Led : TImageList;
Lynx : TImageList;
Panel1 : TPanel;
Panel2 : TPanel;