Delphi dicas

Cortar imagem

Function CortarImagem(Imagem: TGraphic; Valores: TRect): TBitmap;

var

bmp, tbmp: TBitmap;

drect: TRect;

begin

        bmp := TBitmap.Create;

        bmp.Height := Valores.Bottom - Valores.Top;

        bmp.Width := Valores.Right - Valores.Left;

        drect := Bounds(0, 0, bmp.Width, bmp.Height);

        try

        tbmp := TBitmap.Create;

        tbmp.Height := Imagem.Height;

        tbmp.Width := Imagem.Width;

        tbmp.Canvas.Draw(0,0,Imagem);

        bmp.Canvas.CopyRect(drect, tbmp.Canvas, Valores);

        Result :=bmp;

        finally

        tbmp.Free;

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

Bmp: TBitMap;

begin

        bmp := TBitmap.Create;

        Bmp.LoadFromFile('C:Imagem.bmp');

        Bmp := CortarImagem(TGraphic(bmp), Bounds(0, 0, Bmp.Width, Bmp.Height - 100));

        Image1.Picture.Bitmap.Assign(Bmp);

        Bmp.Free;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

        Image1.Picture.LoadFromFile('C:imagem.jpg');// verifique a unit JPEG na clausula uses

        Image1.Picture.Bitmap := CortarImagem(Image1.Picture.Graphic, Bounds(50, 100, Image1.Picture.Width, Image1.Picture.Height - 100));

end;