Allow Text To Be Moved Inside PIO w/ Interactive Scaling Mode Enabled

[Steven Morgan]

Seems like an easy one but I can't seem to find the property to enable on this text. I have a custom PIO that spits out a box and some text, I want to be able to re-position the text, and perhaps have it generate a Leader Line to its text origin?

 

Similar to how you can slide text around in Label Legends, Hang Position ,etc.

[Maarten DE]

You can do this by adding a parameter of type Control Point.

[Steven Morgan]

Oh man, didn't even think of that. Thanks so much.

 

Screenshots for any other rookies out there in the future:

 

VAR
h:HANDLE;
boolResult:BOOLEAN;
cntrlX,cntrlY:REAL;

BEGIN

cntrlX:=pControlPoint01X;
cntrlY:=pControlPoint01Y;

RECT(0,0,50,50);
PushAttrs;
	TextSize(9); { avoid accidental small text size rising the error "An incorrect object is described" }
	TextOrigin(cntrlX,cntrlY);
	CreateText('Text');
PopAttrs;