| Class TForm1 (unit RTest1) |
TForm
| Constructors |
| Functions |
procedure ClearBtnClick(Sender: TObject);
procedure ColourCBChange(Sender: TObject);
procedure CombineRGClick(Sender: TObject);
procedure FillBtnClick(Sender: TObject);
procedure FillRGClick(Sender: TObject);
procedure FontClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Move_BtnClick(Sender: TObject);
procedure ScalarClick(Sender: TObject);
procedure ShapeBtnClick(Sender: TObject);
procedure StyleCBChange(Sender: TObject);
procedure TextBtnClick(Sender: TObject);
procedure AddColourToList (const s : string);
function GetRect : TRect;| Properties |
| Events |
| Variables |
BrushShape : TShape;
CircleBtn : TSpeedButton;
ClearBtn : TSpeedButton;
ColourCB : TComboBox;
CombineRG : TRadioGroup;
DL_Btn : TSpeedButton;
DR_Btn : TSpeedButton;
D_Btn : TSpeedButton;
EllipseBtn : TSpeedButton;
FillBtn : TSpeedButton;
FillRG : TRadioGroup;
Font : TSpeedButton;
FontDialog : TFontDialog;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
GroupBox4 : TGroupBox;
GroupBox5 : TGroupBox;
GroupBox6 : TGroupBox;
GroupBox7 : TGroupBox;
GroupBox8 : TGroupBox;
GroupBox9 : TGroupBox;
HeightEdit : TEdit;
HorzBtn : TSpeedButton;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
LargerBtn : TSpeedButton;
LeftEdit : TEdit;
L_Btn : TSpeedButton;
RectBtn : TSpeedButton;
RoundRectBtn : TSpeedButton;
RoundSquareBtn : TSpeedButton;
R_Btn : TSpeedButton;
SmallerBtn : TSpeedButton;
SquareBtn : TSpeedButton;
StyleCB : TComboBox;
TextBtn : TSpeedButton;
TextEdit : TEdit;
TL_Btn : TSpeedButton;
TopEdit : TEdit;
UL_Btn : TSpeedButton;
UR_Btn : TSpeedButton;
U_Btn : TSpeedButton;
VertBtn : TSpeedButton;
WidthEdit : TEdit;
Region1 : TRegion;| Constructors |
| Functions |
procedure ClearBtnClick(Sender: TObject);Form2.Repaint
procedure ColourCBChange(Sender: TObject);fit form to dialog components
procedure CombineRGClick(Sender: TObject);
procedure FillBtnClick(Sender: TObject);
procedure FillRGClick(Sender: TObject);
procedure FontClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Move_BtnClick(Sender: TObject);
procedure ScalarClick(Sender: TObject);
procedure ShapeBtnClick(Sender: TObject);
procedure StyleCBChange(Sender: TObject);
procedure TextBtnClick(Sender: TObject);
procedure AddColourToList (const s : string);
function GetRect : TRect;| Properties |
| Events |
| Variables |
BrushShape : TShape;
CircleBtn : TSpeedButton;
ClearBtn : TSpeedButton;
ColourCB : TComboBox;
CombineRG : TRadioGroup;
DL_Btn : TSpeedButton;
DR_Btn : TSpeedButton;
D_Btn : TSpeedButton;
EllipseBtn : TSpeedButton;
FillBtn : TSpeedButton;
FillRG : TRadioGroup;
Font : TSpeedButton;
FontDialog : TFontDialog;
GroupBox1 : TGroupBox;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
GroupBox4 : TGroupBox;
GroupBox5 : TGroupBox;
GroupBox6 : TGroupBox;
GroupBox7 : TGroupBox;
GroupBox8 : TGroupBox;
GroupBox9 : TGroupBox;
HeightEdit : TEdit;
HorzBtn : TSpeedButton;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
LargerBtn : TSpeedButton;
LeftEdit : TEdit;
L_Btn : TSpeedButton;
RectBtn : TSpeedButton;
RoundRectBtn : TSpeedButton;
RoundSquareBtn : TSpeedButton;
R_Btn : TSpeedButton;
SmallerBtn : TSpeedButton;
SquareBtn : TSpeedButton;
StyleCB : TComboBox;
TextBtn : TSpeedButton;
TextEdit : TEdit;
TL_Btn : TSpeedButton;
TopEdit : TEdit;
UL_Btn : TSpeedButton;
UR_Btn : TSpeedButton;
U_Btn : TSpeedButton;
VertBtn : TSpeedButton;
WidthEdit : TEdit;
Region1 : TRegion;