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 Gmail, GTalk: silviop...@gmail.com Hotmail, MSN: silviop...@hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo°
________________________________ De: Rodrigo Guimaraes <guimaraesrodr...@gmail.com> Para: delphi-br@yahoogrupos.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]