2023年6月6日 星期二

Delphi 顯示器-縮放與版面配置,影響報表輸出的表單尺寸

 縮放與版面配置  








當Project Options 勾選 Enable High-DPI ,專案的界面會依照縮放比例做調整,Screen.PixelsPerInch會取得與縮放比對應的數值 (Ex: 縮放比125%會取得120)

沒有勾選 Enable High-DPI,Screen.PixelsPerInch會取得 96 (縮放比100%)

Var
  iHorzres, iDesktopHorzres:Integer;
  iScale:Currency;
begin
  iHorzres := GetDeviceCaps(GetDC(0), HORZRES);  //水平像素總數
  iDesktopHorzres := GetDeviceCaps(GetDC(0), DESKTOPHORZRES); // 桌面水平像素總數

  iScale :=  iDesktopHorzres / iHorzres ;
end


影響QuickRep 報表版面配置的處理方式

with QuickRep1 do
begin
  ...
  ...
  ScaleBy(Screen.PixelsPerInch * iScale , Screen.PixelsPerInch);
  Prepare;
  ...
  ...
end;

沒有留言:

張貼留言