Текущий архив: 2002.07.22;
Скачать: CL | DM;

Вниз

Выравнивание текста в ячейках StringGrid   Найти похожие ветки 

← →
ize   (2002-07-10 11:08) [0]

Народ! подскажите, кто знает, как сделать выравнивание текста по правому краю в одном столбце объекта TStringGrid.

---

← →
Skier   (2002-07-10 11:28) [1]

>ize
В обработчике OnDrawCell
напиши примерно так :


procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
with Sender as TStringGrid do begin
if ACol = 1 then //для первой колонки
Canvas.TextRect(Rect,
Rect.Right-Canvas.TextWidth(Cells[ACol,
ARow])-2,
Rect.Top+2,
Cells[ACol, ARow]);
end; //with
end;


---

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

Текущий архив: 2002.07.22;
Скачать: CL | DM;

Наверх

Память: 0.43 MB
Время: 0.005 c