home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2007 November
/
CPNL0711.ISO
/
beeld
/
screen
/
hcf.exe
/
Basic
/
Basic_!RechteckGefuellt_Transparent.bas
< prev
next >
Wrap
BASIC Source File
|
2007-03-25
|
630b
|
20 lines
Pen.GradientMode = _GradientModeForwardDiagonal
Pen.StartTolerance = 128
Pen.EndTolerance = 128
Pen.Width = __PenWidth
if __LastMouseButton = _LeftMouseButton Then
Pen.StartColor = __ForegroundColor
Pen.EndColor = __ForegroundColor
else
if __LastMouseButton = _RightMouseButton Then
Pen.StartColor = __BackgroundColor
Pen.EndColor = __BackgroundColor
else
Pen.StartColor = __ForegroundColor
Pen.EndColor = __BackgroundColor
endif
endif
Image(0).RectangleFill( __LastPointStartX,__LastPointStartY, __LastPointEndX-__LastPointStartX,__LastPointEndY-__LastPointStartY )