主题：画线问题请教

以下是引用admin在2010-7-20 17:55:10的发言：

TopHeight         当前窗格上边距高度，以象素表示，该边距通常用来显示公式数据，可读写。

LeftWidth         当前窗格左边距宽度，以象素表示，该边距通常用来显示左Y坐标，可读写。

RightWidth        当前窗格右边距宽度，以象素表示，该边距通常用来显示右Y坐标，可读写。

BottomHeight      当前窗格下边距高度，以象素表示，该边距通常用来显示X坐标，可读写。

 

将上述属性考虑进去即可。

 

Sub Technic_Paint()
     set Grid = technic.ActiveGrid
     start_x = Grid.PelsByPos(3600,false)
     start_y = Grid.PriceToPels(5.20)

     end_x = Grid.PelsByPos(3660,false)
     end_y = Grid.PriceToPels(4.20)

 

     if end_x > Grid.Width - Grid.RightWidth then

        end_x = Grid.Width - Grid.RightWidth

     end if

    '其他限制代码，自己加上去即可
 
     call Grid.DrawLine (start_x, start_y, end_x, end_y)  

End Sub

版主，这种方式不行哦，X轴坐标变化了，其相对应的Y轴坐标没有变，当将整幅K线图形向右移动过程中，那画出的线的位置是不断变化的。即：整幅K线图形向右水平移动到右边界，继续右移时，所画线的初位置（start_x, start_y）变化,而末位置（ end_x, end_y）不变。