home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_!Rechteck_Gradient.bas < prev    next >
BASIC Source File  |  2003-11-26  |  424b  |  13 lines
  1. Pen.GradientMode = _GradientModeForwardDiagonal
  2. Pen.Width = __PenWidth
  3.  
  4. if __LastMouseButton = _LeftMouseButton Then
  5.     Pen.StartColor   = __ForegroundColor
  6.     Pen.EndColor     = __BackgroundColor
  7. else    
  8.     Pen.StartColor   = __BackgroundColor
  9.     Pen.EndColor     = __ForegroundColor
  10. endif
  11.   
  12. Image(0).Rectangle( __LastPointStartX,__LastPointStartY , __LastPointEndX-__LastPointStartX,__LastPointEndY-__LastPointStartY )
  13.