Class TRLDemo (unit Rltestu) |
Inherits from
TForm
procedure ChDirection( Sender : TObject);
procedure ChLStyle(Sender: TObject);
procedure FontButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure RLEventsRBClick(Sender: TObject);
procedure RLTextOnEx(Sender: TObject);
procedure RLTextOnKD(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure RLTTabSetClick(Sender: TObject);
Load main icon into image
procedure RunButton1Click(Sender: TObject);
procedure SpeedSEOnEx(Sender: TObject);
procedure StepsSEOnEx(Sender: TObject);
procedure ChangeColor(Sender: TObject);
Centers main label} { Event procedures
procedure CycleRuning(Sender: TObject);
Color := BkgColors[ ColorCounter];
procedure ReverseRuning(Sender: TObject);
procedure StopOnStep(Sender: TObject);
procedure ViewMainLabel;
About page
BtTRB : TRadioButton;
DirectionGB : TGroupBox;
Direction properties group
EvChColor : TRadioButton;
EvCycle : TRadioButton;
EvNone1 : TRadioButton;
EvNone2 : TRadioButton;
EvNone3 : TRadioButton;
EvOnBeginGB : TGroupBox;
Events groups
EvOnEndGB : TGroupBox;
EvOnStepGB : TGroupBox;
EvReverse : TRadioButton;
EvStopAt : TRadioButton;
FontButton : TButton;
FontDialog1 : TFontDialog;
IconIm : TImage;
IconPanel : TPanel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
LabelStyleGB : TGroupBox;
LabelStyle properties group
LlRB : TRadioButton;
LtRRB : TRadioButton;
NlRB : TRadioButton;
Panel1 : TPanel;
RLabelMain : TRunLabel;
RLPanel1 : TPanel;
RLPanel2 : TPanel;
RlRB : TRadioButton;
RLText : TEdit;
RLTNotebook : TNotebook;
RLTPanel : TPanel;
RLTTabSet : TTabSet;
RtLRB : TRadioButton;
RunButton1 : TButton;
SpeedSE : TSpinEdit;
StepsSE : TSpinEdit;
StopOnSE : TSpinEdit;
StRB : TRadioButton;
TtBRB : TRadioButton;
ColorCounter : integer;
PrColor : TColor;
PrFontColor : TColor;
RLOldText : string;
procedure ChDirection( Sender : TObject);
procedure ChLStyle(Sender: TObject);
procedure FontButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure RLEventsRBClick(Sender: TObject);
procedure RLTextOnEx(Sender: TObject);
procedure RLTextOnKD(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure RLTTabSetClick(Sender: TObject);
Load main icon into image
procedure RunButton1Click(Sender: TObject);
procedure SpeedSEOnEx(Sender: TObject);
procedure StepsSEOnEx(Sender: TObject);
procedure ChangeColor(Sender: TObject);
Centers main label} { Event procedures
procedure CycleRuning(Sender: TObject);
Color := BkgColors[ ColorCounter];
procedure ReverseRuning(Sender: TObject);
procedure StopOnStep(Sender: TObject);
procedure ViewMainLabel;
About page
BtTRB : TRadioButton;
DirectionGB : TGroupBox;
Direction properties group
EvChColor : TRadioButton;
EvCycle : TRadioButton;
EvNone1 : TRadioButton;
EvNone2 : TRadioButton;
EvNone3 : TRadioButton;
EvOnBeginGB : TGroupBox;
Events groups
EvOnEndGB : TGroupBox;
EvOnStepGB : TGroupBox;
EvReverse : TRadioButton;
EvStopAt : TRadioButton;
FontButton : TButton;
FontDialog1 : TFontDialog;
IconIm : TImage;
IconPanel : TPanel;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
LabelStyleGB : TGroupBox;
LabelStyle properties group
LlRB : TRadioButton;
LtRRB : TRadioButton;
NlRB : TRadioButton;
Panel1 : TPanel;
RLabelMain : TRunLabel;
RLPanel1 : TPanel;
RLPanel2 : TPanel;
RlRB : TRadioButton;
RLText : TEdit;
RLTNotebook : TNotebook;
RLTPanel : TPanel;
RLTTabSet : TTabSet;
RtLRB : TRadioButton;
RunButton1 : TButton;
SpeedSE : TSpinEdit;
StepsSE : TSpinEdit;
StopOnSE : TSpinEdit;
StRB : TRadioButton;
TtBRB : TRadioButton;
ColorCounter : integer;
PrColor : TColor;
PrFontColor : TColor;
RLOldText : string;