Was kann Paint, was ich nicht kann? ( Clipboard pasten )

[DGL-luke]

Hallo,

danke für deine Bemühungen, Khabarakh. Die Lib namens "gdiplus" gibts bei torry, hier: http://www.torry.net/quicksearchd.ph...plus&Title=Yes

Mein Code:

Delphi-Quellcode:

procedure TFMain.SBPasteClick(Sender: TObject);
var pic: TPicture;
    bitmap: TGPBitmap; //GDI-bitmap
    g: TGPGraphics; //GDI-"Canvas"
begin
  pic := TPicture.Create;

  if Clipboard.HasFormat(CF_BITMAP) then
    begin
      bitmap := TGPBitmap.Create(Clipboard.GetAsHandle(CF_BITMAP),0);
      pic.Bitmap.SetSize(bitmap.GetWidth,bitmap.GetHeight);
      g := TGPGraphics.Create(pic.Bitmap.Canvas.Handle);
      g.DrawImage(bitmap,0,0);
      bitmap.Free;
      g.free;
    end
  else
   Exit;

  if not pic.Bitmap.Empty then //schlägt bei GIMP-Auschnitt an
    LoadImage(pic);
  pic.Free;
end;

Bei meinen Versuchen schien das Bild selbst übrigens gleichgültig zu sein(habe mehrere ausprobiert, allerdings jeweils nur mit GIMP, Vergleich war ein einfacher Screenshot per Druck-Taste), entscheidend war der "Export" mit GIMP (Version 2.2.8).