usei a matematica para calcular as proporções. funcionou, ;)
----- RODRIGO G. CUNHA 2009/3/21 Rodrigo Guimaraes <guimaraesrodr...@gmail.com> > Blz Silvio, > estou neste momento baixando a JVCL para fazer uns testes > > Obrigado e abraço. > ----- > RODRIGO G. CUNHA > > > 2009/3/21 Silvio Clécio <silviop...@yahoo.com.br> > > Olá galera, >> >> "Eu acho" que a JVCL tem um componente para isso, no caso, seria usar uma >> propriedade "Zoom", veja, eu não tenho certeza, mas, parece que já fiz isso >> antes, estou sem a JVCL instalada para procurar o componente e fazer uma >> teste. >> ________________________________ >> []'s, Silvio Clécio >> --- >> Linux User: #481900 >> Skype: silvioprog >> ICQ: 432519902 >> E-mail, Y! Messenger: silviop...@yahoo.com.br <silvioprog%40yahoo.com.br> >> Gmail, GTalk: silviop...@gmail.com <silvioprog%40gmail.com> >> Hotmail, MSN: silviop...@hotmail.com <silvioprog%40hotmail.com> >> BlogSpot: http://silvioclecio.blogspot.com/ >> BlogSite: http://silvioprog.blogspot.com/ >> °oO| Seja livre, use Linux! |Oo° >> >> ________________________________ >> De: Rodrigo Guimaraes >> <guimaraesrodr...@gmail.com<guimaraesrodrigo%40gmail.com> >> > >> Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> >> Enviadas: Sexta-feira, 20 de Março de 2009 16:53:54 >> Assunto: Re: [delphi-br] Ajuda recorte de imagem proporcional >> >> >> Heeeelp >> ----- >> RODRIGO G. CUNHA >> >> 2009/3/20 Rodrigo Guimaraes <guimaraesrodrigo@ gmail.com> >> >> > Ninguém? >> > ----- >> > RODRIGO G. CUNHA >> > >> > >> > 2009/3/19 guimaraesrodrigo23 <guimaraesrodrigo@ gmail.com> >> > >> > Fala pessoal boa tarde, >> >> >> >> Estou com um problema, se alguém puder ajudar agradeço. >> >> >> >> Tenho um Timage com uma imagem em uma resolução muito alta, >> >> portanto para a imagem aparecer completa no Timage eu marco >> >> a propriedade proportional como true. >> >> quando vou recortar a imagem com a propriedade proportional setada para >> >> true, ele faz o recorte como se a propriedade não estivesse setada. >> >> >> >> ou seja se eu posicionar o corte no meio da tela ele acaba cortando >> >> mais a esquerda, devido a proporção montada. >> >> >> >> Alguém saberia como faço para fazer o recorte levando em conta a >> >> proporção montada pelo Timage? >> >> >> >> abaixo a função que uso para o recorte: >> >> >> >> procedure TForm1.Button1Click (Sender: TObject); >> >> var >> >> TmpBmp : TBitmap; >> >> begin >> >> Image1.Canvas. DrawFocusRect( Rect(PDown. x, PDown.y, PActually.x, >> >> PActually.y) ); >> >> TmpBmp := TBitmap.Create; >> >> with TmpBmp do >> >> try >> >> Width := Round(abs(PActually .x - PDown.x)); >> >> Height := Round(abs(PActually .y - PDown.y)); >> >> BitBlt(Canvas. Handle, 0, 0, Width, Height, Image1.Canvas. Handle, >> PDown.x, >> >> PDown.y, SRCCOPY); >> >> Image1.Picture. Bitmap.Assign( TmpBmp); >> >> finally >> >> Free; >> >> end; >> >> end; >> >> Veja quais são os assuntos do momento no Yahoo! +Buscados >> http://br.maisbuscados.yahoo.com >> >> [As partes desta mensagem que não continham texto foram removidas] >> >> >> > > [As partes desta mensagem que não continham texto foram removidas]
