home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_!Rechteck_Transparent.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  626 b   |  20 lines
  1. Pen.GradientMode = _GradientModeForwardDiagonal
  2. Pen.StartTolerance = 128
  3. Pen.EndTolerance   = 128
  4. Pen.Width = __PenWidth
  5.  
  6. if __LastMouseButton = _LeftMouseButton Then
  7.         Pen.StartColor   = __ForegroundColor
  8.         Pen.EndColor     = __ForegroundColor
  9. else    
  10.     if __LastMouseButton = _RightMouseButton Then
  11.         Pen.StartColor   = __BackgroundColor
  12.         Pen.EndColor     = __BackgroundColor
  13.     else    
  14.         Pen.StartColor   = __ForegroundColor
  15.         Pen.EndColor     = __BackgroundColor
  16.     endif  
  17. endif
  18.   
  19. Image(0).Rectangle( __LastPointStartX,__LastPointStartY,  __LastPointEndX-__LastPointStartX,__LastPointEndY-__LastPointStartY )
  20.