Desenhar Polígono Dinâmico

Delphi

23/06/2012

Olá, gostaria de saber uma maneira de desenhar uma polígono em delphi
sem saber exatamente a quantidade de coordenadas, por exemplo, uso:

with Image1.Canvas do
   begin
     Polygon([Point(newpol[1].X,newPol[1].Y),
             Point(newpol[2].X,newPol[2].Y),
             Point(newpol[3].X,newPol[3].Y),
             Point(newpol[4].X,newPol[4].Y)]);
   end;


Note que uso um vetor de 4 posições, mas na verdade
este vetor pode conter mais coordenadas.

Alguém tem uma idéia de como posso resolver isso?

Obrigado
abraçs.
Julian Luis

Julian Luis

Curtidas 0

Respostas

Imex

Imex

23/06/2012

Boa noite,

Experimente desta forma:

with Image1.Canvas do
  begin
    Polygon(newpol);
  end;


Espero que ajude.
GOSTEI 0
POSTAR