|
// 注：div 为整除运算符 ptx=(w*PZoom) div 100 pty=(h*PZoom) div 100 // 以下计算在绘图区显示的图像大小和位置 变量 Pencent:double; // 缩放比 wx:double; // 宽缩放比 hx:double; // 高缩放比 // 获得缩放比 wx:=pw/ptx hx:=ph/pty if wx>hx then Pencent:=hx else Pencent:=wx; // 获得图片最后的大小 vw:=Round(Pencent*ptx); vh:=Round(Pencent*pty); // 计算出图片的位置 vx:=(pw-vw) div 2; vy:=(ph-vh) div 2; // ------------------------------------ 好了，两个重要的任务完成(x,y),(w,h),(vx,vy),(vw,vh)已经全部计算得出，下面的工作就是显示了，我们选择 Windows API 进行操作 // 以下显示图像 ----------------------- 变量 sDC 为原始图片的设备句柄(DC) tDC 为临时设备句柄 dDC 最终设备句柄 |
正在阅读：Delphi学习:图像放大漫游攻略Delphi学习:图像放大漫游攻略
2004-02-14 09:34
出处：PConline
责任编辑：linjixiong
键盘也能翻页，试试“← →”键
