Test suite results for test file webtbs/tw1696.pp

Test run data :

Test file "webtbs/tw1696.pp" information:

t_id 839
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1027392.

Source:

{ %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.

Link to SVN view of webtbs/tw1696.pp source.