Centrar ellipse en TImage

[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

[compuin]

Hola

Pero estoy usando este codigo que es el que me ha funcionado mejor a mi necesidad

Código Delphi [-]
    FormMain.Wheel.Top := 10;
    FormMain.Wheel.left:= 250;
    FormMain.Wheel.Height:= 700;
    FormMain.Wheel.Width:= 1000;

 //   Ellipse(FormMain.Wheel.Canvas.Handle, 17, 17, 674, 674);

    Windows.Ellipse(FormMain.Wheel.Canvas.Handle,
                    Max((FormMain.Wheel.Width - FormMain.Wheel.Height) div 2, 0),
                    Max((FormMain.Wheel.Height - FormMain.Wheel.Width) div 2, 0),
                    -Max((FormMain.Wheel.Width - FormMain.Wheel.Height) div 2, 0) + FormMain.Wheel.Width,
                    -Max((FormMain.Wheel.Height - FormMain.Wheel.Width) div 2, 0) + FormMain.Wheel.Height);

Como lo ajusto aqui ?

[ecfisa]

Hola.

Empezado por compuin

Hola

Pero estoy usando este codigo que es el que me ha funcionado mejor a mi necesidad

Código Delphi [-]
 //   Ellipse(FormMain.Wheel.Canvas.Handle, 17, 17, 674, 674);  // <===== !!!!

Como lo ajusto aqui ?

Te marqué en ese código la línea donde encuentras x1, y1, x2 e y2 (son los valores que se reciben en los parámetros de la función Ellipse)


Saludos

[compuin]

Ahora me confundi

Esta linea genera un circulo que no esta centrado

La segunda parte del codigo genera el circulo centrado pero tocando los bordes de; TImage

Necesito un circulo centrado mas pequeno, y eso no lo hace la linea que me indicas

[ecfisa]

Hola.

A ver, modifico un poco un ejemplo a ver si podes lograr lo que estas buscando.

Código Delphi [-]
...
implementation 

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;
  if (C.X-R.X < 0) or (C.Y-R.Y < 0) or
     (C.X+R.X > Img.Picture.Width) or (C.Y+R.Y >Img.Picture.Height) then
    raise Exception.Create('Elipse fuera de rango');
  Img.Canvas.Brush.Style := bsClear;
  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;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Cargar imagen en blanco
  Image1.Picture.LoadFromFile('Blank.bmp');
  // Ajustar el ancho y el alto del TImage a la imágen
  Image1.Width  := Image1.Picture.Width;
  Image1.Height := Image1.Picture.Height;
  // color verde
  Self.Color  := clMoneyGreen;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  i,x : Integer;
begin
  x := 10;
  for i := 0 to 50 do
  begin
    CenterEllipse(Image1, x, x, x*2, x*2, clBlack);
    Inc(x, 10);
  end;
end;

Este es el resultado, todos centrados.


Saludos

Nota: Delphi 7 soporta raise Exception (raise command)

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

Este es el que tienes:

Código Delphi [-]
...     
Windows.Ellipse(FormMain.Wheel.Canvas.Handle, 
  Max((FormMain.Wheel.Width - FormMain.Wheel.Height) div 2, 0),
  Max((FormMain.Wheel.Height - FormMain.Wheel.Width) div 2, 0),
  -Max((FormMain.Wheel.Width - FormMain.Wheel.Height) div 2, 0) + FormMain.Wheel.Width,  
  -Max((FormMain.Wheel.Height - FormMain.Wheel.Width) div 2, 0) + FormMain.Wheel.Height);

Lo conviertes a:

Código Delphi [-]
const
  ELLIPSE_SPACE = 100;  
begin
...     
   Windows.Ellipse(FormMain.Wheel.Canvas.Handle,                     
       ELLIPSE_SPACE + Max((FormMain.Wheel.Width - FormMain.Wheel.Height) div 2, 0),
       ELLIPSE_SPACE + Max((FormMain.Wheel.Height - FormMain.Wheel.Width) div 2, 0),
       -ELLIPSE_SPACE -Max((FormMain.Wheel.Width - FormMain.Wheel.Height) div 2, 0) + FormMain.Wheel.Width,
       -ELLIPSE_SPACE -Max((FormMain.Wheel.Height - FormMain.Wheel.Width) div 2, 0) + FormMain.Wheel.Height);

[compuin]

Excelente

Muchas gracias

[compuin]

Buenas tardes a todos,

Ya logre el circulo centrado

Gracias a todos por sus aportes