- XP對高DPI的支持比較差勁, 大部分情況下就是字體的放大, 當然我們程序也可以通過
GetDeviceCaps(hDC, LOGPIXELSX)
獲取DPI后自己對繪畫的內容進行縮放。- 我們知道Vista/Win7我們可以禁止DWM(Desktop Window Manager), 該模式我們稱之為Basic模式, 這種模式下的高DPI效果和XP一樣。對于DWM沒有禁掉的情況, Vista/Win7/Win8 對高DPI的支持又分為2種情況
- 高DPI支持是通過DWM的縮放實現的,比如我們當前系統的DPI是200%,系統會告訴你當前DPI仍然是96(100%),程序會按照100%的方式進行繪畫, 但是系統給我們的坐標是根據DPI縮小后的(調用
GetWindowRect
或是通過GetSystemMetrics(SM_CXSCREEN)
),當我們畫完之后再對整個窗口進行200% 放大后畫到屏幕上,程序就自動支持高DPI了。 - 系統給我們提供了2個APi:
SetProcessDPIAware
和IsProcessDPIAware
,通過調用SetProcessDPIAware
,我們告訴系統不要對我們的程序進行DWM虛擬化。
這個demo是用來用在開始菜單的。
首先開始菜單有大小圖標之分,可以在菜單的設置中設置。第二系統有各個DPI,不同的dpi有不同的大小需要處理。下面就是一些實現過程
- 首先獲取圖標獲取大小圖標,菜單程序快捷地址在
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\
function TGetInkImageHelper.GetFileIcon(FileName: string; ASmall: Boolean):
HIcon;
var
Info: TSHFileInfo;
Flags: Cardinal;
begin
result := 0;
try
FileName := ExpCmd(FileName);
if ASmall then
Flags := SHGFI_ICON or SHGFI_SMALLICON
else
Flags := SHGFI_ICON or SHGFI_LARGEICON;
SHGetFileInfo(PChar(FileName), FILE_ATTRIBUTE_NORMAL, Info,
SizeOf(TSHFileInfo), Flags);
Result := Info.hIcon;
except
end;
end;
獲取更具大圖標和小圖標 設置不同行高度
TreeViewInk.Perform(TVM_SETITEMHEIGHT, 20, 0);
獲取DPI
function TSetTreeViewHigh.GetDPI: Integer;
var
DC: HDC;
begin
DC := GetDC(0);
Result := GetDeviceCaps(DC, logpixelsx);
ReleaseDC(0, DC);
end;
- 與DPI有關的圖片參數
DPI setting | Icon (SM_CXICON) | Small icon (SM_CXSMICON) |
---|---|---|
96 | 32*32 | 16*16 |
120 | 40*40 | 20*20 |
144 | 48*48 | 24*24 |
192 | 64*64 | 32*32 |
- 由上,我們可以總結出顯示的規律了
1.都是4的倍數
2.大圖片是小圖片的顯示的2倍
3.間隔的大小話比圖片大小大1號
procedure TSetTreeViewHigh.SetNum(num: Integer);
begin
smallSpace := 5 * num;
largeSpace := 10 * num;
mySmallList.Height := 4 * num;
myLargeList.Height := 8 * num;
end;