GET TBROWSE

[medhome]

Hi All,

Having Problem using harbour/clipper programming getsys procedure with tbrowse class.

I tried the peace of code below using harbour programming language.

oG:=nil
otb1:=tbrowse(0,0,10,10)
otb1:cargo:='_1'
otb1:border:=B_SINGLE

@ 1,0,10,maxcol() GET oG tbrowse otb1 when {|c|getAlias(c)}

read
Return

FUNCTION getAlias(ctrl)
LOCAL objGet
objGet := GETACTIVE(ctrl)
@0,0 SAY CTRL:CONTROL:CARGO
return .t.

I noticed that the function getAlias is not fired when i click on the border of tbrowse but does it inside the tbrowse. I expected that the border is a hotzone also?

Any Idea

[robert]

Medhome,
I think you will more luck with this question on the Harbour Newsgroup:
https://groups.google.com/group/harbour-users

Robert