Class TForm1 (unit Ledtest1)

Inherits from

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);

Split the 16 chars string in to little chars.

procedure Show_8(Numbers: String; Types: TImageList);

Split the 8 chars string in to little chars.

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;



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;