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í:

Código Delphi [-]
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:

Código Delphi [-]
procedure SetPieRadius(aSerie: TPieSeries; const R: Integer);
begin
  aSerie.CustomXRadius:= R;
  aSerie.CustomYRadius:= R;
  aSerie.Circled:= True
end;

Ejemplo de llamada:

Código Delphi [-]
  SetPieRadius(Series1, 152);

Saludos.

[CarlosAlberto]

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