Vcl.Graphics.TBitmap.SaveToClipboardFormat

De RAD Studio API Documentation
Aller à : navigation, rechercher

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;
	unsigned int 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;
	}
}

Voir aussi

Exemples de code