Hola a todos:
Estoy intentando insertar un componente TDBBarcode1D de Han-soft para mostrar el codigo de barras de unas etiquetas, pero no consigo que me aparezca. Anteriormente utilizaba el componente TQRBarcode que si me funcionaba pero quería cambiarlo por este otro componente que permite quitar los números del código de barras mostrado.
Para mostrar el TQRBarcode, al hacer rdsEtiquetas.PreviewReport('archivoEtiquetas.fme'), en el evento AfterReportLoaded del componente TReportDesignerDialog rdsEtiquetas sustituía el valor del campo Barras por la representación en código de barras del TQRBarcode, de la siguiente forma:
Código Delphi
[-]
Barras := TQRDBText( Form.FindComponent( 'BARRAS'));
If not ( Barras = nil) Then
Begin
With TQRBarCode.Create( Barras.Owner) Do
Begin
Parent := Barras.Parent;
BarCodeType := EAN;
Left := Barras.Left;
Top := Barras.Top;
Width := Barras.Width;
Height := Barras.Height;
DataSet:= tAuxEtBarras;
DataField := 'Barras';
End;
Barras.Free;
End;
- Con el componente TDBBarcode1D intento hacer algo similar pero no consigo que me muestre el código de barras. Si alguien ha trabajado con este tipo de componentes, por favor, me vendría bien un poco de ayuda.
Gracias por vuestra atención...
Saludos:
Pablo.