Delphi:如何调整自己绘制的列表框，适用于不同系统的DPI？

Question

Delphi7。我有固定ItemHeight的列表框，OwnerDrawn。现在我想让它在125%的Windows字体上看起来还行。目前我看到项目字体增加了，但ItemHeight没有，所以项目被Y“截断”了。当操作系统有125%或150%的字体大小时，如何调整ItemHeight？

Answer 1

无法将OnMeasureItem用作List.Style=OwnerDrawFixed。我的sol：

function ScaleFontSize(Size: Integer; Form: TForm): Integer;
begin
  Result:= Size * Form.PixelsPerInch div 96 + 1;
end;

procedure TfmSetup.TntFormCreate(Sender: TObject);
begin
  with ListTabColors do
    ItemHeight:= ScaleFontSize(ItemHeight, Self);
end;