人家很实干的,看看下面的源代码,真实了不起 :-) 


所有跟贴·加跟贴·新语丝读书论坛

送交者: home 于 2008-04-25, 02:49:12:

回答: 全无敌[ZT]汉语编程:令老美深感“来自中国的恐慌” 由 Dondrup 于 2008-04-25, 00:37:11:

代码:
扩展对象 自定义窗口  继承自 窗口对象模板

建词 线段缓冲 10  8 * 字节空出

建词 属性缓冲 10      字节空出

编 点X写入   ( X 点 --- )   1- 8 *     线段缓冲 +  写 。

编 点Y写入   ( Y 点 --- )   1- 8 * 4 + 线段缓冲 +  写 。

编 点属性写入   ( 属性 点 --- )  1-   属性缓冲 +  字节写  。

编 置坐标点

   100 1  点X写入 10  1  点Y写入  PT_MOVETO    1  点属性写入

   50  2  点X写入 177 2  点Y写入  PT_LINETO    2  点属性写入

   150 3  点X写入 270 3  点Y写入  PT_LINETO    3  点属性写入

   125 4  点X写入 200 4  点Y写入  PT_LINETO    4  点属性写入

   150 5  点X写入 290 5  点Y写入  PT_MOVETO    5  点属性写入

   250 6  点X写入 140 6  点Y写入  PT_MOVETO    6  点属性写入

   300 7  点X写入 400 7  点Y写入  PT_BEZIERTO  7  点属性写入

   300 8  点X写入 200 8  点Y写入  PT_BEZIERTO  8  点属性写入

   450 9  点X写入 150 9  点Y写入  PT_BEZIERTO  9  点属性写入

   350 10 点X写入 200 10 点Y写入  PT_LINETO  10  点属性写入

   。

属性 窗口标题:

     编字串" 画线段包含贝塞尔曲线"

     属性。

对象事件 初始时:

         禁用最大化按钮: 自本身

         禁用最小化按钮: 自本身

        置坐标点

         对象事件。

对象事件 绘制时:

         蓝色 画笔颜色: 设备描述表

         线段缓冲  属性缓冲 10

         绘制线段: 设备描述表

         对象事件。

对象事件 关闭:

         关闭: 自源模板

         退出

         对象事件。

WM_CLOSE 触发时:

         关闭: 自源模板

         退出

         触发。

对象。

无名编  启动: 自定义窗口  。

执行无名词

\ 独立可运行 无名词代码域 创建应用程序 无标题





所有跟贴:


加跟贴

笔名: 密码: 注册笔名请按这里

标题:

内容: (BBCode使用说明