10-27-2016, 08:18 PM
(2) Sample routine to scroll down. It can be triggered in several ways, solving my current problem :
Function tempf
Trigger SF8
Any comments are mostly welcome.
Function tempf
Trigger SF8
str si.getmacro(getopt(itemid) 1)
str caller.getmacro(getopt(itemid 1) 1);err caller=si
if ideb; min 0; err out "<>%s : <open ''%s /%i''>%s</open> - Called by : <open>%s</open>%s" NowT si _error.place si caller
int w=wait(1 WV win("CNS Data Base :" "#32770"))
Acc a.Find(w "PUSHBUTTON" "Line down" "class=QM_Grid[]id=4" 0x1025 1)
err
,_s=F"{_error.description} : <c 172>Info</c> - Caller : <open>{caller}</open> "
,min 0; err out "<>%s : <open ''%s /%i''>%s</open> - %s" NowT si _error.place si _s
,mac "Warning_QM" si 0
,end
a.Mouse(0)
int x y cx cy
a.Location(x y cx cy)
mou+ 0 -(cy/2)-1
lef
Any comments are mostly welcome.