delphi - Delphi: how to adjust ownerdrawn Listbox, for various system DPI?

Question

Delphi7. I have Listbox, OwnerDrawn, with fixed ItemHeight. Now i want to make it look OK on 125% Windows font sizes. Currently i see that items font is increased but ItemHeight isn't, so items are "truncated" by Y. How to adjust ItemHeight when OS has 125% or 150% font sizes?

Answer 1

不能将 OnMeasureItem 用作 List.Style=OwnerDrawFixed。我的溶胶：

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;