AYUDA AL DIBUJAR CODEBAR

[Vladimir Zorrilla]

AMIGOS

NO DIBUJA LAS LINEAS NEGRAS DEL CODEBAR QUE ESTARA MAL

Function DibujarCodebar ( cdBarras, nx, ny, oDlg, lHorz, nColor, nAncho, nAlto ) && Dibuja un código de Barras en la Pantalla
Local oBrush, K := 0

//IF EMPTY ( nColor )
nColor := CLR_BLACK && Color negro para rellenar los retangulos
//ENDIF

Default lHorz := .T.
Default nAncho := 02.50 && Pixeles de Ancho
Default nAlto := 80.00 && Pixeles de Alto

Define BRUSH oBrush COLOR 255 && Brocha de relleno para cada Barra


//MSGALERT( cdBarras )
//MSGALERT(LEN ( cdBarras ) )

FOR K := 1 TO LEN ( cdBarras ) && Dibujar retangulos rellenos del color seleccionado

IF SUBSTR ( cdBarras, K, 1 ) = '1' && Es una Barra Negra
MSGALERT("ES NEGRA")
IF lHorz
FillRect ( oDlg:GetDC (), { nx, ny, nx + nAlto , ( ny += nAncho ) }, oBrush:hBrush ) && las coordenadas ya estan en Pixeles
ELSE
FillRect ( oDlg:GetDC (), { nx, ny, ( nx += nAncho ), ny + nAlto } , oBrush:hBrush ) && para Dibujar el código en pantalla
ENDIF
ELSEIF lHorz && es un 0, o un espacio en Blanco := Barras Blancas
ny += nAncho
ELSE
nx += nAncho
ENDIF
NEXT K

oBrush:end()
Return nil
* **************************************** ******************** ************************************************* *

SALU 2