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

#include <vcl.h>
#pragma hdrstop

#include "TImageCanvas.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
// BeginExample: TImageCanvas
// Property: ExtCtrls.TImage.Canvas
// Method: Graphics.TCanvas.Ellipse
// Property: Graphics.TBrush.Color
// Property: Graphics.TBrush.Style

// BeginCode
/*
The following example paints a cross-hatched ellipse onto 
Image1 which is a TImage on the form when the user clicks on
Button1.
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TCanvas *pCanvas = Image1->Canvas;
  pCanvas->Brush->Color = clRed;
  pCanvas->Brush->Style = bsDiagCross;
  pCanvas->Ellipse(0, 0, Image1->Width, Image1->Height);
}
// EndCode
// EndExample: TImageCanvas
//---------------------------------------------------------------------------
