Форум: "Базы";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Вниз

Ламерский вопрос про DbGrid   Найти похожие ветки 

← →
Quest   (2002-02-14 12:08) [23]

>Анонимщик ©
это вопрос скорее к ray_wagner © - открывшему эту ветку :))

>>на какой строке именно находишься
текущую строку видимой части TDBGrid
With TStringGrid(DBGrid1) Do
Begin
Col // столбец
Row // строка
End;
если текущее значение, то это через DataSet
...
но по моему ты ошибаешся относительно моего предыдущего ответа, ведь здесь как раз и учитывается ширина текста в ячейке:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
With (Sender as TDBGrid).Canvas Do

// ЭТО ширина содержимого ячейки
if TextWidth(Column.Field.text) > column.Width then

column.Width := TextWidth(Column.Field.text) + <приращение относительно ширины DBGrid>;
End;

---

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

Форум: "Базы";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Наверх

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