360  5

. 5.15

   

     .     -
      ,    Interval 
 , , 500 (    -
,     0,5 ).   Enabled -
   false.      .

   .    . 
   

void _fastcall Draw () ;

  ,    .   -
    :

short int num = 0;

short int H=20;               // 
short int Xpos = 2 * H;       //  
short int Ypos = 120;         // ""
short int Hmen =30;          //  
short int Rhead =10;         //  
short int Rhead2 = Rhead / 2; //  
short int revers = 1;         //  
short int L=H*1.41;       //  

//-

void _fastcall TFormI::Draw()

(

short int Yhead;                              //   

switch (num)

(
case 0:

Yhead = Ypos-H-Hmen;

Imagel->Canvas->MoveTo(Xpos-H,Ypos);

Imagel->Canvas->LineTo(Xpos,Ypos-H);        // 
Imagel->Canvas->LineTo(Xpos+H,Ypos);        //  
Imagel->Canvas->MoveTo(Xpos,Ypos-H);

Imagel->Canvas->LineTo(Xpos,Yhead);         // 
Imagel->Canvas->MoveTo(Xpos+revers*H,Yhead-H) ;

Imagel->Canvas->LineTo(Xpos,Yhead+4);       // 
Imagel->Canvas->Ellipse(Xpos+revers*H-Rhead2,Yhead-H-Rhead2,

Xpos+revers*H+Rhead2,Yhead-H+Rhead2) ;

Imagel->Canvas->LineTo(Xpos+revers*H,Yhead+H);     //  
Imagel->Canvas->Eliipse(Xpos+revers*H-Rhead2,Yhead+H-Rhead2,

Xpos+revers*H+Rhead2,Yhead+H+Rhead2);

Imagel->Canvas->Ellipse(Xpos-Rhead,Yhead,Xpos+Rhead,Yhead-2*Rhead) ;

Imagel->Canvas->Rectangle(Xpos-Rhead,Yhead-2*Rhead-l,

Xpos+Rhead,Yhead-2*Rhead-4);       // 
break;

case 1:

Yhead = Ypos-L-Hmen;

Imagel->Canvas->MoveTo(Xpos,Ypos) ;

Imagel->Canvas->LineTo(Xpos,Yhead);