- XP對高DPI的支持比較差勁欲鹏， 大部分情況下就是字體的放大屿聋， 當(dāng)然我們程序也可以通過
GetDeviceCaps(hDC, LOGPIXELSX)獲取DPI后自己對繪畫的內(nèi)容進(jìn)行縮放空扎。- 我們知道Vista/Win7我們可以禁止DWM（Desktop Window Manager）， 該模式我們稱之為Basic模式润讥， 這種模式下的高DPI效果和XP一樣转锈。對于DWM沒有禁掉的情況， Vista/Win7/Win8 對高DPI的支持又分為2種情況
- 高DPI支持是通過DWM的縮放實現(xiàn)的楚殿，比如我們當(dāng)前系統(tǒng)的DPI是200%撮慨，系統(tǒng)會告訴你當(dāng)前DPI仍然是96（100%），程序會按照100%的方式進(jìn)行繪畫脆粥， 但是系統(tǒng)給我們的坐標(biāo)是根據(jù)DPI縮小后的(調(diào)用
GetWindowRect或是通過GetSystemMetrics(SM_CXSCREEN))砌溺，當(dāng)我們畫完之后再對整個窗口進(jìn)行200% 放大后畫到屏幕上，程序就自動支持高DPI了变隔。 - 系統(tǒng)給我們提供了2個APi：
SetProcessDPIAware和IsProcessDPIAware规伐，通過調(diào)用SetProcessDPIAware，我們告訴系統(tǒng)不要對我們的程序進(jìn)行DWM虛擬化匣缘。
這個demo是用來用在開始菜單的猖闪。
首先開始菜單有大小圖標(biāo)之分，可以在菜單的設(shè)置中設(shè)置肌厨。第二系統(tǒng)有各個DPI培慌，不同的dpi有不同的大小需要處理。下面就是一些實現(xiàn)過程
- 首先獲取圖標(biāo)獲取大小圖標(biāo)柑爸，菜單程序快捷地址在
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;
獲取更具大圖標(biāo)和小圖標(biāo) 設(shè)置不同行高度
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有關(guān)的圖片參數(shù)
| 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 |
- 由上检柬，我們可以總結(jié)出顯示的規(guī)律了
1.都是4的倍數(shù)
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;
