Desenhar formas utilizando a funcao Polygon.

Delphi

12/08/2003

Gostaria de utilizar o Polygon para desenhar diversos tipos de formas, gostaria também de utilizar vetores para desenhar formas com quantidades de pontos diferentes, por exemplo :
imgDesenho.Canvas.Polygon(Point(testex,testey));
onde testex e testey = array[0..10] of integer.
Ou se alguém tiver alguma idéia.
Valeu !!!


Acardoso

Acardoso

Curtidas 0

Respostas

Cebikyn

Cebikyn

12/08/2003

Para usar mais pontos, você pode fazer como no exemplo abaixo:

Image1.Canvas.Polygon([point(20,40) , point(100,100) , point(50,70) , point(100,150)]);


Note o uso de [b:bc630d4913][[/b:bc630d4913] e [b:bc630d4913]][/b:bc630d4913] antes de definir os pontos, pois trata-se de um [i:bc630d4913]array[/i:bc630d4913]. Espero ter ajudado. Qualquer dúvida, é só perguntar.


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

12/08/2003

ou:

var
  vetorXY = array of TPoint;
i : integer;
begin
SetLength(vetorXY, 10);
//altere aqui o tamanho do vetor
for i := low(vetorXY0 to High(vetorXY) do
  vetorXY[i] := Point(Random(Width), Random(Height));
imgDesenho.Canvas.Polygon(VetorXY); 
end;



GOSTEI 0
POSTAR