Im Beispiel-Code für LoadFromClipboardFormat in der Delphi-Hilfe wird mit "0" für den Paletten-Parameter gearbeitet. Liegt es vielleicht daran?
Für ein TPicture ist der Beispielcode ja einfach nur
Picture.LoadFromClipboardFormat(cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);
Danke, Gausi.
Nein ,daran liegt es nicht.
Mit 0 statt Palette machte ich es ursprünglich.
Dann sah ich dieses:
Delphi-Quellcode:
procedure TClipboard.AssignToBitmap(Dest: TBitmap);
var
Data: THandle;
Palette: HPALETTE;
begin
Open;
try
Data := GetClipboardData(CF_BITMAP);
Palette := GetClipboardData(CF_PALETTE);
Dest.LoadFromClipboardFormat(CF_BITMAP, Data, Palette);
finally
Close;
end;
end;
Zur Vollständigkeit:
Nach Palette :=
GetClipboardData(CF_PALETTE);
ist Palette = 0.