TFontNameComboBox及TFontSizeComboBox的实现

TFontNameComboBox及TFontSizeComboBox的实现(18)         ((TStrings*)(lParam))->Add("28");
        ((TStrings*)(lParam))->Add("36");
        ((TStrings*)(lParam))->Add("48");
        ((TStrings*)(lParam))->Add("72");
        return false;
    }
  else
    {
          AnsiString s;
          int i,v,v2;
          v = floor((lpelf->elfLogFont.lfHeight-lpntm->tmInternalLeading)*72/PixelsPerInch);
          s = IntToStr(v);