Ver Mensaje Individual
  #2  
Antiguo 06-09-2012
Avatar de ingabraham
ingabraham ingabraham is offline
Miembro
 
Registrado: ago 2007
Posts: 614
Reputación: 17
ingabraham Va por buen camino
Question

este es el codigo que estoy utilizando para generar el codigo

Código Delphi [-]

   Barcode1 := TAsBarcode.Create(self);
   Barcode1.Top := 5 ;
   Barcode1.Left := 10;
   Barcode1.Typ := bcCodePostNet;
   Barcode1.Modul := 2  ;
   Barcode1.Ratio := 2.0;
   Barcode1.Height :=  45 ;  

  Barcode1.Typ := TBarcodeType(2);
  Barcode1.ShowTextPosition := TShowTextPosition(5);

  Barcode1.ShowText := TBarcodeOption(0);


  Barcode1.Text := LCODBARRA.Caption;
  

  Image1.Picture := nil;
  Barcode1.DrawBarcode(Image1.Canvas);
__________________
Enseñar es la virtud de un sabio.
Responder Con Cita