Подскажите пожалуйста, как выровнять текст в TStringGride...

← →
EXE (2003-01-21 15:46) [0]

Подскажите пожалуйста начинающему программисту, как выровнять текст в TStringGride по правому краю столбца и снять выделение мышью.
Заранее благодарен.

← →
uw © (2003-01-21 16:16) [1]

Выровнять можно, например, функцией Format. Любой фон ячейки можно задать посредством Canvas.Brush.Color в событии OnDrawCell.

← →
EXE (2003-01-21 16:36) [2]

uw - можно пример ...

← →
uw © (2003-01-21 16:51) [3]

procedure TForm1.Form1DrawCell(Sender: TObject; Col,
Row: Integer; Rect: TRect; State: TGridDrawState);
begin
(Sender as TStringGrid).Canvas.Brush.Color := AnyColor;
(Sender as TStringGrid).Canvas.FillRect(Rect);
Cells[Col, Row] := Format("%8d", AnyInteger);
end;

Еще неплохо бы задать непропорциональный фонт. Например, Courier.

← →
EXE (2003-01-21 17:07) [4]

uw - БОЛЬШОЕ СПАСИБО !!!

Подскажите пожалуйста, как выровнять текст в TStringGride... Найти похожие ветки