home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Pen_002_LineDashStyle.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  1.1 KB  |  39 lines
  1. Image(0).Resample( 500,800 )
  2. Image(0).Color = _ColorWhite
  3.  
  4. Pen.Color = _ColorBlue
  5.  
  6.                                 y = 20
  7. For i = 1 To 10 
  8.     Pen.Width = i
  9.     Image(0).Line( 20,y,  300,y )
  10.                                 Image(0).DrawText( 300,y, 0,0 , "  Pen.Width = " + Pen.Width )
  11.                                 y = y + 30
  12. Next
  13.                                 y = y + 20
  14.  
  15. Image(0).Line( 20,y,  300,y )
  16.                                 Image(0).DrawText( 300,y, 0,0 , "  Standard ( _DashStyleSolid )" )
  17.                                 y = y + 40
  18. Pen.DashStyle = _DashStyleSolid
  19. Image(0).Line( 20,y,  300,y )
  20.                                 Image(0).DrawText( 300,y, 0,0 , "  _DashStyleSolid" )
  21.                                 y = y + 40
  22. Pen.DashStyle = _DashStyleDash
  23. Image(0).Line( 20,y,  300,y )
  24.                                 Image(0).DrawText( 300,y, 0,0 , "  _DashStyleDash" )
  25.                                 y = y + 40
  26. Pen.DashStyle = _DashStyleDot
  27. Image(0).Line( 20,y,  300,y )
  28.                                 Image(0).DrawText( 300,y, 0,0 , "  _DashStyleDot" )
  29.                                 y = y + 40
  30. Pen.DashStyle = _DashStyleDashDot
  31. Image(0).Line( 20,y,  300,y )
  32.                                 Image(0).DrawText( 300,y, 0,0 , "  _DashStyleDashDot" )
  33.                                 y = y + 40
  34. Pen.DashStyle = _DashStyleDashDotDot
  35. Image(0).Line( 20,y,  300,y )
  36.                                 Image(0).DrawText( 300,y, 0,0 , "  _DashStyleDashDotDot" )
  37.                                 y = y + 40
  38. Redraw()
  39.