   361

Imagel->Canvas->MoveTo(Xpos,Yhead+4) ;

Imagel->Canvas->LineTo(Xpos+revers*L,Yhead+4) ;

Imagel->Canvas->Ellipse(Xpos+revers*L-Rhead2,Yhead+4-Rhead2,

Xpos+revers*L+Rhead2,Yhead+4+Rhead2)
Imagel->Canvas->Ellipse(Xpos-Rhead,Yhead,Xpos+Rhead,

Yhead-2*Rhead) ;

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

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

/-

aid _fastcall TFormI::TimerlTimer(TObject *Sender)

3raw() ;

i-f ( (Xpos >= Imagel-:?Picture->Width-H) | | (Xpos <= H) )
revers = -revers;

<pos = Xpos + revers * H;

ium = 1  num;

3raw() ;

/-

3id _fastcall TFormI::BRunClick(TObject *Sender)

rimerl->Enabled - ! Timerl->Enabled;

//-

void _fastcall TFormI::FormCreate(TObject *Sender)
f

Image!->Canvas->MoveTo(0,Ypos+3);

Imagel->Canvas->Pen->Width = 4;

Imagel->Canvas->LineTo(Imagel->ClientWidth,Ypos+3); // 

Imagel->Canvas->Pen->Width = 1;

Imagel->Canvas->Pen->Mode = pmNotXor;

Draw() ;

}

          FormCreate, -
   OnCreate .     -
,  ,      .  -
   pmNotXor.      Draw,
    .

 BRunClick    OnClick . -
       ,    -
   .

 TimerlTimer    OnTimer .
  ,        . -
   Draw.      
   ,         , 
   . ,   -
.     Xpos.     
-   Imagel  ,   H,  
    revers,   .
 revers = 1,   ;  revers = -1,   -
.   Xpos    revers * H, ..    
.   num,    
: 0  1.     Draw,   -
    .

 ,      Draw, 
.   ,      .   