以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  求助  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=78696)
--  作者：orca8
--  发布时间：2015/5/18 11:20:41
--  求助
我想在 分时图 上双击 鼠标，出现十字光标后， 可以在 光标位置 显示 十字横坐标 所对应的价格。
--  作者：王锋
--  发布时间：2015/5/18 16:36:13
--  
现在十字光标上没有价格的吗？
--  作者：orca8
--  发布时间：2015/5/19 8:23:12
--  
不好意思， 因为在笔记本上，我把y坐标都去掉了。所以需要。
--  作者：yukizzc
--  发布时间：2015/5/19 9:11:29
--  
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))
end sub
--  作者：orca8
--  发布时间：2015/5/19 12:08:19
--  
能用， 有个小问题， 就是拖动的时候， 有残留的拖影。 有没有办法解决啊， 搞了下没搞定
--  作者：yukizzc
--  发布时间：2015/5/19 13:11:24
--  

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
--  作者：orca8
--  发布时间：2015/5/19 13:35:57
--  
感谢