WideStudio/MWT Programming Guide	WideStudio/MWT Index Table of contents

---

绘图区域

---

在绘图区域中绘图

通过绘图区域(WSCvdrawingArea 类)，可以自由地绘画图形。 绘图区域中，可以通过各种绘画用方法进行绘画。 以下的范例程序中，显示了在绘图区域中使用的基本绘画方法。

(*----------------------------------------------------------*)
(*Function for the event procedure                          *)
(*----------------------------------------------------------*)
open Swig
open Mwt
open Mwtlib
let drawep obj =

  obj->setForeColor("#ff0000");  (* A *)
  obj->drawLine(0,0,100,100);    (* B *)

  ()
let _ = Callback.register "drawep" drawep

使用绘图区域类方法 (A) 指定绘图颜色。(B) 从坐标(0,0)到坐标(100,100)间画线。

在绘图区域，除了使用画线方法以外，还有下面的方法。

矩形绘画

圆，圆弧，椭圆的绘画

多边形的绘画

图象的绘画

---

在绘图区域绘制图象

使用 drawImage 方法或 drawStretchedImage 方法函数显示图象。 drawStretchedImage 方法不像drawImage 方法那样将图片原封不变地直接表示， 而是可以进行尺寸扩大或缩小后显示图象。

(*----------------------------------------------------------*)
(*Function for the event procedure                          *)
(*----------------------------------------------------------*)
open Swig
open Mwt
open Mwtlib
let drawep obj =
  let w = obj -> getProperty("width") in
  let h = obj -> getProperty("height") in
  obj -> drawStretchedImage(0,0,(w->getLong()),(h->getLong()),"001.jpg"); (* A *)

  ()
let _ = Callback.register "drawep" drawep

在A处，按照绘图区域的尺寸显示图象。