Color en figuras creadas con Canvas

[dave.jason]

Hola, tengo que hacer un proyecto en el que necesito dibujar un trapedio y colorearlo. El trapecio lo puedo hacer con Canvas pero ¿como le doy color?

[[seoane]]

¿Que método usas para crear el polígono? Si usas el método "Polygon" el polígono resultante se rellena con el color del Brush

[dave.jason]

Intenté ulilizar el "polygon" pero no se utilizarlo. No comprendo qué parámetros hay que poner. Me pide un const TPoint*, y no se lo que es.

¿Puedes poner un ejemplo para que pueda ver la estructura correcta?

[[seoane]]

Pues un TPoint es una estructura de este tipo:

typedef struct tagPOINT { 
  LONG x; 
  LONG y; 
} POINT, *PPOINT;

El parámetro que te pide es un puntero a un array de puntos, es decir un array de estructuras TPoint. Tengo el C un poco oxidado pero debería ser algo así:

  TPoint Pt[4];

  Pt[0] = Point(10, 10);
  Pt[1] = Point(100, 10);
  Pt[2] = Point(100, 100);
  Pt[3] = Point(10, 100);
  Canvas->Polygone(Pt, 4);

[dave.jason]

Gracias. Ahora si que funciona. Una cosa más: ¿se puede programar un evento al hacer click en el trapecio? Si tal trapecio apareciese en el formulario no tendría ningún problema, pero como únicamente aparece al ejecutar el programa...

Si no se puede, pues nada. Pero gracias por la explicación del Polygon.

[marcoszorrilla]

Aunque ya te lo ha explicado Seoane, un ejemplo de lo que pides, basado en la propia ayuda de Delphi:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Brush.Color := clRed;
  Canvas.Polygon([Point(10, 10), Point(30, 10),
  Point(130, 30), Point(240, 120)]);
end;

Un Saludo.

[[cHackAll]]

Empezado por dave.jason

Hola, tengo que hacer un proyecto en el que necesito dibujar un trapedio y colorearlo. El trapecio lo puedo hacer con Canvas pero ¿como le doy color?

Código Delphi [-]
var Points: array [1..5] of TPoint = ((X:132;Y:66),(X:264;Y:66),(X:396;Y:198),(X:0;Y:198),(X:132;Y:66));

procedure TForm1.FormPaint(Sender: TObject);
var hRgn: Cardinal;
begin
 with Canvas do
  begin
   Pen.Color := clRed;
   Brush.Color := Pen.Color;
   hRgn := CreatePolygonRgn(Points, High(Points), ALTERNATE);
   FillRgn(Handle, hRgn, Brush.Handle);
   DeleteObject(hRgn);
  end;
end;