home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2007 November
/
CPNL0711.ISO
/
beeld
/
screen
/
hcf.exe
/
Basic
/
Basic_Image_010_Rectangle.bas
< prev
next >
Wrap
BASIC Source File
|
2003-11-26
|
3KB
|
85 lines
Image(0).Resample( 600,2000 )
Image(0).Color = _ColorWhite
Pen.Color = _ColorBlue
x = 20
y = 20
w = 200
h = 200
st = 40
xx = 40
For i = 1 To 5
Pen.Width = i
Image(0).Rectangle( x+xx,y, w,h )
Image(0).DrawText( x+xx+200,y, 0,0 , " Pen.Width = " + Pen.Width )
y = y + st
xx = xx + st
Next
y = y + 180
xx = 40
Pen.Width = 1
Pen.DashStyle = _DashStyleSolid
Image(0).Rectangle( x+xx,y, w,h )
Image(0).DrawText( x+xx+220,y, 0,0 , " _DashStyleSolid" )
y = y + st
xx = xx + st
Pen.Width = Pen.Width + 2
Pen.DashStyle = _DashStyleDash
Image(0).Rectangle( x+xx,y, w,h )
Image(0).DrawText( x+xx+220,y, 0,0 , " _DashStyleDash" )
y = y + st
xx = xx + st
Pen.Width = Pen.Width + 2
Pen.DashStyle = _DashStyleDot
Image(0).Rectangle( x+xx,y, w,h )
Image(0).DrawText( x+xx+220,y, 0,0 , " _DashStyleDot" )
y = y + st
xx = xx + st
Pen.Width = Pen.Width + 2
Pen.DashStyle = _DashStyleDashDot
Image(0).Rectangle( x+xx,y, w,h )
Image(0).DrawText( x+xx+220,y, 0,0 , " _DashStyleDashDot" )
y = y + st
xx = xx + st
Pen.Width = Pen.Width + 2
Pen.DashStyle = _DashStyleDashDotDot
Image(0).Rectangle( x+xx,y, w,h )
Image(0).DrawText( x+xx+220,y, 0,0 , " _DashStyleDashDotDot" )
y = y + st
xx = 40
y = y + 200
st = h + 40
Pen.StartColor = _ColorBlue
Pen.EndColor = _ColorRed
Pen.DashStyle = _DashStyleSolid
Pen.Width = Pen.Width + 4
Pen.GradientMode = _GradientModeHorizontal
Image(0).Rectangle( x+xx,y, w,h )
Image(0).DrawText( x+xx+220,y, 0,0, "_GradientModeHorizontal" )
y = y + st
Pen.Width = Pen.Width + 4
Pen.GradientMode = _GradientModeVertical
Image(0).Rectangle( x+xx,y, w,h )
Image(0).DrawText( x+xx+220,y, 0,0, "_GradientModeVertical" )
y = y + st
Pen.Width = Pen.Width + 4
Pen.GradientMode = _GradientModeForwardDiagonal
Image(0).Rectangle( x+xx,y, w,h )
Image(0).DrawText( x+xx+220,y, 0,0, "_GradientModeForwardDiagonal" )
y = y + st
Pen.Width = Pen.Width + 4
Pen.GradientMode = _GradientModeBackwardDiagonal
Image(0).Rectangle( x+xx,y, w,h )
Image(0).DrawText( x+xx+220,y, 0,0, "_GradientModeBackwardDiagonal" )
y = y + st
Pen.Width = Pen.Width + 4
Pen.GradientMode = _GradientModeCenter
Image(0).Rectangle( x+xx,y, w,h )
Image(0).DrawText( x+xx+220,y, 0,0, "_GradientModeCenter" )
y = y + st
Redraw()