Teile eines images kopieren und in anderes image einfügen

[Keldorn]

Zitat von 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;

das soll funktionieren?
- kein resourcenschutzblock bei bild:=tbitmap.create
- die copyrectfktn ist auch nicht korrekt
- teilbild: warum immer in der schleife erzeugen? einmal reicht
- teilbild: größe wird nicht gesetzt, du kannst kopieren was du willst und wirst nichts sehen
- evtl fehlt noch das pixelformat für die teilbitmap