XBROWSE autosort questions

[avista]

Hi,
I need help about:
1. How to focus column when click to sort that column. (by default if column 1 is focused and press autosort to column 3 ... column 1 stay focused)
2. How to go top or go bottom when click sort some column
3. SEEK options:
example if i have next values on some column

1312
1425
1500
2000

if i click 1, pointer go to 1312 seek(1)
if i click 4, pointer go to 1425 seek(14)
next if i click 2 pointer stay on 1425 (to start new seek i need to go row up or row down)

I need if next character nof found, seek to be reset and go to first value found with that charactes...
in this case to go to 2000

hope i explained understandable

Best regards

[ShumingWang]

fwh +harbour +tmysql

obrow:aCols[1]:bLClickHeader := {|r,c,f,o| ::Sto1210( o ) }
obrow:aCols[3]:bLClickHeader := {|r,c,f,o| ::Sto1210( o ) }
obrow:aCols[3]:bLClickHeader := {|r,c,f,o| ::Sto1210( o ) }
obrow:aCols[3]:bLClickHeader := {|r,c,f,o| ::Sto1210( o ) }

method sto1210(oCol) classs to12class
local aCols,cOrder,nFor,nLen
local nat,id1
aCols := oCol:oBrw:aCols
cOrder := oCol:cOrder
nAt := oCol:nCreationOrder
nLen := LEN(aCols)

for nFor := 1 to nLen
aCols[ nFor ]:nHeadBmpNo := 0
aCols[ nFor ]:cOrder := ""
next

do case
case nAt==1
id1:=::odb1:custid
::odb1:cQuery:="select * from custm1 order by custid"+if(corder=="A"," desc","")
::odb1:refresh()
::obrow:refresh()
::obrow:bseek:={|v|::odb1:SEEK(v,,{||::odb1:custid})}
::obrow:SEEK(id1)
case nAt==3
id1:=::odb1:custm
::odb1:cQuery:="select * from custm1 order by custm"+if(corder=="A"," desc","")
::odb1:refresh()
::obrow:refresh()
::obrow:bseek:={|v|::odb1:SEEK(v,,{||::odb1:custm})}
::obrow:SEEK(id1)
case nAt==5
id1:=::odb1:sales
::odb1:cQuery:="select * from custm1 order by sales"+if(corder=="A"," desc","")
::odb1:refresh()
::obrow:refresh()
::obrow:bseek:={|v|::odb1:SEEK(v,,{||::odb1:sales})}
::obrow:SEEK(id1)
case nAt==6
id1:=::odb1:addrc
::odb1:cQuery:="select * from custm1 order by addrc"+if(corder=="A"," desc","")
::odb1:refresh()
::obrow:refresh()
::obrow:bseek:={|v|::odb1:SEEK(v,,{||::odb1:addrc})}
::obrow:SEEK(id1)
endcase
if nat==1.or.nat==3.or.nat==5.or.nat==6
if cOrder == "" .or. cOrder == "D"
oCol:cOrder := "A"
oCol:nHeadBmpNo := 1
else
oCol:cOrder := "D"
oCol:nHeadBmpNo := 2
endif
end


return

[avista]

Sorry i dont understand
where can i find class to12class
usable sample PLEASE ?

Best Regards,

[ShumingWang]

You can replace the methods /class to functions .

Regards!
Shuming Wang