I need to print labels (Form) with 1xLabel and 1xBarcodeQR [SOLVED]

[Jurassic Pork]

hello tmac1959,

what are your versions of lazarus, lazreport, lazbarcodes ? What is your O.S ?

try to use the report which is in the package lazreport sample barcode report folder and add a picture object in the master data of this report.


Friendly, J.P

[tmac1959]

Hello, everything I posted earlier but that it will not.

I canceled Fortes Report and pulled by your advice LazReport. QR Code is OK but I am not able to insert a local variable, for example. Variable1 (Edit1 Form1 form) containing the text of the QR Code in the Edit field LazReports Memo1 example, something like

frReport1.Memo1.Text: = Form1.Edit1.Text

You do not know how to do it, this is the last of this fight


Tomas

[Jurassic Pork]

in the report put a new rectangle object. In the memo zone of this object write :

Code: [Select]

MyLabel :  [MyLabel]
(MyLabel : is a permanent label, [MyLabel] is the name of the parameter)

in the ongetvalue event procedure of the frreport put this code :

Code: [Select]

if ParName = 'MyLabel' then
ParValue := Edit1.Text;
if you don't understand look at the lazreport sample stringgrid

[tmac1959]

Thank you very much it helped me

Tomas

[songwutk]

tips and tricks    :
How to add Qrcode barcode in the sample project barcode (cb.lpi)  of lazreport  ( the value of the qrcode is the Author field from the database disco.dbf).

1 - Install the packages lazreport and lazbarcodes in your lazarus ide.
2 - In the main form of the sample project barcode add a TbarcodeQR component.
3 - In the report add a picture where you want to display the barcode/
4 - Add this code on the event OnEnterRect of the frReport1 component :

Code: [Select]

procedure TForm1.frReport1EnterRect(Memo: TStringList; View: TfrView);
var
tmp : TBitmap;
w,h : integer;
r : TRect;
begin
  if (View.Name='Picture1')  then
  begin
    // Fields[0] --> Author
    BarCodeQR1.Text := frDBDataSet1.DataSet.Fields[0].AsString;
    BarCodeQR1.Update;
    w := BarCodeQR1.Width;
    h:= BarCodeQR1.Height;
    r:= Rect(0,0,w,h);
    tmp:=TBitmap.Create;
    tmp.Width:=w;
    tmp.Height:=h;
    // copy the qrcode bitmap  in the picture Picture1
    tmp.Canvas.CopyRect(r, BarCodeQR1.Canvas, r);
    TFrPictureView(View).Picture.Bitmap.Assign(tmp);
    tmp.free;
  end;
end;in attachment the modified project ( the name of the report is qrcodebar.lrf )

Friendly, J.P

Thanks for awesome code.