dim xx
dim yy
dim vv
sub Dynamic_CursorMove(Grid,Index,X,Y)
dim Date
dim Values
call Grid.ValueByPoint(x,y,Date,Values,true)
call Grid.DRAWTEXT(x, y-100, Values, RGB(240, 240, 240))
call Dynamic.Refresh()
xx=x
yy=y-100
vv=Values
end sub
sub Dynamic_Paint()
set Grid = Dynamic.GetGridByName("main")
call Grid.DRAWTEXT(xx, yy, vv, RGB(240, 240, 240))
end sub