When I set the TextStyle of a box in FlowChartX to be tsCenterML or tsFitPolyCenter, it aligns the text to the center of the box horizontally, but vertically it is aligned at the top.

Is there no way to make multi-line text centered vertically as well?

My flowchart is dynamically created from a database, so I can do whatever tricky workarounds anyone can think of.

Ah! That did it! Thank you!

I was using bsRoundRect as my BoxStyle, the default value. Changed it to bsShape and the textstyle to tsFitPolyCenter now it's centered!

Though, I can't use a rounded rectangle. I have to use one of the shapes in the shape library. There's quite a selection though, they look rather fancy .

Maybe I'm blind... but I can't find one that's just a normal rounded rectangle. Is there one or should I just stick with square rectangles?

It appears to not exist. O.o Not in the help, and when I put it into my program I get an unspecified OLE error which I assume means it isn't in the collection.

I am using the professional edition of v2.3. It's probably a little dated now, we bought the license two years ago.

Unfortunately, since we use flowchartx in several places, I don't think we'll be upgrading the version for fear of breaking stuff elsewhere in the software.

It's okay though! I'm well on my way now. Thanks Stoyan.

Hmmm... o.o version 2.3 doesn't have an "AddOutlineArc" method. It only has "AddOutlineBezier", which comes out with...



Well, lets say its not quite what we wanted XD haha.

But! No worries. I did some research into Beziers and fixed it up.


Here's the equivalent code in Visual FoxPro. It's fairly similar to VB for anyone reading the thread.


LOCAL oshapetemplate as FLOWCHARTLib.ShapeTemplate
oshapetemplate = CREATEOBJECT("FlowChartPro.ShapeTemplate")
oshapetemplate.AddOutlineStraight(10, 0)
oshapetemplate.AddOutlineBezier(90, 0, 100, 0, 100, 10)
oshapetemplate.AddOutlineStraight(100, 10)
oshapetemplate.AddOutlineBezier(100, 90, 100, 100, 90, 100)
oshapetemplate.AddOutlineStraight(90, 100)
oshapetemplate.AddOutlineBezier(10, 100, 0, 100, 0, 90)
oshapetemplate.AddOutlineStraight(0, 90)
oshapetemplate.AddOutlineBezier(0, 10, 0, 0, 10, 0)
oshapetemplate.CompleteDefinition("RoundRect")
ochart.DefaultShape = ochart.Shapes("RoundRect")
ochart.BoxStyle = 10 && bsShape


It looks like this now:



It's not quite perfect since it uses percentages instead of pixel values. You can see on rectangles the curves are stretched out. But I'll tweak it so it looks best with the shapes we'll be using. Mostly 2:1 rectangles instead of squares. There are only a couple very specific height/width proportions that we'll be using, I can make a couple of these shapes for 1:2 and 2:1 rectangles and pick the appropriate one when the flowchart is rendered from the database.

Now that I have control over the shape I can do anything I want!

Yay! This is quite good 8)