FiveTech Software tech support forums

... to what I described before: Define a horizontal scrollbar in addition to the vertical one. This would be similar to the line DEFINE SCROLLBAR ::oVScroll VERTICAL OF Self RANGE 1,2, but with HORIZONTAL instead of VERTICAL. Adjust the SetRange() method to set the range of the horizontal scrollbar ...

hi Natter, Here I need the owner of the oVScroll object. perhaps this Method can help METHOD GetScrollbarObj( oSelf, lVScroll ) CLASS TGridLOCAL oObj, cTitle := ""LOCAL hWnd := 0   DEFAULT oSelf := SELF   DEFAULT lVScroll := ...

... ;          {||self:=HB_QSelf(),val(::cText())<=1}) However, this will not work because self is an oVScrolls object (see method :Spinner). Here I need the owner of the oVScroll object. Of course, this problem can be solved by writing your own version ...

Just define the needed position from inside the used DBF
and not from a defined xBrowse row-position like :

activate dialog oDlg centered ;
on init DBGOBOTTOM() // seek or anything else

// on init ( oBrw:VGoBottom(), oBrw:oVScroll:SendMsg( VK_DOWN ) )

regards
Uwe

Buenos dias: Pues he dado una solución a este problema. No sé si es la más ortodoxa, pero a mi me vale: ::oVScroll:bGoUp = {|| ::VScrollSkip( - 10 ) } ::oVScroll:bGoDown = {|| ::VScrollSkip( 10 ) } // ::oVScroll:bPageUp = {|| ::VScrollSkip( - ::oVScroll:nPgStep ) } // ::oVScroll:bPageDown ...

... on the image On old test ( with Image class) @ 0, 0 XIMAGE oImage SIZE 280, 200 OF oCattura oImage:bLClicked = { | nRow, nCol | MouseDown( oImage:oVScroll:GetPos()+nRow, oImage:oHScroll:GetPos()+nCol) } then I cannot converte this command "oImage:oVScroll:GetPos()+nRow" run good with ...

... run) #include "fivewin.ch" #include "constant.ch" #define WS_VSCROLL 2097152 // 0x00200000L Function test() Local oDlg,oFolder,oVScroll Local nBottom := 33 Local nRight := 115 Local nWidth := Max( nRight * DLG_CHARPIX_W, 180 ) Local nHeight := nBottom * DLG_CHARPIX_H local noption ...

Xevi, > Control de los SCROLLS Tienes que programarlo. Ejemplo (busca en FWH/samples por *.prg conteniendo PAGEUP): ::oWnd:oVScroll:SetRange( nV1,nV2 ) ::oWnd:oVScroll:bGoDown := {|| ::VScroll() } ::oWnd:oVScroll:bGoUp := {|| ::VScroll() } ::oWnd:oVScroll:bPageUp := {|| ::VScrollPgUp() ...

AntoninoP wrote:You are right, the crash is pressing CTRL+C and CTRL+R.
Maybe i was trying to copy the cell value

Yes. When we try to copy cell value with Ctrl-C and oVScroll is nil. we get into this error.
We now removed these two lines.

... in my tests. K_PGUP and K_PGDN are defined in Inkey.ch. Pressing Ctrl-R or Ctrl-C execute these lines of code and can result in runtime error when oVScroll is nil. This is a legacy code from the time xbrowse was first created and does not serve the intended purpose any more. Right fix is to remove ...

... el metodo setPos para que haga algo o que llame a una funcion que no haga nada o algo que tu necesites con lo que evitara el if y el error: IF ::oVSCroll # NIL ::oVSCroll:SetPos( nPos ) ENDIF pasaría a ::oVSCroll:SetPos( nPos ) siempre... Si eres de Sevilla podríamos que dar algún día o llamarnos ...

... no va a afectar sensiblemente el resto del proceso, seguramente hay muchos puntos más importantes con más peso en el proceso. De echo    IF ::oVSCroll # NIL       ::oVSCroll:SetPos( nPos )    ENDIF es MUCHO más rápido que EVAL(::bVSCRoll) Ya que SI o SI pones Eval y el codeblock ...

... que pulso una tecla tengo que controlar si el SCROLL está visible o no (existe o no existe). Supone una buena cantidad de líneas como esta: IF ::oVSCroll # NIL   ::oVSCroll:SetPos( nPos )ENDIF En principio lo solucioné añadiendo un DATA a mi CLASE "::bVSCRoll" que defino como:::bVSCRoll ...

... del Scroll, no sabría como hacerlo. Yo lo he solucionado NO definiendo mi control con estilo WS_VSCROLL, sino creando uno propio con @y,x SCROLL oVSCroll ..... SIZE nWidth,nHeight VERTICAL y así lo controlo yo. Lo quito y lo pongo cuando creo necesario. Lo quito destruyéndolo oVSCroll:End(); ...

... con los scrolls dimensionados con SetScrollInfo(), es que cuando movemos el scroll con el thumb para saber su posición máxima me sirve el nuevo oVSCroll:nMax (que es el antiguo nMax + nPgStep), pero cuando movemos el Scroll con los demás controles hay que utilizar el nuevo nMax-nPgStep, es decir ...