屏幕录像助手自绘界面版

.判断开始 (wMsg ＝ #WM_PAINT) ' WM_PAINT是一个常量，请自行添加
重绘窗口 (hwnd, #绘制_全部)
返回 (0) ' 画完了后直接返回0，这样系统就不会再次重绘。
.默认

.判断结束
' 其他我们不需要处理的消息，交回给系统处理，并返回处理结果。
返回 (CallWindowProc (集_旧函数, hwnd, wMsg, wParam, lParam))

BeginPaint (窗口句柄, lpPaint) ' 告诉系统，我们开始重画了。这个API函数还可以返回需要重画的设备场景及矩形
画背景 (操作类型, lpPaint, 是否按下)
EndPaint (窗口句柄, lpPaint) ' 结束重绘
圆角化窗口 (_启动窗口)

内存设备场景句柄 ＝ CreateCompatibleDC (集_设备场景)
位图句柄 ＝ CreateCompatibleBitmap (集_设备场景, 绘制信息.宽度, 绘制信息.高度)
场景图形对象句柄 ＝ SelectObject (内存设备场景句柄, 位图句柄) ' 进入场景
图形.创建自DC (内存设备场景句柄)
图形.置平滑模式 (#平滑模式_最佳质量)
.如果真 (操作类型 ＝ #绘制_全部) ' 画背景
图像2.创建自字节集 (背景图片) ' 画背景图片
图形.画图像缩放 (图像2, 0, 0, 宽度, 88)
' -------------画整体背景
画刷.创建 (RGB到ARGB (背景色, 250)) ' 根据背景色创建一个画刷
图形.填充矩形 (画刷, -1, 88, 宽度 ＋ 1, 高度 － 88) ' 填充导航区以下区域
内存1 ＝ CreateCompatibleDC (集_设备场景)
位图1 ＝ CreateCompatibleBitmap (集_设备场景, 158, 18)
场景图形对象句柄1 ＝ SelectObject (内存1, 位图1) ' 进入场景
BitBlt (内存1, 0, 0, 158, 18, 内存设备场景句柄, 宽度 － 158, 1, 13369376) ' 复制到内存
图像3.创建自位图句柄 (位图1, 0)
控制区背景 ＝ 图像3.保存到字节集 (#图像格式_JPEG)
' 写到文件 (取运行目录 () ＋ “\” ＋ “控制区背景2.jpg”, 控制区背景)
SelectObject (内存1, 场景图形对象句柄1)
DeleteObject (位图1)
DeleteDC (内存1)
内存1 ＝ CreateCompatibleDC (集_设备场景)
位图1 ＝ CreateCompatibleBitmap (集_设备场景, 宽度, 58) ' 宽度 － 4
场景图形对象句柄1 ＝ SelectObject (内存1, 位图1) ' 进入场景
BitBlt (内存1, 0, 0, 宽度, 58, 内存设备场景句柄, 0, 27, 13369376) ' 复制到内存
图像3.创建自位图句柄 (位图1, 0)
导航区背景 ＝ 图像3.保存到字节集 (#图像格式_JPEG)
' 写到文件 (取运行目录 () ＋ “\” ＋ “导航区背景2.jpg”, 导航区背景)
SelectObject (内存1, 场景图形对象句柄1)
DeleteObject (位图1)
DeleteDC (内存1)
' -------------画标题
窗口_画文本 (#常量_标题, 图形, #白色, 13, 制矩形F (8, 8), 真)
' -------------版本号
窗口_画文本 (“当前版本:V1.0”, 图形, #白色, 12, 制矩形F (3, 高度 － 19))
' -------------椭圆窗口描边
局_路径.创建 ()
局_路径.添加圆角矩形 (0, 0, 宽度 － 1, 高度 － 2, 2)
局_画笔.创建自颜色 (RGB到ARGB (#自绘_边框颜色), 1) ' 边框颜色可以和主体背景图片一起更换
图形.画路径 (局_画笔, 局_路径)