mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 21:07:54 +02:00
22 lines
685 B
ObjectPascal
22 lines
685 B
ObjectPascal
{ %target=win32 }
|
|
|
|
Uses Windows;
|
|
Var Font:HFONT;
|
|
Begin
|
|
{ Windows unit does not support Widechar correct }
|
|
Font:=CreateFont(16, { Height Of Font }
|
|
0, { Width Of Font }
|
|
0, { Angle Of Escapement }
|
|
0, { Orientation Angle }
|
|
FW_BOLD, { Font Weight }
|
|
0, { Italic }
|
|
0, { Underline }
|
|
0, { Strikeout }
|
|
ANSI_CHARSET,
|
|
OUT_TT_PRECIS,
|
|
CLIP_DEFAULT_PRECIS,
|
|
PROOF_QUALITY,
|
|
FF_DONTCARE Or DEFAULT_PITCH,
|
|
'Verdana');
|
|
End.
|