StringGrid + StringColumn + выравнивание

[walexw]

Можно ли содержимое колонки StringColumn в StringGrid'е выровнять по центру?
Если можно, то как?
Спасибо.

[AngryOwl]

Если не ошибаюсь - никак...

А если точнее - то только "ручками", отрисовывая текст самостоятельно, в переопределенных процедурах отрисовки ячеек.

[Равиль Зарипов (ZuBy)]

отрисовать самому?

procedure TFormMain.sGridDrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn;
const Bounds: TRectF; const Row: integer; const Value: TValue; const State: TGridDrawStates);
begin
    aBounds := Bounds;
    aBounds.Left := aBounds.Left + 2;
    Canvas.BeginScene;
    Canvas.Fill.Color := TAlphaColorRec.Red;
    Canvas.FillRect(Bounds, 0, 0, AllCorners, 1);
    Canvas.Fill.Color := TAlphaColorRec.White;
    Canvas.FillText(aBounds, (Sender as TStringGrid).Cells[1, Row], false, 1, [], TTextAlign.Center, TTextAlign.Center);
    Canvas.EndScene;
end;

 

[walexw]

Я понял.
Всем спасибо!