View Single Post
  #4  
Old 14-12-2007, 17:30
wOxxOm's Avatar
wOxxOm wOxxOm is offline
Senior Member
 
Join Date: Mar 2005
Posts: 836
Default

oh, nice you've found it useful. I guess you could use a workaround for v11 like this:
Code:
    Do While x < maxX
      i = (i Mod 8) + 1
      Set sh = ActiveLayer.CreateRectangle(x, y, x + 8, y - 8)
      sh.Outline.Type = cdrNoOutline
      dim clrStr$()
      clrStr=split( _
        Choose(i, _
         "100,0,0,0", "80,0,0,0", "0,100,0,0", "0,80,0,0", _
         "0,0,100,0", "0,0,80,0", "0,0,0,100", "0,0,0,80"), _
        ",")
      sh.Fill.ApplyUniformFill CreateCMYKColor(clrStr(0), clrStr(1), clrStr(2), clrStr(3))
      tmp.Add sh: x = x + 8
    Loop
Reply With Quote