TreeView自適應各DPI行高度


  • XP對高DPI的支持比較差勁, 大部分情況下就是字體的放大, 當然我們程序也可以通過GetDeviceCaps(hDC, LOGPIXELSX)獲取DPI后自己對繪畫的內容進行縮放。
  • 我們知道Vista/Win7我們可以禁止DWM(Desktop Window Manager), 該模式我們稱之為Basic模式, 這種模式下的高DPI效果和XP一樣。對于DWM沒有禁掉的情況, Vista/Win7/Win8 對高DPI的支持又分為2種情況
  1. 高DPI支持是通過DWM的縮放實現的,比如我們當前系統的DPI是200%,系統會告訴你當前DPI仍然是96(100%),程序會按照100%的方式進行繪畫, 但是系統給我們的坐標是根據DPI縮小后的(調用GetWindowRect或是通過GetSystemMetrics(SM_CXSCREEN)),當我們畫完之后再對整個窗口進行200% 放大后畫到屏幕上,程序就自動支持高DPI了。
  2. 系統給我們提供了2個APi:SetProcessDPIAwareIsProcessDPIAware,通過調用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;
最后編輯于
?著作權歸作者所有,轉載或內容合作請聯系作者
平臺聲明:文章內容(如有圖片或視頻亦包括在內)由作者上傳并發布,文章內容僅代表作者本人觀點,簡書系信息發布平臺,僅提供信息存儲服務。

推薦閱讀更多精彩內容