Centrar ellipse en TImage

[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

[compuin]

Amigos, buenos dias

Ya teniendo la elipse centrada en un TImage, como puedo establecer la posiciion especifica de la misma.

Digamos que en un TImage cuadrado la imagen centra bien, pero este no es el caso cuando se trata de un rectangulo.


La posicion que busco es mas a la derecua en un rectangulo y el uso de x1,y1 como lo hago en el cuadrado me mueve el circulo siempre hacia abajo.


Alguna forma de colocarlo mas a la derecha que en el centro en un rectangulo ?

[Casimiro Notevi]

Usa las matemáticas, ancho del rectángulo menos ancho del círculo, dividido entre dos.

[compuin]

Empezado por Casimiro Notevi

Usa las matemáticas, ancho del rectángulo menos ancho del círculo, dividido entre dos.

Hola Casimiro,

Segun eso, lo colocaria en el centro del rectangulo. Lo cierto es que lo necesito mas a la derecha del mismo

[compuin]

Hola,

Lo consegui haciendo de esta manera

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
     canvas.pen.color:= clred;
     canvas.pen.width:= 10;
     canvas.brush.color := clfuchsia;
     canvas.ellipse(clientwidth div 2, 0,clientwidth, clientheight);
end;

end.