Api窗口绘制矩形,根据组件比例缩小放大

易语言 2020-08-04 18:11:28

Api窗口绘制矩形,根据组件比例缩小放大

函数名: rectangle
功 能: 画一个矩形
用 法: Rectangle (hdc, nLeftRect, nToRect, nRightRect, nBottomRect)
参数说明:(left ,top )为矩形的左上坐标,(right,bottom)为矩形的右下坐标,两者可确定一个矩形的大小具体操作详情见源码内

.判断开始 (消息类型 = 16)
PostQuitMessage (0)
.默认
.如果真 (消息类型 = #WM_SIZE)
GetClientRect (窗口句柄, rect)
hdc = GetDC (窗口句柄)
Rectangle (hdc, rect.宽度 ÷ 4, rect.高度 ÷ 4, rect.宽度 ÷ 4 × 3, rect.高度 ÷ 4 × 3)
ReleaseDC (窗口句柄, hdc)
.如果真结束

.判断结束
返回 (DefWindowProcA (窗口句柄, 消息类型, WParam, LParam))