Centrar ellipse en TImage

Neftali [Germán.Estévez] · #24 28-02-2020

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

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
centrar timage en una form	JXJ	Varios	4	05-10-2017 23:51:30
mover ScrollBox para centrar un TImage en pantalla	Snaked	C++ Builder	7	31-03-2017 18:05:38
Ajustar (Stretch) & Centrar Imagen En TImage Dentro de ScrollBox	Beaker_	Gráficos	3	22-05-2012 17:36:57
Como centrar una imagen en un timage con un click	The_Duke	Gráficos	3	24-11-2008 02:07:03
como combinar 2 Timage en un tercer Timage	JefeNet	Gráficos	10	02-09-2004 16:51:35