tenta isso aqui: var pts : array of TPoint; begin SetLength(pts, 6); pts[0].X := 0; pts[0].Y := 0;
pts[1].X := 0; pts[1].Y := 200; pts[2].X := 200; pts[2].Y := 200; pts[3].X := 200; pts[3].Y := 100; pts[4].X := 100; pts[4].Y := 100; pts[5].X := 100; pts[5].Y := 0; Image1.Canvas.Polygon(pts); end; 2008/8/12 Alexandre Rodrigues <[EMAIL PROTECTED]> > Ao meu ver é isso mesmo. MoveTo e LineTo > > Ricardo César Cardoso escreveu: > > > > > > > Boa tarde, amigos! > > > > Com algum custo e pesquisa consegui montar uma rotina para desenhar > > quadrados, retângulos, círculos e elipses num TImage usando o Canvas. > > > > Porém, todavia, entretanto tenho que desenhar algumas formas > > "irregulares" que no software são chamadas de vigas e cantoneiras. O > > desenho dessas formas está no link abaixo: > > > > [ http://img243.imageshack.us/img243/3479/formasqp3.jpg > > <http://img243.imageshack.us/img243/3479/formasqp3.jpg> ] > > > > Alguém por favor poderia me indicar como desenhar isso, tendo como base > > que o usuário fornecerá a forma e as dimensões e com base nisso eu > > desenharei? Devo usar MoveTo / LineTo? > > > > Grato, > > Ricardo. > > > > Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua > > cara @ymail.com ou @rocketmail.com. > > http://br.new.mail.yahoo.com/addresses > > <http://br.new.mail.yahoo.com/addresses> > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > _______________________________________________________ > Yahoo! Mail - Sempre a melhor opção para você! > Experimente já e veja as novidades. > http://br.yahoo.com/mailbeta/tudonovo/ > > > > -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas]
