... the dialog my combo-box scroll method looks like below. This works great. METHOD ComboWheel( nKeys, nDelta, nXPos, nYPos) CLASS TDComboBox LOCAL RETVAL, X LOCAL ODLG := SELF:OWND RETVAL := EVAL( ODLG:BMOUSEWHEEL, nKeys, nDelta, nXPos, nYPos ) RETURN RETVAL
... your Default Method ... RETURN NIL ******************************************************************* METHOD ComboWheel() CLASS TDComboBox LOCAL RETVAL, X altd( ) RETURN NIL ************************************************* the mouse wheel goes thru this function, but, it is
... opened within the class. REDEFINE BTNBMP RESOURCE "HROK" ID 2101 OF oDpw3 TOOLTIP "Use part" PROMPT "Use"; ACTION ( retval := ::invnum, oDpw3:end() ) NOBORDER TRANSPARENT REDEFINE XBROWSE oLpa ID 2100 OF oDpw3 ON DBLCLICK( retval := ::invnum, oDpw3:end() ) This is ...
... of 0. makes me think I'm not finding the function or something. do you have any tips since you've been successful with this tool library. LOCAL RETVAL := .f. LOCAL LICENSEKEY := NIL // due to no license key for demo = not sure how to pass NULL PRIVATE HDLL M->HDLL := LOADLIBRARY( M->CDLLNAME ...
... It appears that the process was completed by the DLL and the GPF occurs upon the RETURN of control from the DLL back to the CallDLL( ) function. retval := I2PDF_AddImage(alltrim( infile ) ) // processed ok retval := I2PDF_MakePDF( outfile, 0, @cBuffer , 300 ) // processed ok - created the .PDF ...
... But, I could NOT call the DLL after that, regardless of the function, parameters, etc. Regarding the function in question in prior postings ---- retval := I2PDF_License( "XXX-ZZZZ-AAAAA-BBBBBB-CCCCCCC" ) I successfully called the I2PDF_License( cString ) function, without the PASCAL ...
... license parameter for proper usage. i wonder if the "big string" has some sort of ramification? Is the definition of LPSTR appropriate? retval := I2PDF_License( "XXX-ZZZZ-AAAAA-BBBBBB-CCCCCCC" ) DLL STATIC FUNCTION I2PDF_License( cLicCode AS LPSTR) AS VOID ; FROM "I2PDF_License" ...
... News - Bad News Removing PASCAL from all calls results in: ************************************* -- pass an integer ( LONG ) parm - SUCCESS!!!! retval := I2PDF_SetDPI( 0 ) DLL STATIC FUNCTION I2PDF_SetDPI( nDpi AS LONG ) AS LONG; FROM "I2PDF_SetDPI" LIB hLib *********************************** ...
... to use ClipBoard copy/paste method. But then another problem rises ie, if the recordset contains numeric column, it errors out at line 9405 ie RetVal := AllTrim( Eval( ::bStrData ) ) // Alltrim will generate error. I found that the same problem exists in the Method To Excel() when the CopyFromRecordSet() ...
... el siguiente error: Error BASE/2022 Error de argumento: ALLTRIM La línea en la que se genera el error es la 7320 de xBrowse.Prg, esta es la línea: RetVal := AllTrim( Eval( ::bStrData ) ) Si en la definción del xBrowse cambio: oCol:bStrData := { || TABLA->FECMOV } Por oCol:bStrData := { || DtoC( ...
... Inkey(.5) Enddo Replace dgppea01->Impreso with .t. Commit unlock Return Nil ***************************** Function dia2dig(campo) local retval:='' local dctos:=Str(Day(campo),2,0) If Len(dctos) = 1 Retval:='0'+dctos +' de '+cMonth(campo) Else Retval:=dctos +' de '+cMonth(campo) EndIf ...