Class TForm1 (unit RTest1)

Inherits from

TForm

Constructors



Functions

procedure ClearBtnClick(Sender: TObject);

Form2.

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;



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;