Ver Mensaje Individual
  #6  
Antiguo 19-02-2012
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Reputación: 19
Chris Va por buen camino
FillRect toma como parametro una variable de tipo TRect. Lo que estás pasando son cuatro parámetros de tipo entero. Es por eso del mensaje "Incompatible Types...".

Para dibujar una elipse o cualquier otra figura gráfica, yo normalmente utilizo la API de Windows directamente. La función correspondiente en la API para hacer lo que deseas se llama Ellipse. A continuación un ejemplo:
Código Delphi [-]
begin
    Ellipse(Image1.Canvas.Handle,
            30, 337, 70, 300); 
end;

Con el anterior código, el color y tipo de borde de la elipse se determinarán por la propiedad Pen de Image1.Canvas. El color y tipo de relleno de la elipse serán determinados por la propiedad Brush de Image1.Canvas. En resumidas cuentas, tedrás que ajustar estas propiedades antes de llamar al código que te he proporcionado.

Una última cosa. FillRect es exclusivamente para rellenar rectángulos, no elipses. Hay otra función que se llama DrawRect, pero ésta solo dibuja el contorno de un rectángulo. Para dibujar rectángulos con bordes redondeados utiliza la función RoundRect. Ésta última funciona como la función Ellipse en el sentido que, el estilo del rectángulo será determinado por las propiedades Pen y Brush.

Saludos.
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita