... like hSetPos() for setting the horizontal scrollbar position, ScrollHorizontallyBy() for scrolling a certain number of pixels horizontally, GoLeft() and GoRight() for moving left and right, HScroll() for handling horizontal scroll events, and so on. Please note that these are general recommendations ...
... consider a logical Var that toggles this beheavior ? For this specific browse, maybe I can trap the cursor key value and process it to only do a goleft... goright with no processing ? Just thinking, but not able to do it.
Thanks, that works. The GoLeft has number 63234 and the GoRight has 63235. I use the bKeyDown on a window instead of a browse. The window that is opened has seven tabs and on 4 of them there are browses. It also works on Get's
Olá, com o uso de um timer e mais o uso de GoLeft, GoRight, vai conseguir o efeito desejado. #include "FiveWin.ch" function Main() local oWnd, oCF, obar DEFINE WINDOW oWnd FROM 2, 2 TO 40, 96 color CLR_BLACK, CLR_CYAN DEFINE BUTTONBAR ...
... end of Adjust() method if ::lLockFreeze ::nColSel := ::nFreeze + 1 endif 3. Go to METHOD GoLeftMost(). and find this line at the beginning ::nColSel := 1 Modify this line as: ::nColSel := If( ::lLockFreeze, ...
Adhemar. Prueba modificando el method GoLeft() de TxBrowse, de esta manera: METHOD GoLeft( lOffset, lRefresh ) CLASS TXBrowse ::CancelEdit() if ::nMarqueeStyle == MARQSTYLE_NOMARQUEE .or. ( ...
... la libreria. Otra manera, más sencilla es hacer una copia de la class txbrowse al directorio de tu aplicacion, y ahí sustituyes el METHOD Goleft() por el que te muestro mas abajo. En esto colaboramos Rolando y el suscrito, y posteriormente fue perfeccionado por Mr. Nages. Una vez sustituido ...
... , me he puesto a trabajar en una solución, la cual creo que he encontrado. La he probado bastante y no me ha dado ninguna falla. Ahora el Method GoLeft() Class TXBrowse, detecta si se está utilizando columnas congeladas, y se comporta como lo necesitamos. Si al avanzar hacia la derecha, se ocultan ...
... nRC := GetCursorPos() Local nRow := nRC[1] - oWnd:nTop - 4 IF nRow >25 .and. nRow <188 IF nDelta =120 //Rueda Gira hacia adelante oRbar:GoLeft() // Siendo oRbar el objeto ribbon ElseIf nDelta =-120 //Rueda Gira hacia atras oRbar:GoRight() ENDIF ENDIF Return nil Me cuentas como te resulto ...
I concur with Marcelo, bChange seems to be what you need. The Change() method is called from the GoUp(), GoDown(), GoLeft() and GoRight() methods. If you don't want bChange triggered when moving to another column, then check the value of lRow, it will be .F. when moving to a new ...
... If unicompra=0 //Por Defecto cuando es cero lo toma como uno aDatos[oBrw:nat,9]:=1 Else aDatos[oBrw:nat,9]:=uniCompra Endif oBrw:GoRight() oBrw:GoLeft() Endif SQL CLOSE xExi_Suc Else m_Codi:=LeerCodigo(oDlg,oBrw,aDatos) If ! EMPTY(m_codi) xExi_Suc:=oServer:Query("SELECT * FROM exi_suc Where ...
... ser usada desde funciones, no desde el método Paint(). Por favor, usa FWDispBegin() desde el método Paint(). * Mejora: Nuevos métodos KeyDown(), GoLeft() y GoRight() en la clase TRibbonBar. * Mejora: Se ha añadido soporte para hb_storvds() en xHarbour y versiones antiguas de Harbour. * Mejora: ...