FiveTech Software tech support forums

... RangeRepl(<cRangeStart>,<cRangeEnd>,<cString>,<cReplace>)->cResult RAscan(<aArray>,<xbSearch>,[<nStart>],[<nCount>],[<lExact>],[<lASCII>])->nElement RAt(<cSearch>,<cString>,[<nStart>],[<nEnd>])->nPos ...

... ADSStmtSetTableReadOnly(<nMode>)-><lSuccess> AEval(<aArray>,<bBlock>,[<nStart>],[<nCount>])->aArray AFields([<aFieldsnames>],[<aTypes>],[<aWidths>],[<aDecimals>])->nFields AFill(<aTarget>,<expValue>,[<nStart>],[<nCounts>])->aTarget ...

... function extractonline()   local aMails:={}   LOCAL cRegEx := "[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}"   LOCAL cEmail, nStart, nLen   Local cText  := "Send your request to 'mailto:info@dbm-essen.be>info@dbm-essen.be '" + ;                      "for ...

In Harbour
AT( cSearch, cString ) --> nAt

or

HB_AT( cSearch, cString, nStart, nEnd ) --> nAt

... tab do case case ::nOrientation <= OR_BOTTOM DrawTextEx( ::hDC, cPrompt ,; { If( LargeFonts(), 1, 8 + If( ::nOrientation == OR_TOP, 1,0 ) ),; nStart + 15 + nBmpWidth, ; ::nHeight, nStart + 20 + nWidth - 15 },; nOr( DT_LEFT, DT_VCENTER ) ) /* codigo original DrawTextEx( ::hDC, cPrompt ,; { ...

En Harbour solo admite dos parámetros para mantener su compatiblidad con Clipper, pero dispones de la función hb_At( <cSearch>, <cString>, [<nStart>], [<nEnd>] ) --> nPos

... COLORSEL> <nClrBoxSelOut>,<nClrBoxSelIn> ] ; [ <l2010: 2010, _2010> ]; [ <l2013: 2013, _2013> ]; [ STARTBTN <nStart> ]; [ <l2015: 2015, _2015> ]; - Bug Fixed: when style is 2013 or 2015 and STARTBTN <> 0, folder say with white color * XBrowse: ...

James, Please modify nStart this way: Local nStart := 0 and to set the 2013 style, please do it this way:   oBar=TRibbonBar():New( oWndMain, aRibbonMenu, ,nOption ,;               oWndMain:nWidth, nHeightRib, 26, , , ,;  ...

... text on a gray background. But one of Cristobal's screenshots shows them white text on a blue background. Maybe that has something to do with the nStart value? What is the nStart value? Is there documentation on the ribbonbar somewhere? James

... I tried with : tribbon of fwh 16.02 ---> not run tribbon of fwh 16.01 ---> not run tribbon of fwh 15.01 ---> not run the bug is Local nStart:= 1 if nStart:= 0 seem to run and each tab become as nstart but I wish nstart = 1

... Local nHeightRib:=130 Local oGr1,oGr2,oGr3,oGr4,oGr5,oGr6,oGr7,oGr8,oGr9 Local nOption:= 1 Local nStart:= 0 Local oHand:= TCursor():New(,'HAND') oBar=TRibbonBar():New( oWndMain, aRibbonMenu, ,nOption ,; oWndMain:nWidth, nHeightRib, 26, , , ,; , ...

pls try //2007 oBar=TRibbonBar():New( oWndMain, aRibbonMenu, ,nOption ,; oWndMain:nWidth, nHeightRib, 26, , , ,; , , , , , , .F., nStart,.f. ) or //2013 oBar=TRibbonBar():New( oWndMain, aRibbonMenu, ,nOption ,; oWndMain:nWidth, nHeightRib, 26, , , ,; , , , , , , .F., nStart,.t. ) or // ...

Quizás esta funcion te sirva

AScan(<aTargets>, <expSearch>, [<nStart>], [<nCount>],[<lExact>], [<lASCII>]) -> nStoppedAt

... cExp LIKE cPatern|RegEx => bLike As well as full featured Functions: HB_Atx( <cRegEx>, <cTargetString> [, lCaseSensitive [, [@]nStart ] [, [@]nLen ] ] ] ) => cFoundText RegexComp( cPattern, [bCaseSens [, bNewLine]] ) --> REGEX HB_Regex( cPattern, cString, [bCaseSens, [, ...

... Please reconsider. Our code "if Empty( c )" works properly. Suggestion-3: //  lRet  := ( oQry:Seek( c, cSortOrder, nStart - 1, oQry:LastRec(), .T., .T. ) != 0 )       lRet  := ( oQry:Seek( c, cSortOrder, nStart, oQry:LastRec(), ...