Please help to confirm X5 bug

Hoping someone could verify what I believe to be a bug:

Scenerio:
If you use .Separate in a macro, then Draw X5
doesn't close when you close the program -- need to
Cntrl+Alt+Delete to manually close the program.
That will continue to happen if you separate (break apart) an effect
group such as contour or drop shadow, whether you use a macro or not,
until you F8, at which time it will close ok as long as you don't use
.Separate in a macro again.

Pasted below is a sample test macro if anyone is willing to help verify this possible bug.
Thank You so much!!
joan

Option Explicit

Sub test_separate()

Dim s As Shape, sr As ShapeRange
Dim rect As Shape
Dim cSr As ShapeRange
Dim e As Effect

Set rect = ActiveLayer.CreateRectangle2(0, 0, 5, 9, 0.1, 0.1, 0.1, 0.1)
rect.Fill.ApplyUniformFill CreateRGBColor(255, 255, 0)
Set e = rect.CreateContour(cdrContourOutside, 0.5, 1)
Set cSr = e.Separate
Set s = cSr(1)
s.Fill.ApplyUniformFill CreateRGBColor(255, 0, 0)

End Sub

[shelbym]

Yep, I see the same thing with X5 SP1, I will get it reported so that hopefully it is fixed in the next service pack. THANKS.

-Shelby

[runflacruiser]

Shelby.
Did you find that Separate is the cause of the problem?
-John

[SteveDude]

Joan,

You might of just solved an ancient mystery. Might try the CorelScript equivelent. Seems to work when others fail.When Alex hears the word "CorelScript" he gets all worked up. So keep it quiet .

Steve

[jemmyell]

Hi,

I don't see this problem in my C++ implementation. I am able to generate single contours and separate them to shapes (curves) with no apparent problems.

I think you should try providing all the default parameters explicitly. Also, there are THREE UNDOCUMENTED parameters (in the X4 docs - I can't find Shape.Contour in the X5 help at all). They are:

EndCapType Specifies the end-cap type of the contour. This parameter is optional, and its default value is cdrContourSquareCap.

CornerType Specifies the corner type of the contour. This parameter is optional, and its default value is cdrContourCornerMiteredOffsetBevel.

MiterLimit Specifies the miter limit. This parameter is optional.

This is from the Curve.Contour method documentation.

The C++ code I am using is:

offset = dist;

steps = 1L;

outlineColor = NULL;

fill1 = NULL;

fill2 = NULL;

spacingAccel = 0L;

colorAccel = 0L;

miterLimit = 0.0;

eff = shp->CreateContour(CorelDRAW::cdrContourInside,offset,steps,CorelDRAW::cdrDirectFountainFillBlend,
 		          outlineColor,fill1,fill2,spacingAccel,colorAccel,CorelDRAW::cdrContourSquareCap,
		          CorelDRAW::cdrContourCornerMiteredOffsetBevel,miterLimit);

// Get the contour shape that was created

tmpShapes = eff->Separate();

tmpShapes->get_Item(_variant_t(1L),&contourShape);

=James Leonard

Thanks everyone!
I will wait for SP2, but in the meantime, I will try the CorelScript idea, but I really don't know how to convert it -- are there any simple ways or do I need to learn it?

g'day,
joan

YAY!! SP2 fixed the separate issue. YAY!!

joan