colleagues there any command to display columns that are not visible without having to use the right arrow
thank you
Luiz Fernando
Hi, Luis.
This is just one example. You can improve it.
code]Regards.
This is just one example. You can improve it.
oBrw:bKeyDown:= {|nKey| if(cValToChar(nKey) $ "96;97;98;99;100;101;102;103;104;105" .and. GetKeyState(VK_CONTROL), SeekCol(nKey,oBrw) ,) }
//-----------------------------
FUNCTION SeekCol(nKey,oBrw)
local n, nCol
local aKeys:={96,97,98,99,100,101,102,103,104,105}
local aChrKeys:={"0","1","2","3","4","5","6","7","8","9"}
nCol:=aChrKeys[Ascan(aKeys,nKey)]
nCol:=Val(nCol)-1
oBrw:GoLeftMost()
For n:=1 to nCol
oBrw:GoRight()
Next
oBrw:Refresh()
Return nilcode]Regards.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Colleague thanks for the reply
with his example he goes straight for the end.
could not skip the middle image
thank you
Luiz Fernando
with his example he goes straight for the end.
could not skip the middle image
thank you
Luiz Fernando
Mr Luiz Fernando
I am not very clear what you want.
Please check if this is what you want
I am not very clear what you want.
Please check if this is what you want
oBrw:nColOffSet := oBrw:LastDisplayPos( .t. ) + 1
oBrw:Refresh()Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Luiz,
The example works well with the numeric keys on the right of the keyboard.
If you want to use the alpha-numeric keys, also, you have to add his char.
If for example you are in column 4, and press Ctrl + 7, the cursor is positioned in column 7.
This we use in some of my browsers.
Maybe for the super headers? This I not tried yet.
Regards.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Luiz,
Try this code more complete.
Regards.
Try this code more complete.
#include.....
Static nLapsus, cBusq
Function main()
GetData()
Return
function GetData()
nLapsus := Seconds(); cBusq:=""
define dialog.....
redefine oBrw....
....
....
oBrw:bKeyDown:= {|nKey| if(cValToChar(nKey) $ "96;97;98;99;100;101;102;103;104;105" .and. GetKeyState(VK_CONTROL), SeekCol(nKey,oBrw) ,) }
oDlg:End()
Return nil
//------------------------//
Function SeekCol(nKey,oBrw)
local cChar, nColBusc:=0,n
local aNKeys:={96,97,98,99,100,101,102,103,104,105,107,109,110}
local aChrNKeys:={"0","1","2","3","4","5","6","7","8","9","+","-","."}
If ( Seconds() - nLapsus ) > 2 .or. ( Seconds() - nLapsus ) < 0
cBusq := ""
EndIf
nLapsus := Seconds()
if Ascan(aNKeys,nKey) != 0
cChar:=aChrNKeys[Ascan(aNKeys,nKey)]
cBusq+= cChar
else
cBusq+= Upper(Chr(nKey))
endif
nColBusc := Val(cBusq)
oBrw:GoLeftMost() //col 1
For n:=1 to nColBusc - 1
oBrw:GoRight()
Next
oBrw:Refresh()
Return nilRegards.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
nageswaragunupudi, thanks for the feedback
Francisco, had ignored his response and test done only with the command oBrw: GoRight () now worked 100% thank you
Luiz Fernando