Cita:
Empezado por keyboy
Un ejemplo, centrando el texo en el shape:
Código Delphi [-]
procedure TMiShape.Paint;
begin
inherited;
Canvas.TextOut(
(Width - Canvas.TextWidth(FText)) div 2,
(Height - Canvas.TextHeight(FText)) div 2, FText);
end;
Por otra parte, dado que mencionas que quieres hacer un diagrama de flujo, te puede interesar el componente TSimpleGraph, que es gratuito y del que además, puedes estudiar su código. Hay varias referencias al componente en los foros.
Bye
|
Muy Bueno KeyBoy tanto el procedimiento de Centrado en el Shape así como el TSimpleGraph este ultimo esta excelente voy a revisarlo.