Bom dia!
Gostaria de agradecer aos amigos Daniel Bastos e Alexandre Rodrigues por
indicarem soluções para meu problema.
Vou testar ambas e para as outras formas e se necessário, posto novamente.
Por enquanto o problema está resolvido adotando a solução do colega Daniel
Bastos. Caso não atenda, tenho a solução do colega Alexandre Rodrigues na manga.
Grato por todas as respostas,
Ricardo.
--- Em qua, 13/8/08, Daniel Bastos <[EMAIL PROTECTED]> escreveu:
De: Daniel Bastos <[EMAIL PROTECTED]>
Assunto: Re: [delphi-br] Desenhar formas irregulares no form
Para: delphi-br@yahoogrupos.com.br
Data: Quarta-feira, 13 de Agosto de 2008, 0:10
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 <alexandre_rodrigues [EMAIL PROTECTED] com.br>
> 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]
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
[As partes desta mensagem que não continham texto foram removidas]
