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);
Propriétés
Type | Visibilité | Source | Unité | Parent |
---|---|---|---|---|
procedure function |
public | Vcl.Graphics.pas Vcl.Graphics.hpp |
Vcl.Graphics | TBitmap |
Description
Crée une copie locale du bitmap au format du Presse-papiers.
Utilisez la méthode SaveToClipboardFormat pour copier le bitmap dans un des formats du Presse-papiers. La palette du bitmap est renvoyée comme valeur du paramètre APalette, le format comme valeur du paramètre AFormat et un handle aux données comme valeur du paramètre AData. Avant de pouvoir enregistrer le bitmap, une application doit avoir recensé le format utilisé par l'objet TBitmap en appelant la méthode RegisterClipboardFormat.
L'extrait de code suivant montre comment enregistrer un bitmap dans le Presse-papiers.
- Remarque : Pour charger un bitmap du Presse-papiers, vous pouvez utiliser l'extrait de code pour la méthode LoadFromClipboardFormat.
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;
}
}