Canvas in TBitmap ???

[hansklok]

Hallo, ich hoffe, dass der folgende Code richtig in meinem Kopf abgespeichert ist!

Du benötigst ne PaintBox!

Delphi-Quellcode:

var
Bitmap: TBitmap;

...
procedure TForm1.FormCreate(Sender: TObject);
begin
Bitmap:= TBitmap.Create; //erstellt eine Bitmap
Bitmap.PixelFormat:= pf32bit; //Bitmap erhält eine Bittiefe von 32 Bit (hohe Qualität)
Bitmap.Heigth:= PaintBox1.Heigth; //Höhe der Bitmap ist gleich der Höhe der Paintbox
Bitmap.Width:= Paintbox1.Width; //Breite der Bitmap ist gleich der Breite der Paintbox

PaintBox1.Canvas.Draw(0,0,Bitmap); //Bitmap wird in Paintbox gezeichnet

Bitmap.SaveToFile('C:\1.bmp'); //Bitmap wird als Bitmap auf Festplatte abgespeichert
end;

Nun kannst du durch die Canvas Eigenschaft der Bitmap alles Zeichenoperationen durchführen!