FiveTech Software tech support forums

... SaveToken()->cGlobalTokenEnv Scroll([<nTop>],[<nLeft>],[<nBottom>],[<nRight>],[<nVert>],[<nHoriz>])->Nil Seconds()->nSeconds SecondsCpu([<nWhichTime>])->nSeconds SecondsSleep(<nSeconds>)->Nil Secs(<cTime>|<dDateTime>)->nSeconds ...

... SaveToken()->cGlobalTokenEnv Scroll([<nTop>],[<nLeft>],[<nBottom>],[<nRight>],[<nVert>],[<nHoriz>])->Nil Seconds()->nSeconds SecondsCpu([<nWhichTime>])->nSeconds SecondsSleep(<nSeconds>)->Nil Secs(<cTime>|<dDateTime>)->nSeconds ...

Gracias Carlos por tu ayuda. Los parámetros los pasaría desde un prg, logicamente con los mismos parámetros que tiene la función en C. pnpoly ( nVert, aVertX, aVertY, nTestX, nTestY) donde nvert es un número entero, aVertY y AvertX array y nTestX - nTestY número con 6 decimales. He incluido los ...

... por contestar. Yo tengo puesto este código: #pragma BEGINDUMP #include <windows.h> #include <hbapi.h> HB_FUNC( PNPOLY ) int pnpoly(int nvert, float *vertx, float *verty, float testx, float testy) // AQUI DA EL ERROR { int i, j, c = 0; for (i = 0, j = nvert-1; i < nvert; j = i++) ...

... alma caritativa podría pasarme esta función a "C" con Pragma Begindump. Lo he intentado yo solito, pero no funciona. int pnpoly(int nvert, float *vertx, float *verty, float testx, float testy) { int i, j, c = 0; for (i = 0, j = nvert-1; i < nvert; j = i++) { if ( ((verty[i]>testy) ...

... it with a defined Size. Optional : hBmp = ResizeImg( aBmpPal[ 1 ], nWidth, nHeight ) DeleteObject( aBmpPal[ 1 ] ) or : oBitmap:SetSize( nHORZ, nVERT ) As well I could use it for the Browser-Previews. For the moment, I capture the Screen and cut off the no needed area. The Screenshot explains, ...

... have to remember that each printer may have a different resolution. You can get the printer's resolution like this: nHorz := oRpt:oPrn:nHorzRes() nVert := oRpt:oPrn:nVertRes() When you are using nRow + 100, that is 100 pixels and 100 pixels on your printer is not the same as 100 pixels on a printer ...

... si da 0 debería ser porque no hay ninguna impresora activa Sino a lo mejor con: LOCAL hDCP := GetPrintDefault(GetActiveWindow()) LOCAL nvert := GetDeviceCaps(hDCP,6) <------------- largo de pagina en mm LOCAL nHorz := GetDeviceCaps(hDcp,4) <------------- ancho de pagiina en mm ...

... está encendida y también mientras la impresora está apagada. Pero cada vez que la función está volviendo diferentes valores También he intentado nVert: = GetDeviceCaps(HDCP, 6) nHorz: = GetDeviceCaps(HDCP, 4) nVert y nHorz es siempre dar el mismo resultado. No cambia como ...

... si da 0 debería ser porque no hay ninguna impresora activa Sino a lo mejor con: LOCAL hDCP := GetPrintDefault(GetActiveWindow()) LOCAL nvert := GetDeviceCaps(hDCP,6) <------------- largo de pagina en mm LOCAL nHorz := GetDeviceCaps(hDcp,4) <------------- ancho de pagiina en mm ...