FiveTech Software tech support forums

... if GetKeyState( VK_CONTROL ) ::GoTop() else ::PageUp() endif case nKey == VK_NEXT ::cBuffer:= "" if GetKeyState( VK_CONTROL ) ::GoBottom() else ::PageDown() endif case ::bSeek != Nil .and. !::lWorking .and. nKey == VK_BACK ::lWorking:= .T. ::cBuffer := SubStr( ::cBuffer, 1, Len(::cBuffer) - 1 ...

Enrico,

> Try to press PAGEDOWN and then PAGEUP: the scrollbar should go back to the top but it doesn't.

In Vista is working fine without modifying the method. Going to try it in XP (edited: same behavior in XP).

How many records Test.dbf has ? (Here just 2).

... DIALOG oDlg @ 0, 0 LISTBOX oBrw FIELDS ACTIVATE DIALOG oDlg; ON INIT oDlg:SetControl( oBrw ); CENTER CLOSE RETURN NIL Try to press PAGEDOWN and then PAGEUP: the scrollbar should go back to the top but it doesn't. EMG

... 30, Time() ) ; ON DOWN oWnd:Say( 4, 30, "Hello!" ) ; ON PAGEUP MsgInfo("Página Arriba") ; ON PAGEDOWN MsgInfo("Página Abajo") ACTIVATE WINDOW oWnd return nil //----------- Hace que el msginfo del pageup o pagedown entre en ...

Enrico,

Do you mean that the first pagedown click after the drag & drop, does not respond ?

Are these functions ready? Regards Otto oWnd:line() ACTIVATE WINDOW ON PAINT ON PAGERIGHT ON PAGELEFT ON RIGHT ON LEFT ON UP ON DOWN ON PAGEUP ON PAGEDOWN oWnd:brClicked oWnd:bLClicked oWnd:bLButtonUp oWnd:bMMoved

... CODE 0006:DE4E 000C8H KEYCHAR CODE 0006:DF16 00150H KEYCHAR CODE 0006:E066 00295H PAGEUP CODE 0006:E2FC 000DCH PAGEUP CODE 0006:E3D8 003B3H PAGEDOWN CODE 0006:E78C 000D5H PAGEDOWN CODE 0006:E862 0036BH VSCROLL CODE 0006:EBCE 00122H VSCROLL CODE 0006:ECF0 000E9H VSCROLL CODE 0006:EDDA 0018AH ...

... CODE 0006:E06A 000C8H KEYCHAR CODE 0006:E132 00150H KEYCHAR CODE 0006:E282 00295H PAGEUP CODE 0006:E518 000DCH PAGEUP CODE 0006:E5F4 003B3H PAGEDOWN CODE 0006:E9A8 000D5H PAGEDOWN CODE 0006:EA7E 0036BH VSCROLL CODE 0006:EDEA 00122H VSCROLL CODE 0006:EF0C 000E9H VSCROLL CODE 0006:EFF6 0018AH ...

... vez, es posible decirle que muestre los primeros 100 y luego los demás ?, es decir que muestre inmediatamente los 100 primero y cuando le de un pagedown, keydown entonces muetre los demas registros ? xHarbour + FW24 + ADS Local (En este caso) Saludos y espero haberme explicado Joel Andujo

... == VK_PRIOR if GetKeyState( VK_CONTROL ) ::GoTop() else ::PageUp() endif case nKey == VK_NEXT if GetKeyState( VK_CONTROL ) ::GoBottom() else ::PageDown() endif otherwise return Super:KeyDown( nKey, nFlags ) endcase return 0

... KEYCHAR CODE 0005:89CA 00238H PAGEUP CODE 0005:8C02 00110H PAGEUP CODE 0005:8D12 000DCH PAGEUP CODE 0005:8DEE 00285H PAGEUP CODE 0005:9074 00355H PAGEDOWN CODE 0005:93CA 00110H PAGEDOWN CODE 0005:94DA 000D5H PAGEDOWN CODE 0005:95B0 00353H PAGEDOWN CODE 0005:9904 00320H VSCROLL CODE 0005:9C24 000E3H ...

... ) != "ARRAY" ( ::cAlias )->( dbgoto( nRecNew ) ) else ::nAt := nRecNew endif endif endif return( NIL ) And in GoUp, GoDown, LButtonDow, PageDown I added this method after ::DrawSelect() . In mentioned methods two vars added : local nRowPrv := ::nRowPos local nRecPrv := if( upper( ::cAlias ...