xbrowse

[Luisão PITBULL]

colleagues there any command to display columns that are not visible without having to use the right arrow


thank you

Luiz Fernando

[FranciscoA]

Hi, Luis.
This is just one example. You can improve it.

Code: Select all  Expand view

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 nil
 

code]Regards.

[Luisão PITBULL]

Colleague thanks for the reply


with his example he goes straight for the end.




could not skip the middle image


thank you

Luiz Fernando

[nageswaragunupudi]

Mr Luiz Fernando

I am not very clear what you want.
Please check if this is what you want

Code: Select all  Expand view

oBrw:nColOffSet := oBrw:LastDisplayPos( .t. ) + 1
oBrw:Refresh()

[FranciscoA]

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.

[FranciscoA]

Luiz,
Try this code more complete.

Code: Select all  Expand view

#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 nil

 

Regards.

[Luisão PITBULL]

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