From Clomosy Docs

No edit summary
No edit summary
Line 1: Line 1:
SetImage(TComponent, xImageFile)
<div class="alert alert-ligth border border-3 border-primary-subtle rounded-5 p-4 shadow-sm" role="alert">
procedure SetImage(xComponent:TComponent,'xImageFile');
</div>


Provides the ability to add images to the component.<br>
<span style="color:blue"><i>xComponent</i></span> : The variable name of the defined component is written.<br>


<span style="color:blue">''TComponent''</span> : The variable name of the defined component is written.
<span style="color:blue"><i>xImageFile</i></span> : You must add a string type url address to this field. You may encounter an error when the url address is not an image.<br>


<span style="color:blue">''xImageFile''</span> : 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.<br>


 
<b>Example</b><br>
'''Code:'''<br>
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).<br>
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).<br>


:'''Base Syntax'''
<pre>
  var
var
    MyForm:TclForm;
  MyForm:TclForm;
    testImg : TclImage;
  testImg : TclImage;
 
  begin
{
    MyForm := TclForm.Create(Self);
  MyForm = TclForm.Create(Self);
    testImg:= MyForm.AddNewImage(MyForm,'testImg');
  testImg= MyForm.AddNewImage(MyForm,'testImg');
    testImg.Align := alClient;
  testImg.Align = alClient;
    testImg.Height := 250;
  testImg.Height = 250;
    testImg.Width := 300;
  testImg.Width = 300;
   
 
    MyForm.'''setImage'''(testImg,'https://clomosy.com/demos/bg.png');
  MyForm.setImage(testImg,'https://clomosy.com/demos/bg.png');
    MyForm.AddNewEvent(testImg,tbeOnClick,'ShowMessage(<nowiki>''Background design..''</nowiki>);');
  MyForm.AddNewEvent(testImg,tbeOnClick,'ShowMessage(''Background design..'');');
    MyForm.Run;
  MyForm.Run;
 
  end;
}
</pre>


:'''TRObject Syntax'''
<b>Output:</b><br>
[[File:Image.png|frameless|450px]]<br>


  var
<h2> See Also </h2>
    MyForm:TclForm;
* [[TclForm | TclForm]]
    testImg : TclImage;
* [[TclImage | 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(<nowiki>''Background design..''</nowiki>);');
    MyForm.Run;
 
  }
'''Output:'''<br>
[[File:Image.png|frameless|450px]]

Revision as of 06:22, 6 November 2024

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:
Image.png

See Also

Retrieved from "http:///index.php?title=SetImage&oldid=2952"