.子程序 缩放到视图
.参数 参视图, 视图
.局部变量 绘制宽度
.局部变量 绘制高度
.如果真 (集图片号 ＝ 0)
返回 ()
.如果真结束
绘制宽度 ＝ 集图片宽度 × 参视图.缩放系数
绘制高度 ＝ 集图片高度 × 参视图.缩放系数
画板后台.清除 (, , , )
.如果真 (参视图.左 ＋ 绘制宽度 ＜ 集画板宽度 或 参视图.上 ＋ 绘制高度 ＜ 集画板高度)
' 防止图片缩放到视图之外
参视图.左 ＝ 集画板宽度
参视图.上 ＝ 集画板高度
.如果真结束
画板后台.画图片 (集图片号, 参视图.左, 参视图.上, 绘制宽度, 绘制高度, )
画板后台.复制 (集画板宽度, 集画板高度, 集画板宽度, 集画板高度, 画板, 0, 0, )
上一篇 免费开源mp3小型播放器