paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 09:19:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* New bug

Browse Source
This commit is contained in:
peter 2002-10-06 20:00:46 +00:00
parent e34e13439e
commit eab3951304
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tests/webtbs/tw1696.pp Normal file
View File

@ -0,0 +1,28 @@
{ %version=1.1 }
{$ifdef 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');
{$else}
begin
Writeln('Win32 only');
{$endif}
End.