Ninguém? ----- RODRIGO G. CUNHA
2009/3/19 guimaraesrodrigo23 <guimaraesrodr...@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; > > > > > [As partes desta mensagem que não continham texto foram removidas]