kako crop - obrezati sliko image1

Vse o grafiki, canvasu, directdraw, itd.
Fortuna
Prispevkov: 1097
Pridružen: 26.06.2004 09:59:52

kako crop - obrezati sliko image1

OdgovorNapisal/-a Fortuna » 07.07.2011 10:53:36

Tiskati moram samo del slike.

Pa mi znam tiskati samo celo sliko.

Vprašanje glasi še se slika da programsko obrezati.

oz samo delno tiskati?

Fortuna
Prispevkov: 1097
Pridružen: 26.06.2004 09:59:52

Re: kako crop - obrezati sliko image1

OdgovorNapisal/-a Fortuna » 07.07.2011 19:46:12

Končno mi je uspelo !!
Prilagam moj test!

Koda: Izberi vse


procedure CropBitmap(aBitmap: TBitmap; aRect: TRect);
var bmp:TBitmap; r: TRect;
begin
  r:=aRect;// offsetRect(r,-r.left,-r.top);
  bmp:=Tbitmap.create;
  bmp.SetSize(r.right,r.bottom);

  bmp.Canvas.CopyRect(r,aBitmap.Canvas,aRect);
  aBitmap.Assign(bmp);
  bmp.free;
end;

{ TForm1 }

procedure TForm1.BitBtn1Click(Sender: TObject);
var r: Trect;
begin
  r:=rect(0,0,Image1.width div 2,Image1.height div 2);
 // offsetRect(r,Image1.width div 4,Image1.height div 4);
  CropBitmap(Image1.Picture.Bitmap,r);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     Image1.Picture.LoadFromFile('/home/usb/tiskaj_blag/image4.png');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   Image1.Picture.SaveToFile('/home/usb/tiskaj_blag/imag.png');
end;












Vrni se na

Kdo je na strani

Po forumu brska: 0 registriranih uporabnikov in 2 gostov