From Clomosy Docs
No edit summary |
No edit summary |
||
| Line 3: | Line 3: | ||
</div> | </div> | ||
<span style="color:blue"><b>AComponent</b></span> : | <span style="color:blue"><b>AComponent</b></span> : Specifies the parent of the object to be defined.<br> | ||
<span style="color:blue"><b>xName</b></span> : The name of the defined image should be written.<br> | <span style="color:blue"><b>xName</b></span> : The name of the defined image should be written.<br> | ||
Revision as of 13:51, 14 November 2024
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
SetupComponent Properties
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:
