Форум: "Основная";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];

Вниз

Подскажите пожалуйста, как выровнять текст в 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 - БОЛЬШОЕ СПАСИБО !!!

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c