home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Image_010_Rectangle.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  2.5 KB  |  85 lines
  1. Image(0).Resample( 600,2000 )
  2. Image(0).Color = _ColorWhite
  3.  
  4. Pen.Color = _ColorBlue
  5.  
  6. x = 20
  7. y = 20
  8. w = 200
  9. h = 200
  10.                                 st = 40
  11.                                 xx = 40
  12. For i = 1 To 5 
  13.     Pen.Width = i
  14.     Image(0).Rectangle( x+xx,y,  w,h )
  15.                                 Image(0).DrawText( x+xx+200,y, 0,0 , "  Pen.Width = " + Pen.Width )
  16.                                 y  = y  + st
  17.                                 xx = xx + st
  18. Next
  19.                                 y = y + 180
  20.                                 xx = 40
  21. Pen.Width = 1
  22. Pen.DashStyle = _DashStyleSolid
  23. Image(0).Rectangle( x+xx,y,  w,h )
  24.                                 Image(0).DrawText( x+xx+220,y, 0,0 , "  _DashStyleSolid" )
  25.                                 y  = y  + st
  26.                                 xx = xx + st
  27. Pen.Width = Pen.Width + 2
  28. Pen.DashStyle = _DashStyleDash
  29. Image(0).Rectangle( x+xx,y,  w,h )
  30.                                 Image(0).DrawText( x+xx+220,y, 0,0 , "  _DashStyleDash" )
  31.                                 y  = y  + st
  32.                                 xx = xx + st
  33. Pen.Width = Pen.Width + 2
  34. Pen.DashStyle = _DashStyleDot
  35. Image(0).Rectangle( x+xx,y,  w,h )
  36.                                 Image(0).DrawText( x+xx+220,y, 0,0 , "  _DashStyleDot" )
  37.                                 y  = y  + st
  38.                                 xx = xx + st
  39. Pen.Width = Pen.Width + 2
  40. Pen.DashStyle = _DashStyleDashDot
  41. Image(0).Rectangle( x+xx,y,  w,h )
  42.                                 Image(0).DrawText( x+xx+220,y, 0,0 , "  _DashStyleDashDot" )
  43.                                 y  = y  + st
  44.                                 xx = xx + st
  45. Pen.Width = Pen.Width + 2
  46. Pen.DashStyle = _DashStyleDashDotDot
  47. Image(0).Rectangle( x+xx,y,  w,h )
  48.                                 Image(0).DrawText( x+xx+220,y, 0,0 , "  _DashStyleDashDotDot" )
  49.                                 y  = y  + st
  50.                                 xx = 40
  51.                                 
  52.                                 y = y + 200
  53.                                 st = h + 40
  54. Pen.StartColor = _ColorBlue
  55. Pen.EndColor   = _ColorRed
  56. Pen.DashStyle = _DashStyleSolid
  57.  
  58. Pen.Width = Pen.Width + 4
  59. Pen.GradientMode = _GradientModeHorizontal
  60. Image(0).Rectangle( x+xx,y,  w,h )
  61.                                 Image(0).DrawText( x+xx+220,y, 0,0, "_GradientModeHorizontal" )
  62.                                 y  = y  + st
  63. Pen.Width = Pen.Width + 4
  64. Pen.GradientMode = _GradientModeVertical
  65. Image(0).Rectangle( x+xx,y,  w,h )
  66.                                 Image(0).DrawText( x+xx+220,y, 0,0, "_GradientModeVertical" )
  67.                                 y  = y  + st
  68. Pen.Width = Pen.Width + 4
  69. Pen.GradientMode = _GradientModeForwardDiagonal
  70. Image(0).Rectangle( x+xx,y,  w,h )
  71.                                 Image(0).DrawText( x+xx+220,y, 0,0, "_GradientModeForwardDiagonal" )
  72.                                 y  = y  + st
  73. Pen.Width = Pen.Width + 4
  74. Pen.GradientMode = _GradientModeBackwardDiagonal
  75. Image(0).Rectangle( x+xx,y,  w,h )
  76.                                 Image(0).DrawText( x+xx+220,y, 0,0, "_GradientModeBackwardDiagonal" )
  77.                                 y  = y  + st
  78. Pen.Width = Pen.Width + 4
  79. Pen.GradientMode = _GradientModeCenter
  80. Image(0).Rectangle( x+xx,y,  w,h )
  81.                                 Image(0).DrawText( x+xx+220,y, 0,0, "_GradientModeCenter" )
  82.                                 y  = y  + st
  83.  
  84. Redraw()
  85.