QR kod

var
  MyForm:TFrmClomosyBasisForm;
  QRGen :  TClQRCodeGenerator;
  BtnNewQrCode:TclProButton;

procedure SetInputQueryString;
begin
   QRGen.Text:= Clomosy.GlobalResult;
End;

Procedure BtnNewQrCodeClick;
begin
  InputAndCall('Input a value?','Default Value','SetInputQueryString','');

End;
  
begin
 MyForm:= TFrmClomosyBasisForm.Create(Self);

 QRGen:= MyForm.AddNewQRCodeGenerator(MyForm,'QRGen','QRCode');
 QRGen.Height:= 200;
 QRGen.Width:= 200;
 QRGen.Align:= alTop;
 MyForm.AddNewEvent(QRGen,tbeOnGetQRCode,'');

 BtnNewQrCode:= MyForm.AddNewProButton(MyForm,'BtnNewQrCode','');
 clComponent.SetupComponent(BtnNewQrCode,'{"caption":"RENEW","Align" : "Center","Width" :200,"Height":50,
 "RoundHeight":20,"RoundWidth":10,"BorderColor":"#003399","BorderWidth":2,"TextSize":20,"TextColor":"#4682B4"}');

 MyForm.AddNewEvent(BtnNewQrCode,tbeOnClick,'BtnNewQrCodeClick');

 MyForm.Run;

end;