New samples/invoice.prg for next FWH build !

[Antonio Linares]

[TimStone]

That is interesting.

I am assuming that you are demonstrating functions we can use to create the invoices.

The samples are always helpful.

[ukservice]

Thank you.

Does it include a visual designer or just prints the invoice?.

[Antonio Linares]

Just prints it

[kajot]

when I compiling \samples\invoices.prg , got error

Type: C >>>xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:"S:\lib" -LIBPATH:"R:\lib" -LIBPATH:"R:\c_lib" -LIBPATH:"R:\c_lib\win" "invoices.obj" "s:\xhb2.obj" "xhb3.obj" "s:\obj\texplbar.obj" "FiveHCM.lib" "FiveHMX.lib" "OptG.lib" "xhb.lib" "dbf.lib" "nsx.lib" "ntx.lib" "cdx.lib" "rmdbfcdx.lib" "ct3comm.lib" crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib odbccp32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib msimg32.lib mpr.lib OleDlg.lib version.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:"invoices.exe"<<<

Creating object: invoices.EXP
Creating library: invoices.LIB
xLINK: error: Unresolved external symbol '_HB_FUN_DRAWTRANSPARENT referenced from (texplbar.obj)'.
xLINK: fatal error: 1 unresolved external(s).

Type: C >>>Couldn't build: invoices.exe<<<
Type: C >>>TMAKEPROJECT<<<
Type: C >>>TMAKEPROJECT:REFRESH<<<
Type: N >>> 1423<<<

[Antonio Linares]

Kajot,

Code: Select all  Expand view

// (c) FiveTech Software 2010, all rights reserved

// Similar functions to DrawBitmap( hDC, hBmp, nRow, nCol )
// but using certain painting effects
#define TRANSPARENT         0x1   //1
//----------------------------------------------------------------------------//

function DrawTransparent( hDC, hBmp, nRow, nCol )

   local hDCMem
   local hBmpOld
   local nZeroZeroClr

   hDCMem = CreateCompatibleDC( hDC )      
     
   // we can not get nZeroZeroClr from hDC is possible hDC are locked by other SelectObject
   // An application cannot select a bitmap into more than one device context at a time.  
   hBmpOld      = SelectObject( hDCMem, hBmp )
   nZeroZeroClr = GetPixel( hDCMem, 0, 0 )

   SelectObject( hDCMem, hBmpOld )
   DeleteDC( hDCMem )

   TransBmp( hBmp, nBmpWidth( hBmp ), nBmpHeight( hBmp ),;
             nZeroZeroClr, hDC, nCol, nRow, nBmpWidth( hBmp ), nBmpHeight( hBmp ) )

return nil

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