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