Размеры колонок и строк, выравнивание

Code:

procedure WriteText(ACanvas: TCanvas; const ARect: TRect; DX, DY: Integer;

const Text: string; Format: Word);

var

S: array[0..255] of Char;

B, R: TRect;

begin

with ACanvas, ARect do

begin

   case Format of

     DT_LEFT: ExtTextOut(Handle, Left + DX, Top + DY, ETO_OPAQUE or

       ETO_CLIPPED,

         @ARect, StrPCopy(S, Text), Length(Text), nil);

     DT_RIGHT: ExtTextOut(Handle, Right - TextWidth(Text) - 3, Top + DY,

         ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text),

         Length(Text), nil);

     DT_CENTER: ExtTextOut(Handle, Left + (Right - Left - TextWidth(Text)) div

       2,

         Top + DY, ETO_OPAQUE or ETO_CLIPPED, @ARect,

         StrPCopy(S, Text), Length(Text), nil);

   end;

end;

end;

procedure TBEFStringGrid.DrawCell(Col, Row: Longint; Rect: TRect; State:

TGridDrawState);

var

procedure Display(const S: string; Alignment: TAlignment);

const

   Formats: array[TAlignment] of Word = (DT_LEFT, DT_RIGHT, DT_CENTER);

begin

   WriteText(Canvas, Rect, 2, 2, S, Formats[Alignment]);

end;

begin

{ здесь задаем аргументы Col и Row, и форматируем как угодно ячейки }

case Row of

   0: { Центрирование заголовков колонок }

     if (Col < ColCount) then

       Display(Cells[Col, Row], taCenter)

     else

       { Все другие данные имеют правое центрирование }

       Display(Cells[Col, Row], taRight);

end;

end;