//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "ClipboardAssign.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
// BeginExample: ClipboardAssign
// Method: Clipbrd.TClipboard.Assign
// Property: Buttons.TSpeedButton.Glyph

// BeginCode
/*
The following line copies the bitmap of a speed button named
SpeedButton1 to the clipboard and then copies the clipboard
to the image picture.  Note that you must add Clipbrd to the
uses clause.
*/
#include <Clipbrd.hpp>

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Clipboard()->Assign(SpeedButton1->Glyph);
  Image1->Stretch = True;
  Image1->Picture->Assign(Clipboard());
}
// EndCode
// EndExample: ClipboardAssign
//---------------------------------------------------------------------------
