, , , , ______________________1021

2 = 200;

Y2 = 150;

Imagel->Canvas->Brush->Color = cIRed;

Imagel->Canvas->TextRect (Rect(XI,Yl,X2,Y2) ,

X1+(X2-Xl-Imagel->Canvas->TextWidth(st) ) / 2,
Y1+(Y2-Yl-Imagel->Canvas->TextHeight(st)) / 2, st);

        Imagel 
        TextRect , -
     Editl.   
  ,   .    
    ,      
.
2.       

Imagel->Canvas->TextRect (Rect(Xl-5,Yl-5,Xl+Imagel->
Canvas->TextWidth(st)+5,
Yl+Imagel->Canvas->TextHeight(st)+5), XI, Yl, st);

           -
 ,  5       . 
 ,    ,   
   

TextOut(Xl,Yl,st) ;

  TextOut.

TextWidth

    ,    
  

 TCanvas



int   fastcall TextWidth(const AnsiString Text);



 TextWidth      Text,  -
    (. Canvas)  .   -
            -
    .

   TextExtent.    , 
 .  TextWidth   ,  TextExtent(Text).cx.



String st = Editl->Text;

Canvas->TextOut(ClientWidth - Canvas->TextWight(st))/2,
Canvas->TextExtent(st).cy, st);

      ,   
  Editl,        -
      .

.      TextRect.

TryLock

 ,     ,    
    