Componente TShape con Label?

[Jorge Rojas M.]

Hola, es primera vez que ingreso a este foro y he podido dar respuesta a muchas de mis preguntas por medio de las dudas que plantean los demás usuarios, por lo tanto decidí inscribirme para exponerles mi problema talvéz alguno de ustedes me pueda ayudar o brindar alguna otra solución.

Estoy creando una aplicación con componentes TShape que se generan en tiempo de ejecución, lo cual ya lo logré (MiComponente:=TShape.create(self)) sin embargo es necesario que cada componte que se crea tenga una etiqueta para identificarlo, pero por las características del componente TShape este no cuenta con una propiedad para agregarle Texto y no sé si esto es posible. Qué puedo hacer?. Les comento que para mi es importante poder dibujar un TShape pues la idea de la aplicación es representar un Diagrama de Flujo.

Gracias de antemando por su colaboración.

[[jcarteagaf]]

Hace tiempo tuve que hacer una aplicación similar (no diagrama de flujo, sino un Organigrama), inicialmente estuve construyendo un componente por mi propia cuenta, hasta que encontre en Devexpress el FlowChart y el OrgChart, dos componentes muy buenos que hacen lo que tu necesitas.

Si no me equivoco creo que TMS Software tambien tiene algo parecido.

Espero que te sirva.

Saludos

[[Crandel]]

Una forma facil es crear un label arriba del componete TShape.

Otra es crear una clase descendiente de TShape y agregar la propiedad text. Luego en su evento Pain lo escribis.

Algo asi:

Código Delphi [-]
  TMiShape = class (TShape)
  private
    FText: string;
    procedure SetText(value: string);
  protected
    procedure Paint; override;
  public
    property Text: string read FText write SetText;
  end;

...

procedure TMiShape.Paint;
begin
  inherited Paint;
  Canvas.TextOut(10,10, FText);
end;

procedure TMiShape.SetText(value: string);
begin
  FText := value;
  Invalidate;
end;

puede contener errores el codigo pero es la idea.

[Jorge Rojas M.]

Muchas gracias a ambos por las respuestas y si efectivamente el componente FlowChart es demasiado poderoso para lo que yo quiero desarrollar sin embargo me da un panorama más amplio para eventualmente pensar en algo más elaborado, por otra parte la solución que plantea Crandel me es mucho más económica y cumple con lo que yo quiero en un principio, sólo tengo una duda dado que no he podido probar el código pues estoy en Exámenes de la U, el procedimiento Paint en el momento de ejecutar la línea Canvas.TextOut(10,10,ftext), va escribir en la posición 10,10 del Shape no del Form?

Gracias....

[[Crandel]]

Empezado por Jorge Rojas M.

... el procedimiento Paint en el momento de ejecutar la línea Canvas.TextOut(10,10,ftext), va escribir en la posición 10,10 del Shape no del Form?

si, lo deje asi para no complicar mas el ejemplo.

Puedes agregarle propiedades al componente para asignarle el lugar donde escribir o calcular de forma automatica la posicion, segun te guste

[Jorge Rojas M.]

Empezado por Crandel

si, lo deje asi para no complicar mas el ejemplo.

Puedes agregarle propiedades al componente para asignarle el lugar donde escribir o calcular de forma automatica la posicion, segun te guste

Muchísimas Gracias Crandel, ya lo pude programar y funciona perfectamente, en cuanto a la posición si estoy tratando de que éste calcule la misma de forma automática, si tienes algo por ahí me puedes ayudar muchísimo. De todos modos muchas Gracias.