delphi控件同比率缩放

本文主要是介绍delphi控件同比率缩放，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

if (screen.width<>orignwidth) then  
  begin    
    height:=longint(height)*longint(screen.height)div orignheight; 
    width:=longint(width)*longint(screen.width)div orignwidth;    
    scaleby(screen.width,orignwidth);  
  end;

这篇关于delphi控件同比率缩放的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---