背景颜色-初级程序-极语言教程

//窗体代码:

整数 窗体;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-548)>>1,上=(桌面.高-490)>>1;
整数 菜单=创建菜单
整数 菜单.1=创建菜单
附加菜单(菜单,16,菜单.1,"颜色")
附加菜单(菜单.1,0,1001,"黑色")
附加菜单(菜单.1,0,1002,"红色")
附加菜单(菜单.1,0,1003,"绿色")
附加菜单(菜单.1,0,1004,"黄色")
附加菜单(菜单.1,0,1005,"蓝色")
附加菜单(菜单.1,0,1006,"紫色")
附加菜单(菜单.1,0,1007,"青色")
附加菜单(菜单.1,0,1008,"灰色")
附加菜单(菜单.1,0,1009,"白色")
附加菜单(菜单.1,$800,0,"")
附加菜单(菜单.1,0,1010,"退出")
窗体=创建窗口($100,程序.名称,"窗口标题",$10C80000,左,上,548,490,0,菜单,0,0);
窗体启动;读取消息
结束

 

//程序代码:

小程序 窗体消息(窗口,消息,参数,数据)
    判断(消息)为 窗口关闭 停止
    为 单击左键 左键点击(参数)
    否则 处理窗口(窗口,消息,参数,数据)
结束

小程序 窗体启动
    读取消息
结束

小程序 左键点击(参数)
    整数 颜色, 画笔;
    判断(参数)
    为 1001 颜色 = 0 
    为 1002 颜色 = $FF
    为 1003 颜色 = $FF00
    为 1004 颜色 = $FFFF
    为 1005 颜色 = $FF0000
    为 1006 颜色 = $FF00FF
    为 1007 颜色 = $FFFF00
    为 1008 颜色 = $C0C0C0
    为 1009 颜色 = $FFFFFF
    为 1010 停止(0)
    画笔 = 创建画刷(颜色)
    修改类值(窗体, 类背景色, 画笔)
    重绘矩形(窗体, 0, 1)
结束;