FiveTech Software tech support forums

... is very, very slow. In the forum I found this: Yes! You have to modify TWBrowse class - Method VScroll. Substitute ::Skip( nLParam - ::oVScroll:GetPos() ) with ( ::cAlias ) -> ( CmxKeyGoTo( nLParam ) ) or the xxxKeyGoto() function provided by your RDD. Is this still the way to solve the problem ...

... when dragging the scollbar cursor up and down. Yes! You have to modify TWBrowse class - Method VScroll. Substitute ::Skip( nLParam - ::oVScroll:GetPos() ) with ( ::cAlias ) -> ( CmxKeyGoTo( nLParam ) ) or the xxxKeyGoto() function provided by your RDD. TWBROWSE is a general CLASS to work ...

... set is still in place at this stage even though it is not reflected on the screen. 2. If that is the cause we can see from inserted calls to ::GetPos() that the select all effect has already taken place when we enter GotFocus() method. That very much suggests to me that we need to enforce a ...

Hi Antonio Whatever code is running between the GotFocus event and the KeyDown event. We seem to be able to ::SetPos() because ::GetPos() returns the set position. I confirmed this by changing GotFocus to ::SetPos( 1 ) and ::GetPos() then returned 1. I also changed to ::SetSel( 1, 2 ) ...

... read BROWSE. At this stage my best guess (could well be wrong) is that whatever is happening, it looks like it has to be in WinRun() because ::GetPos() reports 0 in GotFocus event but by KeyDown event its value has reverted. Couldn't see the source for WinRun() Regards Doug (xProgrammer)

... code (I can't work out how) might give some sort of solution. In the GotFocus event of the GET I can set the position to zero and confirm with ::GetPos() but you don't see it and then when you enter KeyDown GetPos() returns the original (end of string) value. This isn't how other GTK+ applications ...

... mean that the cursor goes to the end of the non-blank text. What I have done subsequently is to try to fix get.prg and gets.c. I have shown that ::GetPos() will return positions - but they seem to be lengths - ie reflecting cursor position is at the end. The GotFocus() method of class TGet is being ...

... GET objects. I want to be able to use blocked text. I believe that the ::SetPos() and ::SetSel() methods of class TGet actually work (certainly ::GetPos() works), but that some subsequent code (in GTK+ ?) is undoing their effect. I know that changing ::SetPos() to always set the position to 0 ...

... static function VScroll(nType,lPage, nSteps) local nYfactor, nYorig, nStep DEFAULT lPage := .F. if nType == GO_UP if oWnd:oVScroll:GetPos() <= oWnd:oVScroll:nMin return nil endif else if oWnd:oVScroll:GetPos() > oWnd:oVScroll:nMax return nil endif endif nYfactor := Int(DEVICE:nVertRes()/oWnd:oVScroll:nMax) ...

... ::lGoBottom:= .F. if ::oVScroll != nil If ::bLogicPos != Nil // By CeSoTech ::oVScroll:SetPos( _POSVSCROLL_ ) Else ::oVScroll:SetPos( ::oVScroll:GetPos() + nSkipped ) EndIf endif if ::lCellStyle If ( nAtCol:= ::nAtCol( nCol ) ) > 0 ::GoToCol( nAtCol ) EndIf endif ::DrawSelect() ::lHitTop = ...

Otto, if I'm not wrong:

oBrowse:nRowSel ==> current row selected
oBrowse:nColSel ==> current col selected


Regards,
Maurilio

Could someone tell me what the equivalent for the listbox syntax oLbx:GetPos() for xBrowser is?

Thanks in advance
Otto

In FiveWin I used oBrw:GetPos() as an index into an array which worked for browsing arrays. I hadn't worked out that the record pointer for a file browse was positioned at the highlighted record. Now I know.

Onto browsing arrays.

Thanks.

... Vertical Scroll Bar // ? ::oWnd:oVSCroll=NIL if ::oWnd:oVScroll != NIL // ? nV1,nV2 ::oWnd:oVScroll:SetRange( nV1,nV2 ) ::nVPos := ::oWnd:oVScroll:GetPos() ::oWnd:oVScroll:bGoDown := {|| ::VScroll() } ::oWnd:oVScroll:bGoUp := {|| ::VScroll() } ::oWnd:oVScroll:bPageUp := {|| ::VScrollPgUp() } ::oWnd:oVScroll:bPageDown ...

... "Sorry" ) else if ! lEditing oLbx:Add( xPadR( cName, 100 ) + Chr( 9 ) + cType + ; xPadL( Str( nLen, 3 ), 50 ) + xPadL( Str( nDec, 1 ), 20 ),; oLbx:GetPos() ) else oLbx:Modify( xPadR( cName, 100 ) + Chr( 9 ) + cType + ; xPadL( Str( nLen, 3 ), 50 ) + xPadL( Str( nDec, 1 ), 20 ) ) oBtnAdd:SetText( ...