From Clomosy Docs
No edit summary |
No edit summary |
||
| Line 1: | Line 1: | ||
<div class="alert alert-ligth border border-3 border-primary-subtle rounded-5 p-4 shadow-sm" role="alert"> | <div class="alert alert-ligth border border-3 border-primary-subtle rounded-5 p-4 shadow-sm" role="alert"> | ||
procedure SetImage(xComponent: | procedure SetImage(xComponent:TCLComponent,'xImageFile'); | ||
</div> | </div> | ||
Revision as of 12:54, 6 November 2024
procedure SetImage(xComponent:TCLComponent,'xImageFile');
xComponent : The variable name of the defined component is written.
xImageFile : You must add a string type url address to this field. You may encounter an error when the url address is not an image.
It is a procedure used to display an image in visual components.
Example
Now let's see the code part. Let's define the image variable. After that, let's create a field in the Form (AddNewImage) and add an image (SetImage).
var
MyForm:TclForm;
testImg : TclImage;
{
MyForm = TclForm.Create(Self);
testImg= MyForm.AddNewImage(MyForm,'testImg');
testImg.Align = alClient;
testImg.Height = 250;
testImg.Width = 300;
MyForm.setImage(testImg,'https://clomosy.com/demos/bg.png');
MyForm.AddNewEvent(testImg,tbeOnClick,'ShowMessage(''Background design..'');');
MyForm.Run;
}
Output:
