FiveTech Software tech support forums

... + 1 lOk := .f. cHType := ValType( uVar ) IF oBrw:lCellStyle .And. nCol != oBrw:nColAct oBrw:nColAct := nCol If oBrw:oHScroll != nil oBrw:oHScroll:SetPos(nCol) Endif oBrw:Refresh(.F.) ENDIF DEFINE DIALOG oDlg FROM aDim[ 1 ], aDim[ 2 ] TO aDim[ 3 ], aDim[ 4 ] ; STYLE nOR( WS_VISIBLE, WS_POPUP ) ...

Gracias por responder, no me estaba funcionando el timer, lo declare así: ACTIVATE DIALOG oDlg ON INIT ( oDlg:SetPos( 0, 0 ), oDlg:nWidth := GetSysMetrics( 0 ), oDlg:nHeight := GetSysMetrics( 1 ), BuildTimer( oDlg, obrow )) function BuildTimer( oDlg, wobrow ) local oTmr DEFINE ...

... procedure 2 and 3 I use the same meter (oProgress) for procedure 1 local nPos := 1 local bprogress := { || (oProgress:Set( npos++ ),; //oProgress:SetPos( npos++ ),; oSay[3]:SetText(ltrim(str(npos))),; oSay[3]:refresh(),; SysRefresh() ) } ... oProgress:ntotal:= len(aData) nMeter:=0 oProgress:set(nMeter) ...

thanks cnavarro,

oGet:bGotFocus := { || oGet:nPos := Len( oGet:GetText() ) + 1, oGet:SetPos( oGet:nPos ) }

where should I put on this control statement

... for RbDown i found this   oCbx:bRClicked = { | nRow, nCol | EditControl( nRow, nCol, oCbx ) } You don't need to use Select() nor SetPos() with Comboboxes. And commands are the best option in 99% of code. Commands are far more readable and maintainable than functions. this is while ...

Please, always post a complete sample of the problem. You don't need to use Select() nor SetPos() with Comboboxes. And commands are the best option in 99% of code. Commands are far more readable and maintainable than functions.

Dear Hua,

Using VB they solve it this way:
Text1.SelStart = len(Text1.Text)

Have you tried oMultiGet:GoBottom() ?

Also you could try oMultiGet:SetPos( Len( oMultiGet:cText ), Len( oMultiGet:cText ) )

...     SetProperty( cForm, cName ,"FONTSIZE",nFont*yFactor)   NEXTRETURN --- i found :SetSize() but no :SetPos() :( what shell i use :?: SetWindowPos( oObj:hWnd, HWND_TOP, X, Y, Width, Height ) or SetBounds( X, Y, Width, Height ) --- PROCEDURE ...

When I make a conversion I use local bprogress := { || ( oProgress:SetPos( npos++ ),; SysRefresh() ) } oProgress:SetRange( 0, (len(aData)/1000) ) oProgress:SetPos( 0 ) oLotto2:fw_ArrayToDBF( aData,,bProgress) aData is big https://i.postimg.cc/d3Zc418S/gg.png ...

... oProg2:SetStep( 1 ) ) return nil function Increase( oProg1, oProg2 ) local n for n = 1 to 168 // 111 // oProg1:StepIt() // oProg2:StepIt() oProg1:SetPos( n ) oProg2:SetPos( n ) Sleep( 50 ) SysRefresh() next

... while and change the text on a msgitem at left you'll see the progress at right the text on the msgitem Do While !::oDbf:Eof() .... ::oBarProgress:SetPos( ::oBarProgress:nPos + 1 ) ::oTabItem1:SetText( tran(::oBarProgress:nPos,'999999')+" di "+; tran(::oDbf:KeyCount(),'999999')) ::oWinTabellone:oMsgBar:Refresh() ...

... "DBFCDX", .T. ) oDbf:setorder(1) oDbf:gobottom() nFine:= oDbf:recno() oScrollDbf:bPOS = { | nPos | (oDbf:GoTo( nPos ),; oScrollDbf:SetPos( nPos ),; oScrollDbf:refresh(),; Rinfresca(oDbf,oBrw,oSay)) } and then ACTIVATE DIALOG oDlg CENTERED ; ON INIT ( oScrollDbf:SetPos(nFine ), <------------------ ...

Dear Silvio, This way it works as expected: oScrollInizio:bPOS = { | NPOS | (oDbf:GoTo( nPos ), oScrollInizio:SetPos( nPos ), Rinfresca(oSay,oDbf)) } // oScrollInizio:bTRACK = { | NPOS | msgstop( 'btack block' ) } I cannot Move it with the mouse it remains all to the left

Dear Silvio,

This way it works as expected:

oScrollInizio:bPOS = { | NPOS | (oDbf:GoTo( nPos ), oScrollInizio:SetPos( nPos ), Rinfresca(oSay,oDbf)) }
// oScrollInizio:bTRACK = { | NPOS | msgstop( 'btack block' ) }

... the thumbpos is not in the right position, and I don't know how to set the thumbpos command !! I add oScroll:SetPos(oDbf:RECNO() ) but not run ok