Vcl.Graphics.TBitmap.SaveToClipboardFormat
Delphi
procedure SaveToClipboardFormat(var Format: Word; var Data: THandle;
var APalette: HPALETTE); override;
C++
virtual void __fastcall SaveToClipboardFormat(System::Word &Format, NativeUInt &Data, HPALETTE &APalette);
Inhaltsverzeichnis
Eigenschaften
Typ | Sichtbarkeit | Quelle | Unit | Übergeordnet |
---|---|---|---|---|
procedure function |
public | Vcl.Graphics.pas Vcl.Graphics.hpp |
Vcl.Graphics | TBitmap |
Beschreibung
Erzeugt eine Kopie des Bitmap in einem Format, das von der Zwischenablage verarbeitet werden kann.
Mit SaveToClipboardFormat wird ein Bitmap in einem passenden Format für die Zwischenablage kopiert. Die Palette des Bitmap wird im Parameter APalette, das Format im Parameter AFormat und ein Handle auf die Daten im Parameter AData übergeben. Bevor das Bitmap gespeichert werden kann, muss die Anwendung das Format beim TBitmap-Objekt registriert haben. Dazu dient die Methode RegisterClipboardFormat.
Das folgende Codefragment zeigt, wie ein Bitmap in der Zwischenablage gespeichert wird.
- Hinweis: Mit dem Codefragment für die Methode LoadFromClipboardFormat können Sie ein Bitmap aus der Zwischenablage laden.
Delphi:
uses
Vcl.Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
var
MyFormat : Word;
Bitmap : TBitMap;
AData : THandle;
APalette : HPALETTE;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('C:\Users\Public\Pictures\Sample Pictures\desert.bmp');
Bitmap.SaveToClipBoardFormat(MyFormat, AData, APalette);
ClipBoard.SetAsHandle(MyFormat,AData);
finally
Bitmap.Free;
end;
end;
C++:
#include <Vcl.Clipbrd.hpp>
void __fastcall TForm1::Button1Click(TObject *Sender){
TClipboard* cb = Clipboard();
unsigned short MyFormat;
TBitmap* Bitmap;
THandle AData;
HPALETTE APalette;
Bitmap = new TBitmap();
try{
Bitmap->LoadFromFile("C:\\Users\\Public\\Pictures\\Sample Pictures\\desert.bmp");
Bitmap->SaveToClipboardFormat(MyFormat, AData, APalette);
cb->SetAsHandle(MyFormat, AData);
}
__finally{
delete Bitmap;
}
}