Fórum Desenhar Polígono Dinâmico #418891

23/06/2012

0

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

Responder

Posts

24/06/2012

Imex

Boa noite,

Experimente desta forma:

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


Espero que ajude.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar