home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_!Rechteck_Gradient.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  424 b   |  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.