From Clomosy Docs
function AddNewQRCodeGenerator(AComponent: TCLComponent; xName, xCaption: string): TclQRCodeGenerator;
AComponent : Specifies the parent of the object to be defined.
xName : The name of the defined QrCodeGenerator should be written.
xCaption : You can add a title.
A component used to generate QR codes. It converts information, such as text or URLs, into a QR code, which can be used for purposes like sharing links, encoding contact information, or displaying payment details. The generated QR code can be displayed within the application and can easily be scanned by mobile devices to retrieve the embedded information.
Visit the CallBarcodeReader page to enable scanning the generated QR code on mobile devices.
| Feature | Use of | Definition |
|---|---|---|
| TclQRCodeGenerator | QRGen : TclQRCodeGenerator; | A variable belonging to the TclQRCodeGenerator class is created. |
| AddNewQRCodeGenerator | QRGen = Form1.AddNewQRCodeGenerator(Form1,'QRGen','Test QRGen Caption'); | A new TclQRCodeGenerator is added to the form. |
| Width | QRGen.Width = 150; | Allows adjusting the width of the QRCodeGenerator. |
| Height | QRGen.Height = 50; | Allows adjusting the height of the QRCodeGenerator. |
| Align | QRGen.Align = alTop; | With the Align parameter, you can specify where you want our component to be aligned in the form. This parameter has multiple positioning properties. See the page to learn about these features. |
| Margins | QRGen.Margins.Left = 50; // Right, Top, Bottom | With the Margins parameter, you can give margins at any scale from the right, left, bottom, top. |
| Text | QRGen.Text = FormatDateTime('ddmmyy hhnnss', Now); | Another use of QRCodeGenerator is to add text. If we add text to our component by saying QRGen.text, when the project is run, the title does not appear and the value you have written in the text starts to appear. |
| Caption | QRGen.Caption = 'QRGen's Text'; | It represents the text displayed on the component. The Caption specifies the textual label that the component presents to the user. |
Example
var
MyForm:TclForm;
QRGen : TClQRCodeGenerator;
LytNewQrCode :TclLayout;
BtnNewQrCode:TclProButton;
void BtnNewQrCodeClick;
{
QRGen.Text = FormatDateTime('ddmmyy hhnnss', Now); //dd=day,mm=moon,yy=year -- hh=hour,nn=minute, ss= second
BtnNewQrCode.Caption = QRGen.Text;
}
{
MyForm = TclForm.Create(Self);
LytNewQrCode = MyForm.AddNewLayout(MyForm,'LytNewQrCode');
LytNewQrCode.Align=ALTop;
LytNewQrCode.Height = 200;
LytNewQrCode.Margins.Top = 30;
QRGen= MyForm.AddNewQRCodeGenerator(LytNewQrCode,'QRGen','QRCode');
QRGen.Height = 200;
QRGen.Width = 200;
QRGen.Align = alCenter;
MyForm.AddNewEvent(QRGen,tbeOnGetQRCode,'');
BtnNewQrCode = MyForm.AddNewProButton(MyForm,'BtnNewQrCode','RENEW');
BtnNewQrCode.Align = alCenter;
BtnNewQrCode.Width = 200;
BtnNewQrCode.Height = 50;
BtnNewQrCode.clProSettings.BorderColor = clAlphaColor.clHexToColor('#003399');
BtnNewQrCode.clProSettings.FontColor = clAlphaColor.clHexToColor('#4682B4');
BtnNewQrCode.clProSettings.RoundHeight = 10;
BtnNewQrCode.clProSettings.RoundWidth = 10;
BtnNewQrCode.clProSettings.BorderWidth = 2;
BtnNewQrCode.clProSettings.FontSize = 20;
BtnNewQrCode.clProSettings.IsFill = True;
BtnNewQrCode.clProSettings.IsRound = True;
BtnNewQrCode.SetclProSettings(BtnNewQrCode.clProSettings);
MyForm.AddNewEvent(BtnNewQrCode,tbeOnClick,'BtnNewQrCodeClick');
MyForm.Run;
}
Output:
When the Project Opens
When the Button is Clicked
