home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2007 November
/
CPNL0711.ISO
/
beeld
/
screen
/
hcf.exe
/
Basic
/
Basic_Pen_002_LineDashStyle.bas
< prev
next >
Wrap
BASIC Source File
|
2003-11-26
|
1KB
|
39 lines
Image(0).Resample( 500,800 )
Image(0).Color = _ColorWhite
Pen.Color = _ColorBlue
y = 20
For i = 1 To 10
Pen.Width = i
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 300,y, 0,0 , " Pen.Width = " + Pen.Width )
y = y + 30
Next
y = y + 20
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 300,y, 0,0 , " Standard ( _DashStyleSolid )" )
y = y + 40
Pen.DashStyle = _DashStyleSolid
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 300,y, 0,0 , " _DashStyleSolid" )
y = y + 40
Pen.DashStyle = _DashStyleDash
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 300,y, 0,0 , " _DashStyleDash" )
y = y + 40
Pen.DashStyle = _DashStyleDot
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 300,y, 0,0 , " _DashStyleDot" )
y = y + 40
Pen.DashStyle = _DashStyleDashDot
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 300,y, 0,0 , " _DashStyleDashDot" )
y = y + 40
Pen.DashStyle = _DashStyleDashDotDot
Image(0).Line( 20,y, 300,y )
Image(0).DrawText( 300,y, 0,0 , " _DashStyleDashDotDot" )
y = y + 40
Redraw()