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);

Excelente

Muchas gracias

Buenas tardes a todos,

Ya logre el circulo centrado

Gracias a todos por sus aportes

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 ?

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

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.