home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_Image_017_AddBorder.bas < prev    next >
BASIC Source File  |  2004-03-29  |  2KB  |  48 lines
  1. iOld = CreateImage( 1,1 )    
  2. Image(iOld).CopyFrom(0)
  3.  
  4. ' Location            = arg1    _BorderOutside / _BorderInside
  5. ' Style                = arg2    _BorderStyleTransparent / _BorderStyleOpaque / _BorderStyleGradient
  6. ' LeftThickness        = arg3     
  7. ' TopThickness        = arg4    
  8. ' RightThickness    = arg5    
  9. ' BottomThickness    = arg6     
  10. ' EffectStyle        = arg7    _BorderEffectRaised / _BorderEffectCurvedIn / _BorderEffectCurvedOut
  11. ' GradientStyle        = arg8    _BorderGradientInsideOut / _BorderGradientCenterOut / _BorderGradientCornetOut
  12. ' GradientStart        = arg9    _Color...
  13. ' GradientEnd        = arg10    _Color...
  14. ' CurveIntensity    = arg11    -1000 bis +1000
  15. ' SoftCurve            = arg12    TRUE / FALSE
  16. ' Shadow            = arg13    TRUE / FALSE
  17. ' ShadowSize        = arg14    
  18. ' ShadowDirection    = arg15    _BorderShadowSurround / _BorderShadowLeft / _BorderShadowRight
  19. ' BumpyShadow        = arg16    TRUE / FALSE
  20.  
  21. for i = 3 to 30 step 3
  22.     Image(0).CopyFrom( iOld )
  23.                     '   1               2                       3 4 5 6  7                    8 9 10 11 12    13    14 15                     16
  24.     Image(0).AddBorder( _BorderInSide, _BorderStyleTransparent, 0,0,0,0, _BorderEffectRaised, 0,0,0, 0, TRUE, TRUE, i, _BorderShadowSurround, TRUE )
  25.     ReDraw(1)
  26.     Sleep(1000)
  27. Next
  28.  
  29. for i = 3 to 30 step 3
  30.     Image(0).CopyFrom( iOld )
  31.                     '   1               2                   3 4 5 6  7                      8 9          10         11   12    13    14 15                     16
  32.     Image(0).AddBorder( _BorderOutside, _BorderStyleOpaque, i,i,i,i, _BorderEffectCurvedIn, 0,_ColorBlue,_ColorRed, 400, TRUE, TRUE, 0, _BorderShadowSurround, TRUE )
  33.     ReDraw(1)
  34.     Sleep(1000)
  35. Next
  36.  
  37. for i = 3 to 30 step 3
  38.     Image(0).CopyFrom( iOld )
  39.                     '   1               2                     3 4 5 6  7                       8                         9         10         11 12    13   14 15                     16
  40.     Image(0).AddBorder( _BorderOutside, _BorderStylegradient, i,i,i,i, _BorderEffectCurvedOut, _BorderGradientInsideOut,_ColorBlue,_ColorRed, 0, TRUE, TRUE, 0, _BorderShadowSurround, TRUE )
  41.     ReDraw(1)
  42.     Sleep(1000)
  43. Next
  44.  
  45. Image(0).CopyFrom( iOld )
  46. Image(iOld).Delete()
  47.  
  48.