mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 02:39:40 +01:00
23 lines
702 B
Puppet
23 lines
702 B
Puppet
{ %version=1.1 }
|
|
{ %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.
|