From Clomosy Docs
function AddNewCircle(AComponent: TCLComponent; xName: string): TclCircle;
AComponent : Specifies the parent of the object to be defined.
xName : The name of the defined component should be written.
TclCircle represents a graphic element in the shape of a circle or ellipse. It can be used in applications to add various visual effects and features in user interface design.
| Feature | Use of | Definition |
|---|---|---|
| TclCircle | Circle1 : TclCircle; | A variable belonging to the TclCircle class is created. |
| AddNewCircle | Circle1 = Form1.AddNewCircle(Form1,'Circle1'); | A new TclCircle is added to the form. |
| Fill.Kind | Circle1.Fill.Kind = fbkSolid; | It is used to fill the inside of the object. This property determines how the interior fill of the object is applied. The following options can be used:
|
| Fill.Bitmap.WrapMode | Circle1.Fill.Bitmap.WrapMode = fbwmTileOriginal; | It is used to specify a bitmap when filling the inside of the component and to control how this bitmap will be tiled. It determines how the bitmap will be placed and overlapped on a specific area. The following options can be used:
|
| Stroke.Thickness | Circle1.Stroke.Thickness = 3; | It is used to set the thickness of the object's border. A value of 0 disables the border. |
Example
var
Form1:TclGameForm;
Circle1: TclCircle;
{
Form1 = TCLGameForm.Create(Self);
Circle1 = Form1.AddNewCircle(Form1, 'Circle1');
Circle1.Fill.Kind = fbkBitmap;
Circle1.Fill.Bitmap.WrapMode = fbwmTileOriginal;
Circle1.Width = 200;
Circle1.Height = 200;
Circle1.Stroke.Thickness = 3;
Form1.Run;
}