首页 > 代码库 > 7.2.1 绘制元素

7.2.1 绘制元素

7.2.1 绘制元素


如同在第四章画饼图时那样,我们将使用标准 .NET 的 System.Drawin 库。这个示例演示使用前一节的表示方法,绘图极其简单,清单 7.6 中的函数核心只有几行代码,遍历列表中的所有元素,包含了绘制两种不同元素的代码。


清单 7.6 绘制使用平面表示的文档 (F# Interactive)


> let drawElements elements (gr:Graphics) =
     for p in elements do    [1]
       match p with
       | TextElement(text, boundingBox) –>
         let boxf = toRectangleF(boundingBox)  <-- 把 Rect 转换成 .NET RectangleF
         gr.DrawString(text.Text, text.Font, Brushes.Black, boxf)
       | ImageElement(imagePath, boundingBox) –>
         let bmp = new Bitmap(imagePath)    <-- 加载图像
         let wspace, hspace =
           boundingBox.Width / 10.0f, boundingBox.Height / 10.0f    |  [2]
         let rc = toRectangleF(deflate(boundingBox, wspace, hspace))  |
         gr.DrawImage(bmp, rc);;
val drawElements : seq<ScreenElement> -> Graphics –> unit


函数把特定的元素列表绘制到给定的图形(Graphics)对象上,第一个参数类型是 seq <ScreenElement>,表示包含 ScreenElement 类型值的任何集合。到目前为止,我们处理过的都是列表,在第十和十二章,会看到其他集合类型(如数组)。在代码中,我们只需要用 for 循环遍历集合中的元素,编译器能够推断出一般类型。类型 seq <‘a> 相当于 C# 中的泛型 IEnumerable<T>,因此,参数类型应该是 IEnumerable<ScreenElement>。
代码还使用了前一节处理 Rect 值的函数,用 toRectangleF 把 Rect 值转换成 DrawString 方法需要的类型,用 deflate 增加图像周围的空间。
绘图函数的另一个参数是图形对象,因此,需要某种方法创建。最后一步,我们将写代码来创建窗体,并把文档绘制上去。

7.2.1 绘制元素