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控件同比率缩放
最新推荐文章于 2025-05-24 10:49:04 发布