Class TRLDemo (unit Rltestu)

Inherits from

TForm

Constructors



Functions

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

Properties

Events

Variables

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;



Constructors


Functions


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


Properties


Events


Variables


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;