Pdf417, limpiar dibujo anterior

[J. Ernesto]

Buenas noches,

Una ayuda por favor.

Ell primer dibujo del código pdf417, se hace bien, cuando necesito generar el siguiente código, lo sobrescribe encima del anterior.

¿Qué me hace falta?

Code: Select all  Expand view  RUN

# include "fivewin.ch"

Static oWnd, oImg_pdf417

Function MAIN ()
Local nAncho_CW := 002, onAncho_CW ,;
      nAlto_CW  := 004, onAlto_CW  ,;
      nYi       := 410             ,;
      nXi       := 020             ,;
      nxAncho   := 600             ,;
      nyAlto    := 250             ,;
      sTipo_CB  := "PDF417"

Local oFont_WD_16
Local sFile  := cGetFile32 ( "Buscar textos para pdf417 *.txt | *.txt |", "Buscar otro archivo txt con los textos para el código pdf417", 0, hb_CurDrive () + ":\" + CurDir(), .F., , )
Local sTexto := MEMOREAD ( IIF ( LEN ( ALLTRIM ( sFile ) ) = 0, ".\z_qrcode.txt", sFile ) )

DEFINE FONT oFont_WD_16  NAME "TIMES NEW ROMAN" SIZE 0, -16

DEFINE ICON oIco FILENAME ".\zz_qrcode.ico"

DEFINE WINDOW oWnd FROM 000, 000 TO 660, 650 PIXEL ICON oIco ;                                         && Alto * Ancho
       TITLE "hb_zebra_create_pdf417"
   
 @ 167, 445 BUTTON oBtn_Otro PROMPT "Leer otro archivo *.txt" SIZE 186, 30 PIXEL FONT oFont_WD_16 OF oWnd ;
   MESSAGE "Buscar y leer otras líneas de texto" ;
   ACTION ( sFile  := cGetFile32 ( "Buscar textos para pdf417 *.txt | *.txt |", "Buscar otro archivo txt con los textos para el código pdf417", 0, hb_CurDrive () + ":\" + CurDir(), .F., , ) ,; && .F. = Abrir ) ,;
            sTexto := MEMOREAD ( IIF ( LEN ( ALLTRIM ( sFile ) ) = 0, ".\z_qrcode.txt", sFile ) ) ,;
            sFile_PDF417 := Dibujar_PDF417 ( oWnd:GetDC(), sTexto, nYi, nXi, nAncho_CW, nAlto_CW, CLR_BLUE ) )
 
 oBtn_Otro:cTooltip := { "Leer 0tro archivo para generar nuevo código pdf417", "Siguiente archivo *.txt", 1, CLR_WHITE, CLR_HRED }  

ACTIVATE WINDOW oWnd ;
 ON PAINT ( Dibujar_pdf417 ( hDC, sTexto, nYi, nXi, nAncho_CW, nAlto_CW ) )

Return ( NIL )
* -------------------------------------------------------------------------------------------------------------- *

* -------------------------------------------------------------------------------------------------------------- *
Function  Dibujar_pdf417 ( hDC, sTexto, nYi, nXi, nAncho_CW, nAlto_CW, nColor )
Local hZebra
Local hBrush := CreateSolidBrush ( 0 )

*? hdc

hZebra := HB_ZEBRA_CREATE_PDF417 ( sTexto, NIL )

oImg_pdf417 := HB_ZEBRA_DRAW ( hZebra , { | x, y, w, h | FILLRECT ( hDC   , { y, x, y + h, x + w }, hBrush ) }, nXi, nYi,     nAncho_CW,      nAlto_CW )
   
deleteobject     ( hBrush )
hb_zebra_destroy ( hZebra )
   
Return ( oImg_pdf417 )
* -------------------------------------------------------------------------------------------------------------- *

Muchas gracias por una ayuda.

[karinha]

Code: Select all  Expand view  RUN

// \SAMPLES\ERNESTO.PRG  - kapiabafwh@gmail.com - 01/10/2021

#Include "Fivewin.ch"

STATIC oWnd, oImg_pdf417, lDonde := .F.

FUNCTION Main()

   LOCAL nAncho_CW := 002, onAncho_CW, nAlto_CW := 004, onAlto_CW, ;
         nYi := 410, nXi := 020, nxAncho := 600, nyAlto := 250,    ;
         sTipo_CB := "PDF417"
   LOCAL oIco, oFont_WD_16, sFile, sTexto, sFile_PDF417, oBtn_Otro, cTitle
   LOCAL oBar

   cTitle := "hb_zebra_create_pdf417"

   sFile  := cGetFile32 ( "Buscar textos para pdf417 *.txt | *.txt |", "Buscar otro archivo txt con los textos para el código pdf417", 0, hb_CurDrive () + ":\" + CurDir(), .F., , )

   IF .NOT. EMPTY( sFile )

      sTexto := MEMOREAD ( IIF ( LEN ( ALLTRIM ( sFile ) ) = 0, ".\qrcode.txt", sFile ) )

   ELSE

      ? "Informe un archivo valido porfa..."

      RETURN NIL

   ENDIF

   DEFINE FONT oFont_WD_16  NAME "Times New Roman" SIZE 0, - 16

   // DEFINE ICON oIco FILENAME ".\zz_qrcode.ico"
   DEFINE ICON oIco FILE "..\icons\fax.ico"

   DEFINE WINDOW oWnd FROM 000, 000 TO 660, 650 PIXEL ICON oIco TITLE cTitle

   DEFINE BUTTONBAR oBar _3D SIZE 30, 30 OF oWnd

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\new.bmp" FLAT            ;
      ACTION MsgInfo( "New" ) ;
      TOOLTIP "Creates a new document"

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\open.bmp" FLAT           ;
      ACTION ( sFile  := cGetFile32( "Buscar textos para pdf417 *.txt | *.txt |", "Buscar otro archivo txt con los textos para el código pdf417", 0, hb_CurDrive () + ":\" + CurDir(), .F., , ), ;
      sTexto := MEMOREAD ( IIF ( LEN ( ALLTRIM ( sFile ) ) = 0, ".\qrcode.txt", sFile ) ), ;
      sFile_PDF417 := Dibujar_PDF417( oWnd:GetDC(), sTexto, nYi, nXi, nAncho_CW, nAlto_CW, CLR_BLUE, lDonde := .T. ) )

   ACTIVATE WINDOW oWnd ;
      ON PAINT ( Dibujar_pdf417( hDC, sTexto, nYi, nXi, nAncho_CW, nAlto_CW ) )

   oFont_WD_16:End()

RETURN NIL

FUNCTION  Dibujar_pdf417 ( hDC, sTexto, nYi, nXi, nAncho_CW, nAlto_CW, nColor )

   LOCAL hZebra, hBrush

   IF lDonde  // .T.

      ? "limpia window? Yes, sir!"

      lDonde := .F.

      oWnd:Refresh()

   ENDIF

   hBrush := CreateSolidBrush ( 0 )

   hZebra := HB_ZEBRA_CREATE_PDF417 ( sTexto, NIL )

   oImg_pdf417 := HB_ZEBRA_DRAW ( hZebra, {| x, y, w, h | FILLRECT ( hDC, { y, x, y + h, x + w }, hBrush ) }, nXi, nYi,     nAncho_CW,      nAlto_CW )

   deleteobject( hBrush )

   hb_zebra_destroy ( hZebra )

RETURN( oImg_pdf417 )

// fin / end

Regards, saludos.