TclProImage

function AddNewProImage(AComponent: TCLComponent; xName: string): TClProImage;

AComponent : Specifies the parent of the object to be defined.

xName : The name of the defined image should be written.

TclProImage is used to add an image to a form. Adding visuals to an application makes it more attractive and user-friendly.
All of the TclImage features are available. Apart from this, border color, rounding borders, image stretching and fitting features are available.

Refer to the TclImage page for standard image usage.

Feature	Use of	Definition
TclProImage	ProImage1 : TclProImage;	A variable belonging to the TclProImage class is created.
AddNewProImage	ProImage1 = Form1.AddNewProImage(Form1,'ProImage1');	A new image is added to the form.

In addition to the features of a standard image, TclProImage offers new and advanced features, which we will explain in detail below.

clProSettings Properties

BorderColor

BorderWidth

BackgroundColor

IsTransparent

IsFill

IsRound

RoundHeight

RoundWidth

PictureAutoFit

PictureStretch

PictureSource

SetupComponent Properties

Width

Height

PositionX

PositionY

Align

BackgroundColor

MarginTop

MarginBottom

MarginRight

MarginLeft

RoundHeight

RoundWidth

BorderColor

BorderWidth

ImgFit

ImgStretch

ImgUrl

To learn the purpose and usage of the SetupComponent and clProSettings properties, please refer to the page.

Example

For clProSettings:

Var   
  Form1:TclForm;
  ProImg1: TClProImage;

void SetImage;
{
  ProImg1 = Form1.AddNewProImage(Form1,'ProImg1');
  ProImg1.Align = alCenter;
  ProImg1.Width = 150;
  ProImg1.Height = 150;
  ProImg1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2');
  ProImg1.clProSettings.RoundHeight = 10;
  ProImg1.clProSettings.RoundWidth = 10;
  ProImg1.clProSettings.BorderWidth = 2;
  ProImg1.clProSettings.IsFill = True; 
  ProImg1.clProSettings.IsRound = True;
  ProImg1.clProSettings.PictureSource = 'https://clomosy.com/demos/computerNetwork.png';
  ProImg1.clProSettings.PictureAutoFit = True;
  ProImg1.SetclProSettings(ProImg1.clProSettings);
}

{
  Form1 = TclForm.Create(Self);
  SetImage;
  Form1.Run;
}

For SetupComponent:

Var   
  Form1:TclForm;
  ProImg1: TClProImage;

void SetImage;
{
  ProImg1 = Form1.AddNewProImage(Form1,'ProImg1');
  clComponent.SetupComponent(ProImg1,'{
  "Align" : "Center",
  "Width":150,
  "Height":150,
  "BorderColor":"#fabd2",
  "BorderWidth":2,
  "RoundHeight":10,
  "RoundWidth":10,		
  "ImgUrl":"https://clomosy.com/demos/computerNetwork.png",
  "ImgFit":"yes"
}');
}

{
  Form1 = TclForm.Create(Self);
  SetImage;
  Form1.Run;
}

Output:

See Also

• Components
• Pro Object Properties
• Object Properties