.版本 2 .支持库 BmpOperate .支持库 iext2 位图.载入数据 (#图片1) 图片框1.图片 ＝ 位图.取位图数据 () .计次循环首 (位图.取高度 (), x) .计次循环首 (位图.取宽度 (), y) 处理事件 () 颜色 ＝ 到字节集 (位图.取某点颜色 (y, x)) .如果 (颜色 [1] ＜ 50) 文字 ＝ 文字 ＋ “ ” .否则 文字 ＝ 文字 ＋ “* ” .如果结束 .计次循环尾 () 文字 ＝ 文字 ＋ #换行符 .计次循环尾 () 超级编辑框1.内容 ＝ 文字