Ir a No. de col deseada rapidamente /xbrowse

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Ir a No. de col deseada rapidamente /xbrowse
Posted: Mon Aug 05, 2013 08:29 PM

Amigos, aqui un pequeño aporte. Espero les sea de alguna utilidad en xBrowse.
Se trata de ir inmediatamente a la col deseada segun su posicion. Manteniendo presionada tecla CTRL se digia el No. de columna y... zas.

Code (fw): Select all Collapse

#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) ,) }

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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FiveTech Support Forums

Continue the discussion