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 增加图像周围的空间。
绘图函数的另一个参数是图形对象，因此，需要某种方法创建。最后一步，我们将写代码来创建窗体，并把文档绘制上去。