Т.С.П.П / Махинации с ТСПП / Махинации с ТСПП / ТПСПП / PR_5 / PR_5 / Unit1

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 int x=80,y=30;
 int dx,dy;

 Image1->Picture->Bitmap = NULL;
 dy=dx=StrToInt(TrackBar1->Position);

  Canvas->Brush->Color=clRed;
 Image1->Canvas->FloodFill(250,150,clRed,fsSurface);

 Image1->Canvas->Pen->Width=3;
 Image1->Canvas->MoveTo(x+0*dx,y+7*dy);
 Image1->Canvas->LineTo(x+0*dx,y+6*dy);

 Image1->Canvas->MoveTo(x+0*dx,y+6*dy);
 Image1->Canvas->LineTo(x+1*dx,y+6*dy);

 Image1->Canvas->MoveTo(x+1*dx,y+6*dy);
 Image1->Canvas->LineTo(x+1*dx,y+3*dy);

 Image1->Canvas->MoveTo(x+2*dx,y+3*dy);
 Image1->Canvas->LineTo(x+2*dx,y+0*dy);

 Image1->Canvas->MoveTo(x+1*dx,y+3*dy);
 Image1->Canvas->LineTo(x+2*dx,y+3*dy);

 Image1->Canvas->MoveTo(x+3*dx,y+0*dy);
 Image1->Canvas->LineTo(x+3*dx,y+3*dy);

 Image1->Canvas->MoveTo(x+3*dx,y+0*dy);
 Image1->Canvas->LineTo(x+2*dx,y+0*dy);

 Image1->Canvas->MoveTo(x+7*dx,y+3*dy);
 Image1->Canvas->LineTo(x+3*dx,y+3*dy);

 Image1->Canvas->MoveTo(x+7*dx,y+3*dy);
 Image1->Canvas->LineTo(x+7*dx,y+1*dy);

 Image1->Canvas->MoveTo(x+13*dx,y+1*dy);
 Image1->Canvas->LineTo(x+13*dx,y+2*dy);

 Image1->Canvas->MoveTo(x+13*dx,y+1*dy);
 Image1->Canvas->LineTo(x+7*dx,y+1*dy);

 Image1->Canvas->MoveTo(x+12*dx,y+2*dy);
 Image1->Canvas->LineTo(x+13*dx,y+2*dy);

 Image1->Canvas->MoveTo(x+0*dx,y+7*dy);
 Image1->Canvas->LineTo(x+12*dx,y+7*dy);

 Image1->Canvas->MoveTo(x+12*dx,y+2*dy);
 Image1->Canvas->LineTo(x+12*dx,y+7*dy);

 Image1->Canvas->Rectangle(x+8*dx,y+2*dy,x+11*dx,y+4*dy);

 Image1->Canvas->Ellipse(x+1.6*dx,y+6*dy,x+3.6*dx,y+8*dy);
 Image1->Canvas->Ellipse(x+5.3*dx,y+6*dy,x+7.26*dx,y+8*dy);
 Image1->Canvas->Ellipse(x+9*dx,y+6*dy,x+10.93*dx,y+8*dy);
}
//---------------------------------------------------------------------------