Centrar ellipse en TImage

[compuin]

Empezado por Neftali [Germán.Estévez]

En estos casos el refrán de, "Una imagen vale más que 1000 palabras", vendría muy bien.

También me queda la duda de si el procedimiento que estás utilizando es el de TCanvas.

Si, utilizo TCanvas

En un instante subo la imagen

[Neftali [Germán.Estévez]]

Si usas el camvas de la imagen, puedes usar algo como esto:

Código Delphi [-]
  Wheel.Canvas.Pen.Color := clRed;
  Ellipse(Wheel.Canvas.Handle, 0, 0, Wheel.Width, Wheel.Height);

Si usas el del formulario, tendrás que ajustar esas coordenadas.

[compuin]

Aca la imagen

[compuin]

Empezado por Neftali [Germán.Estévez]

Si usas el camvas de la imagen, puedes usar algo como esto:

Código Delphi [-]
  Wheel.Canvas.Pen.Color := clRed;
  Ellipse(Wheel.Canvas.Handle, 0, 0, Wheel.Width, Wheel.Height);

Si usas el del formulario, tendrás que ajustar esas coordenadas.

Con este codigo aun no logra centrar el circulo

[Neftali [Germán.Estévez]]

A mi me sale centrado.
En negrio el original, en rojo el que te he puesto.

[compuin]

Ok,

Agregandolo asi me dice "too many actual parameters"

Código Delphi [-]
    FormMain.Wheel.Canvas.Pen.Color := clRed;
    Ellipse(formmain.Wheel.Canvas.Handle, 0, 0, formmain.Wheel.Width, formmain.Wheel.Height);

[Neftali [Germán.Estévez]]

¿Puedes poner un poco más de código?
Es que no se dónde estás poniendo esas líneas. ¿Dentro del formulario FormMain? ¿En otra Unit? ¿Estás usando eso dentro de un With?

Te adjunto el ejemplo.

[compuin]

En otra Unit

La unit donde esta definido el formulario se llama Unit1

El formulario es asi

Código Delphi [-]
var
  FormMain: TFormMain;

El image es asi

Código Delphi [-]
Wheel: TImage;

El codigo para crear la rueda esta en una unit que se llama charts

Y el codigo para tratar de crearla es

Código Delphi [-]
  with FormMain.Wheel.Canvas do
  begin
    FormMain.Wheel.Canvas.Pen.Color := clRed;
    Ellipse(formmain.Wheel.Canvas.Handle, 0, 0, formmain.Wheel.Width, formmain.Wheel.Height);
end;

Espero haberme hecho entender mejor