FiveTech Software tech support forums

... " (double) to ´ (Single) online while " make "red Color" in Source have test your Version but it still crash :( --- i use IF PCOUNT() > 0 to show that HB_FUNC() does work if NOT use SkinButtons() but when pass "any" Parameter, PCOUNT() > 0 , to enable CODE ...

Hola. usando harbour y Fwh la ultima. Me arroja estos errores: [1]:iLink32.Exe -Gn -q -aa -Tpe -x @testMaria.bcl Error: Unresolved external 'WinMain' referenced from X:\HARB\BCC7\LIB\C0W32.OBJ Error: Unresolved external '_hb_vmProcessSymbols' referenced from X:\PROYECTOS\TEST\MARIA\OBJ\MARIA.OBJ Err...

Ramón, Según esta documentacion de Microsoft: https://docs.microsoft.com/en-us/windows/win32/api/commdlg/ns-commdlg-openfilenamea hay que usar OFN_ENABLESIZING para poder redimensionar la caja de diálogo. Este valor lo recibe la función cGetFile() en el séptimo parámetro: DWORD dwFlags =...

Now I tried with ::oDtPick := MyCalendar():New( 30, 1, { | u | If( PCount()==0, ::dDateStart, ::dDateStart:= u ) }, nil,oPanel, 200, 160,,,,, .F.,, .T.,, .F., .F.,,,,,, .F., .T., .T., .F. ) ::oDtPick:bViewChanged := {|Self,nOld,nNew| iif(nNew<MCMV_YEAR,::SetCurrentView(MCMV_YEAR),) ...

... @ 40, 15 CALENDAR ::oDtPick VAR ::dDateStart OF oPanel PIXEL SIZE 220, 157 WEEKNUMBER DAYSTATE ::oDtPick := MyCalendar():New( 40, 10, { | u | If( PCount()==0, ::dDateStart, ::dDateStart:= u ) }, nil,oPanel, 700, 520,,,,, .F.,, .T.,, .F., .F.,,,,,, .F., .T., .T., .F. ) ::oDtPick:bViewChanged := ...

postinelli y karinha, gracias por responder

Pero la función pcount() cuenta los parámetros, pero como los capturo? cual es el array que cuenta?

Gracias

PCOUNT() Determine the position of the last actual parameter passed ------------------------------------------------------------------------------ Syntax PCOUNT() --> nLastArgumentPos Returns PCOUNT() returns, as an integer ...

PCOUNT()

... -4130 REQUEST DBFCDX REQUEST DBFFPT function Main() local oSay , ; oSay2 , ; cSay := "" , ; cSay2 := '' , ; oFont , ; oMenu , ; oIcon IF PCOUNT()<1 cDebug := "" ENDIF // Init... lAds := .F. Pbuild := "20190205-1634" cRdd1 := "DBFCDX" cString := "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ...

...     nRow  += 30   next  But this does not work. We get a runtime error. Reason: For every Get, its bSetGet codeblock is assigned with { |u| If( PCount() == 0, aValues[ n ], aValues[ n ] := u ) }. During runtime this codeblock is evaluated with the value of 'n', which is always nLen+1 and array ...

... := "", aReturn := {}, cDat1 := "", cDat2 := "", cDat3 := "", cToday := "", cYr, cMon, cDay IF PCOUNT()<1 cSqlTable := "" ENDIF AADD( aReturn, "" ) IF EMPTY(cSqlTable) RETURN aReturn ENDIF cSqlTable := UPPER( cSqlTable ) ...

... := "", aReturn := {}, cDat1 := "", cDat2 := "", cDat3 := "", cToday := "", cYr, cMon, cDay IF PCOUNT()<1 cSqlTable := "" ENDIF AADD( aReturn, "" ) IF EMPTY(cSqlTable) RETURN aReturn ENDIF cSqlTable := UPPER( cSqlTable ) ...

... "" , ; cSearchK := SPACE(40) , ; aSearch := {} , ; aGet[03] , ; cLb1 := 'File' // Client... _Client( cComp ) // Application call... IF PCOUNT()<2 MsgAlert( "Application Call not valid", PA[04] ) RETURN nil ENDIF // Index... IF ! NdxChk() QUIT ENDIF // Init... cLb1 := IF( ...

How I discovered it: function HB_CompileFromBuf() is declared in c:\harbour\src\compiler\hbcmplib.c and it makes this call: hb_compGenArgList( 2, hb_pcount(), &argc, &argv, &pIncItem, &pOpenFunc, &pMsgFunc ); Notice the 2. In hb_compGenArgList() we find this code:   if( pMsgF...

... Payment(<nLoan>,<nInterestRate>,<nPeriods>)->nPayment PCol()->nColumn PCount()->nLastArgumentPos Periods(<nLoan>,<nPayBack>,<nInterestRate>)->nDuration Pi()->nPi PosAlpha(<cString>,[<lNoAlpha>],[<nSkipChars>])->nPos ...