正在阅读:Delphi学习:图像放大漫游攻略Delphi学习:图像放大漫游攻略

2004-02-14 09:34 出处:PConline 作者:amei2000go/CSDN 责任编辑:linjixiong

  技巧篇:

  1.如果图像较大,使用 delphi 的 位图对象会出现内存溢出错误,这时可以进行如下设置:
   bitImage:=TBitmap.Create;
   bitImage.PixelFormat:=pf24bit;
   bitImage.ReleaseHandle;

  2.如果要让图像自动适应窗口的大小,参考以下代码:
  var
   p1,p2 :double;
  begin
   p1:=pw/sw;
   p2:=ph/sw;
   if p1>p2 then PZoom:=Round(p2*100)
   else PZoom:=Round(p1*100);
   if PZoom=0 then PZoom:=100;
  end;

  3.要想让图像的效果好,最好在全屏幕方式下进行
  该方法为“Crazy Marker”所用,如果读者有兴趣可以看看效果
  
  凌丽软件工作室
  2003.12.7
键盘也能翻页,试试“← →”键

相关文章

关注我们

最新资讯离线随时看 聊天吐槽赢奖品