  _________________________________363

void   fastcall TFormI::FormCreate(TObject *Sender)
{

BitMap = new Graphics::TBitmap;

BitMap->Width = 1 * (L + Rhead) ;

BitMap->Height = L + Hmen + 2 * Rhead + 6;

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

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

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

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

BitMap->Canvas->CopyRect(Rect(0,0,BitMap->Width,BitMap->Height),

Imagel->Canvas,Rect(Xpos-L-
Rhead,Ypos-(L+Hmen+2*Rhead+5),Xpos+L+Rhead,Ypos+1) ) ;

Draw() ;

)

       BitMap  
      .  
,   Draw   BitMap  CopyRect -
  ,      .
   Draw   .  -
,      ,   
 pmNotXor.         .

    Bitmap,      
  OnDestroy ,    

BitMap->Free() ;

 TimerlTimer   :

void   fastcall TFormI::TimerlTimer(TObject *Sender)
(
Imagel->Canvas->Draw(Xpos-L-Rhead, Ypos-L-Hmen-2*Rhead-5,BitMap);

if ((Xpos >= Imagel->Picture->Width - H) I (Xpos <= H))
revers = -revers;

Xpos = Xpos + revers * H;

num = 1  num;

BitMap->Canvas->CopyRect(Rect(0,0,BitMap->Width,BitMap->Height),

Imagel->Canvas, Rect(Xpos-L-Rhead,
Ypos-(L+Hmen+2*Rhead+5),Xpos+L+Rhead,Ypos+1));

Draw() ;

1

    ,     ,  , 
    Draw,    , -
  Imagel->Canvas->Draw,     , 
       . 
    BitMap->Canvas->CopyRect,  -
  Draw    .

   .  .  ,    -
    .    ,    .  -
   ,   . 5.17.    
  ,     ,    .
        .   
 :     , ,    -
   .  ,   ,   -
    .

       .   
         
     .    -
  .   ,       -