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]
