TNonClientMetrics

type TNonClientMetrics = packed record

  cbSize: UINT;

  iBorderWidth: Integer;

  iScrollWidth: Integer;

  iScrollHeight: Integer;

  iCaptionWidth: Integer;

  iCaptionHeight: Integer;

  lfCaptionFont: TLogFontA;

  iSmCaptionWidth: Integer;

  iSmCaptionHeight: Integer;

  lfSmCaptionFont: TLogFontA;

  iMenuWidth: Integer;

  iMenuHeight: Integer;

  lfMenuFont: TLogFontA;

  lfStatusFont: TLogFontA;

  lfMessageFont: TLogFontA;

end;