Teile eines images kopieren und in anderes image einfügen

[Nicodius]

"var
a,b : Trect;
begin
a := rect(0,105,0,0);
b := rect(0,105,0,0);
image2.canvas.CopyRect(a,image1.picture.bitmap.can vas,b);
end;"

das kann ja nicht gehn a, b nehmen das ganze ja von der canvas des Forms!

du musst es mit einem Rect AUS dem image nehmen

[Keldorn]

Hallo

Zitat:

a := rect(0,105,0,0);

jetzt gugg dir mal an, wie ein trect aussieht und auch, wie das rect im Beipsiel in der Hilfe aussieht.
wenn du für left und right 0 angibst, was glaubst du wird kopiert, eine spalte mit 0Pixeln-breite ? Der code ist richtig, nur definierst du das rechteck falsch.

Mfg Frank

[jAcK oRsEn]

und wie mach ich das?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b : Trect;
begin
a := rect(0,0,105,105);
b := rect(0,0,105,105);
image2.canvas.CopyRect(a,image1.picture.bitmap.canvas,b);
end;

geht auch nicht

[supermuckl]

[Nicodius]

ok dann halt der code ...

Delphi-Quellcode:

var i,j:integer; 
    Bild,teilBild:TBitmap; 


Bild:=TBitmapo.create(); 
bild.loadfromfile('c:\....'); 
For i:=0 to AnzahlX do 
  For j:=0 to ANzahlY do 
    begin 
       teilBild:=TBitmap.create(); 
       teilbild.copyrect(round(bild.width/AnzahlX*i),round(bild.height/AnzahlY*j), 
                         round(bild.width/AnzahlX*(i+1)),round(bild.height/AnzahlY*(j+1), 
                         bild); 
       teilbild.savetofile(....); 
       teilbild.free; 
    end;

[Keldorn]

Delphi-Quellcode:

a := rect(100,100,200,200);
b := rect(links,oben,rechts,unten);

ist das wirklich so schwer?

[Nicodius]

aber er braucht es auch vom image das ist sein problem s.h mein post)

[jAcK oRsEn]

mah, das funktioniert nicht, und ich verstehe es nicht

[Nicodius]

ich kann auch nicht mehr amchen als das posten was bei mir geht

[Nicodius]

aso du musst natürlich kein bmp machen ich hab den code nur von nem prog kopiert


du nimmst statt bild zb image 1