//----------------  u7_3_3  -----------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "u7_3_3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tf7_3_3 *f7_3_3;
//---------------------------------------------------------------------------
__fastcall Tf7_3_3::Tf7_3_3(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tf7_3_3::FormPaint(TObject *Sender)
{
  Canvas->Pen->Width=3;
  Canvas->MoveTo(50,50);
  Canvas->LineTo(75,75);
  Canvas->LineTo(100,50);
  Canvas->MoveTo(75,75);
  Canvas->LineTo(75,100);

  TPoint p[6];
  p[0]=Point(200,50);
  p[1]=Point(175,70);
  p[2]=Point(175,100);
  p[3]=Point(225,100);
  p[4]=Point(225,70);
  p[5]=Point(200,50);
  Canvas->Polyline(p,5);

  Canvas->Pen->Width=1;
  Canvas->Brush->Style=bsDiagCross;
  p[0]=Point(300,50);
  p[1]=Point(275,100);
  p[2]=Point(325,100);
  Canvas->Polygon(p,2);

  Canvas->Brush->Style=bsClear;
  Canvas->Rectangle(50,150,350,250);
  Canvas->Ellipse(47,147,53,153);
  Canvas->Ellipse(97,247,103,253);
  Canvas->Ellipse(247,147,253,153);
  Canvas->Ellipse(347,247,353,253);
  p[0]=Point(50,150);
  p[1]=Point(100,250);
  p[2]=Point(250,150);
  p[3]=Point(350,250);
  Canvas->PolyBezier(p,3);
}
//---------------------------------------------------------------------------