DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: Odmfkqe
今日帖子: 20
在线用户: 14
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 dalas (dalas) ▲▲▲▲▲ -
普通会员
2020/3/25 0:40:53
标题:
请教如何获取系统屏幕缩放比例? 浏览:299
加入我的收藏
楼主: 由于多显示器,每个显示器分辨率不同,缩放比例也不同,窗口在不同显示器要做相应调整。
如下图:
此帖子包含附件:
PNG 图像
大小:371.2K
----------------------------------------------
-
作者:
男 emailx45 (emailx45) ▲▲▲△△ -
注册会员
2020/3/25 1:16:39
1楼: Get current/native screen resolution of all monitors in Delphi (DirectX)
using API Windows functions

https://stackoverflow.com/questions/7077572/get-current-native-screen-resolution-of-all-monitors-in-delphi-directx

var
  MonInfo: TMonitorInfo;
begin
  MonInfo.cbSize := SizeOf(MonInfo);
  GetMonitorInfo(MonitorFromWindow(Handle, MONITOR_DEFAULTTONEAREST), @MonInfo);
  ShowMessage(Format('Current resolution: %dx%d',
          [MonInfo.rcMonitor.Right - MonInfo.rcMonitor.Left,
          MonInfo.rcMonitor.Bottom - MonInfo.rcMonitor.Top]));
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!
作者:
男 emailx45 (emailx45) ▲▲▲△△ -
注册会员
2020/3/25 1:27:29
2楼: Delphi High-DPI Road: Ensuring Your UI Looks Correctly for TImage, TColorBox, Owner Drawn TComboBox , TStatusBar and some more

by Žarko Gajić

https://zarko-gajic.iz.hr/delphi-high-dpi-road-ensuring-your-ui-looks-correctly/
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!
作者:
男 emailx45 (emailx45) ▲▲▲△△ -
注册会员
2020/3/25 1:35:00
3楼: Writing and Enabling Delphi Applications to Support High DPI Displays and 4K Screen Resolutions

http://zarko-gajic.iz.hr/writing-and-enabling-delphi-application-to-support-high-dpi-displays-and-4k-screen-resolutions/
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!
作者:
男 dalas (dalas) ▲▲▲▲▲ -
普通会员
2020/3/25 10:40:09
4楼: @emailx45 (emailx45)

非常感谢,在你这个链接受到启发,完美解决 https://zarko-gajic.iz.hr/delphi-high-dpi-road-ensuring-your-ui-looks-correctly/

只需这一句就可得到缩放比例:

screen.Monitors[0].PixelsPerInch * 100 div 96
----------------------------------------------
-
作者:
男 szyourname (szyourname) ★☆☆☆☆ -
盒子活跃会员
2020/3/25 11:26:19
5楼: 牛逼
----------------------------------------------
-
作者:
男 wenyue0811 (wenyue0811) ★☆☆☆☆ -
普通会员
2020/3/25 12:28:10
6楼: FMX 下的话用这个:
  Result := Self.Handle.Scale;
----------------------------------------------


美国国务卿蓬佩奥回答大学生提问时说,“我曾担任美国中央情报局(CIA)的局长。我们撒谎、我们欺骗、我们偷窃。我们还有一门课程专门来教这些。这才是美国不断探索进取的荣耀
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行39.0625毫秒 RSS