Centrar ellipse en TImage

[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

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

Elimina el primer parámetro.
Todo el problema lo rienes por meter esas líneas dntro de un with.

Te está cogiendo el Ellipse del Canvas de TImage.


La otra opción es dejar el with y colocar esto:

Código Delphi [-]
    Winapi.Windows.Ellipse(form1.Wheel.Canvas.Handle, 0, 0, form1.Wheel.Width, form1.Wheel.Height);

Con eso te compilará bien.

[compuin]

Gracias Neftali

No se si sirva de algo pero estoy utilizando Borland Delphi 7, asi que algunas instrucciones no me estan funcionando adecuadamente

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

Empezado por compuin

Gracias Neftali
No se si sirva de algo pero estoy utilizando Borland Delphi 7, asi que algunas instrucciones no me estan funcionando adecuadamente

Es muy similar, lo único que cambian son las units.
Este que te adjunto está en Delphi7 y funciona.

[compuin]

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

Elimina el primer parámetro.
Todo el problema lo rienes por meter esas líneas dntro de un with.

Te está cogiendo el Ellipse del Canvas de TImage.


La otra opción es dejar el with y colocar esto:

Código Delphi [-]
    Winapi.Windows.Ellipse(form1.Wheel.Canvas.Handle, 0, 0, form1.Wheel.Width, form1.Wheel.Height);

Con eso te compilará bien.

Me arroja este error

: Too many actual parameters

[ecfisa]

Hola.

Fijate si te sirve de este modo:

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;
  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.Pen.Color := aColor;
  Img.Canvas.Ellipse(C.X - R.X,  C.Y - R.Y, C.X + R.X, C.Y + R.Y);
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  CenterEllipse(Image1, 17, 17, 528, 528, clBlack);
end;

Salida:


Saludos

[compuin]

Hola

Me esta dando este error

[ecfisa]

Hola.

Cambiá por ShowMessage, v.gr. :

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile(GetEnvironmentVariable('HOMEPATH')+'\Pictures\Blank.bmp');
end;

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
    ShowMessage('Elipse fuera de rango')
  else
  begin
    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;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CenterEllipse(Image1, 17, 17, 328, 328, clRed);
end;

Saludos