简单的易语言API函数画矩形

易语言 2020-08-20 18:24:33

简单的易语言API函数画矩形

设备的句柄 = API_取设备场景 (_启动窗口.取窗口句柄 ())
刷子的结构.样式 = 到整数 (编辑框9.内容)
刷子的结构.颜色 = 到整数 (颜色选择器2.颜色)
刷子的结构.属性 = 到整数 (编辑框7.内容)
画笔的句柄 = API_创建画笔 (到整数 (编辑框5.内容), 到整数 (编辑框6.内容), 画笔的颜色)
刷子的句柄 = API_创建刷子 (刷子的结构)
API_选入设备场景 (设备的句柄, 画笔的句柄)
API_选入设备场景 (设备的句柄, 刷子的句柄)
左上角横坐标 = 到整数 (编辑框1.内容)
左上角纵坐标 = 到整数 (编辑框2.内容)
右下角横坐标 = 到整数 (编辑框4.内容)
右下角纵坐标 = 到整数 (编辑框3.内容)
图片_宽度 = 右下角纵坐标 - 左上角横坐标
图片_高度 = 右下角纵坐标 - 左上角纵坐标
调试输出 (图片_宽度, 图片_高度)
调试输出 (左上角横坐标, 左上角纵坐标, 右下角横坐标, 右下角纵坐标)
API_画矩形 (设备的句柄, 左上角横坐标, 左上角纵坐标, 右下角横坐标, 右下角纵坐标)
写到文件 (取运行目录 () + “\Picutre.jpg”, 快照 (_启动窗口.取窗口句柄 (), _启动窗口.宽度, _启动窗口.高度))