Obrigado amigo, mas preciso desenhar figuras irregulares no form, não desenhar o form irregularmente.
Alguma dica nesse sentido? Atte, Ricardo. --- Em ter, 12/8/08, Emerson <[EMAIL PROTECTED]> escreveu: De: Emerson <[EMAIL PROTECTED]> Assunto: Re: [delphi-br] Desenhar formas irregulares no form Para: [email protected] Data: Terça-feira, 12 de Agosto de 2008, 16:59 Você pode fazer isso da seguinte forma: crie o desenho no paint por exemplo e coloque ele em um timage no form. Coloque a cor do form como uma cor diferente do form. Mude as seguintes opções do form. Transparentcolor = True; TransparentcolorVal ue = Cor do Form; borderStyle = bsnone; Está ai um form com formato diferente. Obs: Existem outras maneiras, mas aqui é mais rápido e fácil fazer isso. Emerson Reis ************ ** Programador Pyxis Softwarehouse www.pyxisweb. com.br ----- Original Message ----- From: Ricardo César Cardoso To: [EMAIL PROTECTED] os.com.br Sent: Tuesday, August 12, 2008 4:54 PM Subject: [delphi-br] Desenhar formas irregulares no form 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 ] 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 [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]
