GET TBROWSE
Posted: Mon Jun 03, 2024 5:19 pm
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
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