Class TTickerform (unit tdemo1) |
Inherits from
TForm
procedure B_InitiateClick(Sender: TObject);
Use a global bitmap to save memory
procedure B_ScrollClick(Sender: TObject);
ALWAYS call this procedure the first thing you do with the ticker
procedure ComboBox1Change(Sender: TObject);
The ShowTickerData - procedure will scroll the selected bitmap immidiately
procedure FormCreate(Sender: TObject);
Don't forget this
procedure FormDestroy(Sender: TObject);
B_Initiate : TButton;
B_Scroll : TButton;
CF_Ticker1 : TCF_Ticker;
ComboBox1 : TComboBox;
Edit1 : TEdit;
Edit2 : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
procedure B_InitiateClick(Sender: TObject);
Use a global bitmap to save memory
procedure B_ScrollClick(Sender: TObject);
ALWAYS call this procedure the first thing you do with the ticker
procedure ComboBox1Change(Sender: TObject);
The ShowTickerData - procedure will scroll the selected bitmap immidiately
procedure FormCreate(Sender: TObject);
Don't forget this
procedure FormDestroy(Sender: TObject);
B_Initiate : TButton;
B_Scroll : TButton;
CF_Ticker1 : TCF_Ticker;
ComboBox1 : TComboBox;
Edit1 : TEdit;
Edit2 : TEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;