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

#include <vcl.h>
#pragma hdrstop

#include "TPictureGraphic.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
// BeginExample: TPictureGraphic
// Property: ExtCtrls.TImage.Picture
// Property: Graphics.TPicture.Graphic
// Property: Controls.TGraphicControl.Canvas
// Method: Graphics.TCanvas.Draw

// BeginCode
/*
The following code draws the graphic in Picture1 in the
top-left corner PaintBox1.  Place a TPaintBox in the form 
and a TImage in the form that contains a picture.
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  PaintBox1->Canvas->Draw(0,0, Image1->Picture->Graphic);
}
// EndCode
// EndExample: TPictureGraphic
//---------------------------------------------------------------------------
