Utilizar una propiedad del objeto Tchar

[CarlosAlberto]

Estimados amigos del club:
Necesito saber como puedo acceder a la propiedad "Circled -> Radius" de un gráfico de sectores?
Muchas gracias.
Carlos Alberto

[Al González]

Tal vez no sea a lo que te refieres, pero en Delphi 7 sería así:
type
TForm1 = class(TForm)
Chart1: TChart;
Series1: TPieSeries;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
Series1.CustomXRadius := 80;
Series1.CustomYRadius := 90;

Quizá necesites explicar mejor tu requerimiento.

Saludos. :)

[ecfisa]

Hola.

Yo lo interpreto del mismo modo que Al, y si deseas que sea un circulo y no un elipse pasándo un valor podes usar la propiedad Circled:

procedure SetPieRadius(aSerie: TPieSeries; const R: Integer);
begin
aSerie.CustomXRadius:= R;
aSerie.CustomYRadius:= R;
aSerie.Circled:= True
end;


Ejemplo de llamada:

SetPieRadius(Series1, 152);


Saludos.

[CarlosAlberto]

Estimados amigos:
Probé el código del Sr. Al González y funcionó. Nuevamente muchas gracias.
Saludos.
Carlos Alberto