Centrar ellipse en TImage

[ecfisa]

Hola.

Empezado por compuin

Ya lo intente no tuve exito

Adjunta el código que te dá problemas tál como lo compilas.

Saludos

[compuin]

Este mensaje era del elipse antes de recibir el ultim codigo que me enviastes

Esta perfecto dibuja un circulo centrado en el TImage

Que debo modificar para hacerlo mas pequeno y que me deje espacio entre los bordes superiores e inferiores del TImage sin perder la circunferencia, es decir, reducir el diametro del circulo ?

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

Empezado por compuin

Que debo modificar para hacerlo mas pequeno y que me deje espacio entre los bordes superiores e inferiores del TImage sin perder la circunferencia, es decir, reducir el diametro del circulo ?

La imagen que has colocado no se ve.
Si necesitas un margen en el círculo, sólo debes sumarselo a las 2 primeras Coordenadas (x1, y1) y restárselo a las 2 segundas (x2, y2).

[compuin]

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

La imagen que has colocado no se ve.
Si necesitas un margen en el círculo, sólo debes sumarselo a las 2 primeras Coordenadas (x1, y1) y restárselo a las 2 segundas (x2, y2).

Necesito hacer el círculo más pequeño y que no toque los bordes del TImage. Sumando logro eso?

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

Empezado por compuin

Necesito hacer el círculo más pequeño y que no toque los bordes del TImage. Sumando logro eso?

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

...debes sumarselo a las 2 primeras Coordenadas (x1, y1) y restárselo a las 2 segundas (x2, y2).

La misma cantidad.
Sumar a las 2 primeras, restar a las 2 segundas.

[compuin]

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

La misma cantidad.
Sumar a las 2 primeras, restar a las 2 segundas.

Donde consigo esas coordenadas (x1,x2 y y1,y2) ?

[ecfisa]

Hola.

Empezado por compuin

Donde consigo esas coordenadas (x1,x2 y y1,y2) ?

Empezado por ecfisa

Código Delphi [-]
procedure CenterEllipse(Img: TImage; x1,y1,x2,y2: Integer; aColor: TColor);
var
  C,R: TPoint;
begin
  C.X := (Img.Picture.Width) div 2;
  C.Y := (Img.Picture.Height) div 2;
  R.X := (x2-x1) div 2 ;
  R.Y := (y2-y1) div 2;
  Img.Canvas.Pen.Color := aColor;
  Img.Canvas.Ellipse(C.X - R.X,  C.Y - R.Y, C.X + R.X, C.Y + R.Y);
end;

Saludos