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;