点击或拖拽改变大小

Pen 类

X#
创建一个笔，它可以用来以特定颜色、样式和宽度绘制线条。笔由 Window:LineTo() 方法和 DrawObject 层次结构使用。
继承层次
Object
  VObject
    Pen

命名空间：  VO
程序集：  VOGUIClasses (在 VOGUIClasses.dll 中) 版本：2.22 GA
语法
复制
 CLASS Pen INHERIT VObject
查看代码

Pen 类型公开以下成员。

构造函数
  名称说明
公共方法Pen
构造一个笔。
Top
方法
  名称说明
公共方法Destroy
提供一种方法来取消实例化一个 Pen 对象。
(重写 Destroy.)
公共方法Handle
返回一个笔的句柄。
Top
字段
  名称说明
公共字段oCargo
Cargo slot.
(继承自 VObject。)
Top
备注
X# 提供了一组预定义的笔，这些笔在 Pen:Init() 方法中指定(使用默认颜色和宽度)。此外，如果需要，还可以通过指定颜色、线样式和宽度来创建笔。 每个窗口都有一个当前笔，可以使用 Window:Pen 属性设置或更改。窗口的笔在后续的线条和矩形绘制操作中使用，并且在它是当前选择时不应该被删除。
示例
以下示例创建一个笔并绘制一条线：
X#
复制
1oMyPen      := Pen{Color{COLORRED}, LINESOLID, 1}
2oOldPen     := oMyWin:Pen
3oMyWin:Pen  := oMyPen
4oMyWin:MoveTo(Point{100,100})
5oMyWin:LineTo(Point{200,100})
6oMyWin:Pen  := oOldPen
参见