FiveTech Software tech support forums

Code: Select all

#include "fivewin.ch"

REQUEST FWZEBRA

function Main()

   local oDlg, oCode, oSay, oSay2, oSay3, oFont
   local cText    := "FiveTechSoft"
   local cName    := Space( 20 )
   local cCity    := Space( 20 )
   local cCountry := Space( 20 )
   local cItem    := "123456789012"

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 600,800 PIXEL TRUEPIXEL FONT oFont ;
      TITLE "TSAYBARCODE CONTROL"

   @ 080, 40 SAY "PDF417" SIZE 100,26 PIXEL OF oDlg

   @ 050,150 SAYBARCODE oSay2 ;
      TEXT "Address :" + CRLF + cName - CRLF - cCity - CRLF - cCountry ;
      TYPE "PDF417" SIZE 400,80 PIXEL OF oDlg UPDATE

   @ 240, 40 SAY "Name    :" GET cName    SIZE 300,24 PIXEL OF oDlg VALID ( oDlg:Update(), .t. )
   @ 270, 40 SAY "City    :" GET cCity    SIZE 300,24 PIXEL OF oDlg VALID ( oDlg:Update(), .t. )
   @ 300, 40 SAY "Country :" GET cCountry SIZE 300,24 PIXEL OF oDlg VALID ( oDlg:Update(), .t. )
   @ 330, 40 SAY "Item    :" GET cItem    SIZE 200,24 PIXEL OF oDlg VALID ( oDlg:Update(), .t. ) ;
                                          PICTURE "999999999999" RIGHT
   @  230,450 SAYBARCODE oSay ;
      TEXT "Address :" + CRLF + cName - CRLF - cCity - CRLF - cCountry ;
      TYPE "QR-CODE" SIZE 100,100 PIXEL OF oDlg ;
      UPDATE

   @ 400,040 SAYBARCODE TEXT cName - "," - cCity ;
      TYPE "CODE128" SIZE 500,50 PIXEL OF oDlg UPDATE

   @ 480,040 SAY "CODE128" SIZE 520,24 PIXEL OF oDlg CENTER


   @ 650,350 SAY "Item : EAN13" SIZE 200,24 PIXEL OF oDlg CENTER

   @ 700,350 SAYBARCODE TEXT cItem ;
      TYPE "EAN13" SIZE 200,50 PIXEL OF oDlg UPDATE

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil
 

Code: Select all

#include "fivewin.ch"

REQUEST FWZEBRA

//----------------------------------------------------------------------------//

function Main()

   local oWnd, cText, cPrg := cFileSetExt( ExeName(), "prg" )

   cText    := MEMOREAD( cPrg )

   DEFINE WINDOW oWnd TITLE cPrg
   ACTIVATE WINDOW oWnd CENTERED ;
      ON PAINT oWnd:SayBarCode( cText, { 20,20,-20,-20 }, "QR-CODE" )

return nil

//----------------------------------------------------------------------------//
 

Code: Select all

      oBC:= VRDBarcode():New( oPrn:hDcOut ,AllTrim(cCodice),nRowBar,nColBar,nHeightBar,nWidthBar,cTipo, KColor,, .T. )
       oBC:lCircular:=.T.

        // semicircles
        oBC:aPartial := {l90g,l180g,l270g,l360g}
        oBC:nGradIni:=cGradIni
        oBC:nGradEnd:=cGradEnd

Code: Select all

oBC := VRDBarcode():New( oPrn:hDcOut ,AllTrim(cCodice),nRowBar,nColBar,nHeightBar,nWidthBar,cTipo,KColor,, .T. )
            oBC:lsquare:=.T.