Hi

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

zusammenfalten · markieren

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;

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

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.

Canvas auf Canvas ist klar

zusammenfalten · markieren

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;

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

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

Mit CopyRect geht auch

zusammenfalten · markieren

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;

Man kann sein Fahrrad auch Schieben.

Mach doch, was Du willst.

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