Bitmap auf Bitmap kopieren

[thomas2009]

Hi

wie kann ich image.picture.Bitmap auf eine Bitmap,
die ich at run time erstelle kopieren ?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
bmp:TBitmap;
RR : TRect;
begin
bmp:=TBitmap.Create;
bmp.width:=400;
bmp.Height:=400;
bmp.PixelFormat := pf24bit;
// nun möchte ich eine kleine Bitmap (100x100) drauf malen

bmp.free;
end;

[DeddyH]

Eine Bitmap besitzt zum Zeichnen einen Canvas. Nun schau einmal nach, was der so bietet.

[Satty67]

Obwohl ich bisher wirklich (weitgehenst) vorurteilsfrei Deine Posts bewertet hatte, bin ich jetzt doch sehr erstaunt/enttäuscht das Du nach wochenlanger Beschäftigung mit Bitmaps an solch einer sehr einfachen Aufgabe scheiterst.

[thomas2009]

Canvas auf Canvas ist klar

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image2.Canvas.CopyRect(
    Rect(0,0,Image2.Width,Image2.Height),
    Image1.Canvas,
    Rect(
      0,
      0,
      Image1.Picture.Width-10,
      Image1.Picture.Height-10));
end;

[DeddyH]

Es gibt ja nicht nur CopyRect. Bemüh Dich endlich einmal selbst :!:

[mkinzler]

Ich glaube, beim Reden gegen ein Wand, ist die Wahrscheinlichkeit, dass diese etwas lernt, größer :wall:

[thomas2009]

Mit CopyRect geht auch :zwinker:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  bmp.Canvas.CopyRect(
    Rect(0,0,bmp.Width,bmp.Height),
    Image1.Canvas,
    Rect(
      0,
      0,
      Image1.Picture.Width-10,
      Image1.Picture.Height-10));
end;

[mkinzler]

Man kann sein Fahrrad auch Schieben.

[DeddyH]

Mach doch, was Du willst.

[thomas2009]

Was meinst Du mit "mach was du willst"
Gibt es was alternatives :cyclops: