- tnrFont : HFont;
- ...
- WC:=StringToWideChar('Lucida Console',wideChars,14+1);
- tnrFont := CreateFont(
- 20, // nHeight,
- 0, // nWidth,
- 0, // nEscapement,
- 0, // nOrientation,
- FW_NORMAL, // fnWeight,
- 0, // fdwItalic,
- 0, // fdwUnderline,
- 0, // fdwStrikeOut,
- ANSI_CHARSET, // fdwCharSet,
- OUT_TT_PRECIS, // fdwOutputPrecision,
- CLIP_DEFAULT_PRECIS,// fdwClipPrecision,
- DRAFT_QUALITY, // fdwQuality,
- DEFAULT_PITCH, // fdwPitchAndFamily,
- WC); // p.351 Nutshell