, , , , ______________________1019

LONG ;

);

TSize _fastcall TextExtent(const AnsiString Text);



 TextExtent    TSize,   
    Text,      (.
Canvas)  .        -
          -
 .

         -
 TextHeight  TextWidth.



String st = Editl->Text;

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

      ,   
  Editi,        -
  ()     .

TextHeight__________________________________________

    ,    
  

 TCanvas



int   fastcall TextHeight(const AnsiString Text);



 TextHeight      Text, 
    Canvas  .   
           
   .

   TextExtent.    ,  -
 .  TextHeight   ,  TextExtent(Text).cy.



String st = Editl->Text;

Imagel->Canvas->TextOut (Imagel->ClientWidth  Imagel->Canvas->
TextExtent(st).ex)/2,
Imagel->Canvas->TextHeight(st), st);

   ,     -
 Editi,    Imagel,       -
       .

.      TextRect.

TextOut

     ,    
 TCanvas