var

  MyForm:TCLForm;

  proBtn1,proBtn2 : TClProButton;

  proEdit1 : TclProEdit;

  proLbl1,proLbl2 : TClProLabel;

  proPnl1 : TclProPanel;

  proImg1 : TClProImage;

  proLV1 : TclProListView;

  proLVDP1 : TClProListViewDesignerPanel; 

  proDateEdt1 : TClProDateEdit;

  qry:TCLJSONQUERY;

  procedure proBtn1OnClick;

  begin

    MyForm.CallBarcodeReader(proEdit1); 

  end;

  procedure onItemClicked;

  begin

    ShowMessage('--' +proLV1.clSelectedItemData(clCaption));

  end;

begin

MyForm := TCLForm.Create(Self);

  proBtn1 := MyForm.AddNewProButton(MyForm,'proBtn1','TEST');

  MyForm.AddNewEvent(proBtn1,tbeOnClick,'proBtn1OnClick');

  proBtn1.Align := alCenter;

  proBtn1.Width := 180;

  proBtn1.Height := 100;

  proBtn1.clProSettings.FontColor := clAlphaColor.clHexToColor('#ff00ac');

  proBtn1.clProSettings.FontSize := 20;

  proBtn1.clProSettings.FontVertAlign := palcenter;//palLeading , palCenter , palTrailing

  proBtn1.clProSettings.FontHorzAlign := palcenter;

  proBtn1.clProSettings.TextSettings.Font.Style := [fsBold,fsItalic,fsUnderline];

  

  proBtn1.clProSettings.BackgroundColor := clAlphaColor.clRed;

  proBtn1.clProSettings.IsTransparent := False;

  proBtn1.clProSettings.IsFill := True;

  proBtn1.clProSettings.IsRound := True;

  proBtn1.clProSettings.RoundHeight := MyForm.clHeight*0.01;

  proBtn1.clProSettings.RoundWidth := MyForm.clHeight*0.01;

  proBtn1.clProSettings.BorderColor := clAlphaColor.clBlue;

  proBtn1.clProSettings.BorderWidth := 20;

  

  MyForm.Run;

end;