Hallo

kann jemand mir helfen um das Problem zu lösen
Ich hole zuerst den Grafik von der Zwischenablage (z.B. von Microsoft Paint) in Image2

Dann versuche ich danach das Bild von Image2 in Image1 zu kopieren
Ich bekomme aber ein weißes Bild !

zusammenfalten · markieren

Delphi-Quellcode:

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.StretchDraw(Rect(0,0,100,100), Image2.Picture.Bitmap);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Clipboard.HasFormat(CF_BITMAP) then
Image2.Picture.Assign(Clipboard);

end;

Das Bild und das Project sind im Anhang

versuchs mal mit Image.Picture.Bitmap.Assign

Versuch es mal mitImage1.Picture.Assign(Image2.Picture); [edit]

Zitat:

Rect(0,0,0,0)

Und da wunderst Du Dich, dass Du nichts siehst?[/edit]

>> Rect(0,0,0,0)
Nur versehen ; ) logisch
Ich habe den Code oben geändert zu
Rect(0,0,100,100)
Ich bekomme trotzdem ein weißes Bild !

Diese Form : Image1.Picture.Assign(Image2.Picture); kann ich nicht verwenden,
da ich nicht immer das Bild Komplet kopieren und nicht immer an den Punkt 0,0

Das Demo (Projekt ist im Anhang und könnt Ihr testen

_