Lolipop - Fr 12.07.02 20:39
Titel: Wie kann ich mit Bitmap einen Strip erstellen

---

Ich möchte gerne eine Animation erstellen doch dazu muss ich einen Strip mit den Bitmaps erstellen. Wie erstellt man einen Strip?

DBR - Sa 13.07.02 14:22

---

wenn ich davon ausgehe, dass alle Einzelbilder gleich groß sind:

procedure TForm1.Button6Click(Sender: TObject);
const
AnzahlDerEinzelbilder=10; // z.B.
var
EinzelBild:array[0..AnzahlDerEinzelbilder-1] of TBitmap;
strip:TBitmap;
x:integer;
begin
// EinzelBild createn und laden
strip:=tbitmap.create;
strip.height:=Einzelbild[0].height;
strip.width:=Einzelbild[0].width*AnzahlDerEinzelbilder;
for x:=0 to AnzahlDerEinzelbilder-1 do
strip.canvas.draw(x*Einzelbild[0].width,0,EinzelBild[x]);
strip.SaveToFile('c:\strip.bmp');
strip.free;
// EinzelBild freigeben
end;

gruss DBR