How i insert text in a TShape?

[celso.lom]

I created a TShape in runtime and i need to insert text in. How i do this?

[felipemdc]

Create a TCustomControl descendent and in its Paint method you can draw your shape using TCanvas routines and also draw the text:

http://wiki.lazarus.freepascal.org/Developing_with_Graphics#Create_a_custom_control_which_draws_itself

See also:

http://lazarus-ccr.sourceforge.net/docs/lcl/graphics/tcanvas.html

[typo]

Code: [Select]

YourShape.Canvas.TextOut(0,0,'abc');

[felipemdc]

Code: [Select]

YourShape.Canvas.TextOut(0,0,'abc');

Indeed that might work, but should only be used inside the OnPaint event of the shape.

[celso.lom]

I tested the "TShape.Canvas.TextOut." By moving the TShape the text disappears. I create the TShape at runtime, and I would definitely put the text inside. Is there another way?
_{Translated from portuguese on Google Translator.}

[typo]

Test what Felipe said.

[celso.lom]

I tested what Felipe said and it worked. As I am creating buttons dynamically, the procedures have to be dynamic. Added value to TShape.Caption and recovered within the procedure. Thanks!
_{Translated from portuguese on Google Translator.}