Wrong ItemHeight when ParentFont is True in Delphi 11

[pyscripter]

Delphi 11 changed the default font to Segoe UI 9 pts. The default FItemHeight of 17 is too small for that font. The problem is much worse with High DPI applications. See image below:

The problem is that when using the default font (ParentFont is True) TzScrollObjInspectorList.CMFONTCHANGED, which correctly sets FItemHeight is not called.

Solution:

Add another method TzScrollObjInspectorList.CMPARENTFONTCHANGED with the following code:

procedure TzScrollObjInspectorList.CMPARENTFONTCHANGED(
  var Message: TCMParentFontChanged);
begin
  inherited;
  if ParentFont then
  begin
    Canvas.Font.Assign(Font);
    FItemHeight := Canvas.TextHeight('WA') + 4;
  end;
end;

This method is always called and the problem is solved. And while fixing this you may want to expose the ParentFont property.