以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  显示坐标  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=88947)
--  作者：orca8
--  发布时间：2015/12/28 21:08:43
--  显示坐标
我想在鼠标指针的边上 显示当前的坐标x，y
--  作者：yukizzc
--  发布时间：2015/12/29 11:30:51
--  

//您看下，这个之前我用来在分时图显示价格的

 

dim xx
dim yy
dim vv

set Grid = Dynamic.GetGridByName("main")

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))
    xx=x
    yy=y-100
    vv=Values
end sub

 

sub Dynamic_Paint()
call Grid.DRAWTEXT(xx, yy, vv, RGB(240, 240, 240))
end sub