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