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]