屏幕画板工具/内存Gdi画板

功能说明：

1：可抓取屏幕或打开一个图片，F9抓取屏幕；

2：按住Shift键可画正方形，画线时可捕捉45度角和90度；

3：按住Ctrl键可从中心位置开始画；

4：按住空格键的同时拖动鼠标可移动正在绘制的图形；

5：滚动鼠标滚轮可放大或缩小橡皮擦；

6：键盘上加减键和鼠标滚轮可改变圆角矩形的圆角半径；

7：按Esc键清除画板，当前正在输入文字时会取消当前的输入；

8：Ctrl+C可以复制到剪贴板；

9：数字快捷键(1—8)选择画刷类型；

10：绘制工具有快捷键，和右键菜单中字母一致。

插入符位置_ (pot)
起点 ＝ 主画板.取写出位置 ()
隐藏光标_ (句柄)
所有行 ＝ 分割文本 (文字, #换行符, )
.如果 (取数组成员数 (所有行) ＞ 1) ' 剪贴板粘贴的可能是多行文本
主画板.写文本行 (文字)
pot2 ＝ 主画板.取写出位置 ()
SetCaretPos_ (pot2.X, pot2.Y)
.否则
主画板.写出 (文字)
pot.横向位置 ＝ pot.横向位置 ＋ 主画板.取文本宽度 (文字)
SetCaretPos_ (pot.横向位置, pot.纵向位置)
.如果结束
显示插入符_ (句柄)
.计次循环首 (取数组成员数 (所有行), jj)
文本_分割为单个字 (所有行 [jj], 一行)
.如果真 (取反 (重画文本))
加入成员 (写出文字, 一行)
.如果真结束
.计次循环首 (取数组成员数 (一行), ii)
.如果 (ii ＝ 1)
左_ ＝ 起点.X
.否则
左_ ＝ 左_ ＋ 宽_
.如果结束
rec_.左边 ＝ 左_
rec_.顶边 ＝ 起点.Y ＋ 字高 × (jj － 1)
宽_ ＝ 主画板.取文本宽度 (一行 [ii])
rec_.宽度 ＝ 宽_
rec_.高度 ＝ 字高
加入成员 (字框, rec_)
.计次循环尾 ()
.计次循环尾 ()
返回 (取数组成员数 (所有行))