Printing a barcode into CrossView

cadsky

How to print barcode to each row in CrossView. Thanks

cadsky

cadsky wrote: »

How to print barcode to each row in CrossView. Thanks

procedure CellMemo0OnBeforePrint(Sender: TfrxComponent);
var
BarCode: TfrxBarCodeView;
Picture: TfrxPictureView;
begin

BarCode := TfrxBarCodeView.Create(Sender.parent);
BarCode.SetBounds(Memo.Left, Memo.Top, 50, 10);

or

Picture := TfrxPictureView.Create(Sender.parent);
Picture.SetBounds(Memo.Left, Memo.Top, 10, 10);
Picture.Picture.LoadFromFile('e:\Images\dsoft\loga\16.bmp');

end;