代码大全

Font.SyntheticAttribute[ FontID ].Underline,

Fout.SyntheticAttribute[ FontID ].Strikeout)
18-45
18-45 Pascal
DrawLine( Window.North , Window.South , Window.East , Window.West ,
CurrentWidth , CurrentAttribute ) ;
SetFontAttributes( Font.FaceName , Font.Size , Font.Bold , Font.Italic ,
Font.SyntheticAttribute[ FontID ].Underline,
Font.SyntheticAttribute[ FontID ].Strikeout ) ;

18-46

18-46 Pascal
DrawLine
(
Window.North
Window.South
Window.East ,
Window.West
CurrentWidth
CurrentAttribute
) ;
SetFontAttributes
(
Font.FaceName
Font.Size ,
Font.Bold ,
Font.Italic ,
Font.SyntheticAttribute[ FontID ].Underline ,
Font.SyntheticAttribute[ FontID ].Strikeout
);

,

for while if
if 18-47

18-47 Pascal
while( PathName[ StartPath + Pos ] <> ) and
( ( StartPath + Pos) <= length ( PathName ) ) do