Многострочный DBGrid

[Bit_Man]

Всем добрый день. Есть бдгрид в котором нужно сделать колонку с многострочным текстом. полазив инете много чего нашел. немного разобравшись кое-что сделал (не судите строго) вод код

void __fastcall TZakaz_Uslcln::DBGrid2DrawColumnCell(TObject *Sender,
      const TRect &Rect, int DataCol, TColumn *Column,
      TGridDrawState State)
{    
    TDBGrid * DBGrid = (TDBGrid*)Sender;
    if(
        Column->Field->FieldName == "Время приема"
        && !Column->Field->Value.IsEmpty())
      {
       WORD Format;
       switch (Column->Alignment)
        {
         case taLeftJustify  : Format = DT_SINGLELINE || DT_LEFT;   break;
         case taRightJustify : Format = DT_SINGLELINE || DT_RIGHT;  break;
         case taCenter       : Format = DT_SINGLELINE || DT_CENTER; break;
        }
       TRect ARect = Rect;
//тут не ообращайте внимания
       ARect.Top   = Rect.Top + 1;
       ARect.Left  = Rect.Left + 1;
       ARect.Right = Rect.Right - 1;
       DBGrid->Canvas->FillRect(Rect);
       
//Вот тут проблема       ((TStringGrid*)DBGrid)->RowHeights[DBGrid->DataSource->DataSet->RecNo] =
       DrawText(DBGrid->Canvas->Handle, Column->Field->AsString.c_str(), -1
           /*Column->Field->AsString.Length()*/, &ARect, Format);
      }
}

И так проблемы:
1. при прокрутке проблемы прорисовки.
2. DBGrid->DataSource->DataSet->RecNo при достижении конца грида выводит ошибку что "Grid index out of range", т.е. вроде это индекса нет. Решение пока не придумал.
3. В гриде 5 или 6 строк которые стали больше тем самым не помещаются в видимой части. как сделать так чтобы при помещении курсора на строку в невидимой части "поднять" ее в видимую часть (скорее всего тут управление скролбаром)
Возможно еще появятся вопросы. Прошу всех откликнутся кто сталкивался с проблемой. Делфистам тоже буду рад. Ответы типа "Возьми др. компонент типа ...." не писать.

[Drugnir]

//Вот тут проблема       ((TStringGrid*)DBGrid)->RowHeights[DBGrid->DataSource->DataSet->RecNo] =
       DrawText(DBGrid->Canvas->Handle, Column->Field->AsString.c_str(), -1
           /*Column->Field->AsString.Length()*/, &ARect, Format);

Строки с нуля начинаются, RecNo-1 строка последняя.
http://www.delphimaster.ru/articles/...rid/index.html
Посмотри, может тут что еще подсмотрите.

[Bit_Man]

Строки с нуля начинаются, RecNo-1 строка последняя.

это ясно дело, но RecNo - 1 это заголовок, а мне его не зачем править.
Ссылка эта давно у меня открыта, но все равно спасибо.
С StringGrid'ом легче.

StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);

есть ARrow - строка и по ней можно увеличить размер.

StringGrid1.RowHeights[ARow] := H;  //увеличиваем

Но в DBGrid'е нет этого, вот и поставил

DBGrid->DataSource->DataSet->RecNo

но при переходе на след. запись которую не отрисовал дбгрид после открытия возникает ошибка.

[Drugnir]

Надо же каждой строки, высоту поменять? Почему RecNo-1 - это заголовок?
нам нужен цикл:

for(int i=1; i<=DBGrid->DataSource->DataSet->ReсordCount; i++)

и в нем менять высоту строки, не должно ругаться вроде бы
http://www.cyberforum.ru/delphi-data...ead442789.html

[Bit_Man]

Да высоту каждой строки. DBGrid->DataSource->DataSet->RecNo - 1 на перввой записи (т.е. 1-1=0) ((TStringGrid*)DBGrid)->RowHeights[0] - это высота заголовка, а нам не зачем его трогать.
Ругаться по идее не должно и я так думал, практика взяла свое. Ошибку я уже писал. Пробовал и AfterQueryOpen пересчитывать и увеличивать размер строки, ошибка та же.

[Drugnir]

Сделав в цикле, который я написал, это будет i-ая строка , а не DBGrid->DataSource->DataSet->RecNo. Можно еще условие поставить,

if (i == DBGrid->DataSource->DataSet->RecNo) {
((TStringGrid*)DBGrid)->RowHeights[DBGrid->DataSource->DataSet->RecNo] =
       DrawText(DBGrid->Canvas->Handle, Column->Field->AsString.c_str(), -1
           /*Column->Field->AsString.Length()*/, &ARect, Format);
}

[Bit_Man]

если мы сделаем так

while (!DBGrid->DataSource->DataSet->Eof)
{
((TStringGrid*)DBGrid)->RowHeights[DBGrid->DataSource->DataSet->RecNo] =
       DrawText(DBGrid->Canvas->Handle, Column->Field->AsString.c_str(), -1
           /*Column->Field->AsString.Length()*/, &ARect, Format)
DBGrid->DataSource->DataSet->Next();
}

получится тот же самый цикл что и ты предложил. разве не так?

[Drugnir]

Переписал, вместо DBGrid->DataSource->DataSet->RecNo, вот это DBGrid1->SelectedField->FieldNo. Ошибка не вылетает, но как-то криво работает и только на выбранной строке. Там проблема, как я понял, именно с номером строки.

[Bit_Man]

DBGrid1->SelectedField->FieldNo - это номер поля. Т.е. при прорисовке ты же никуда не перемещаешься на другое поле (field or column). вот у тебя и получается что 1 при открытии DataSet. Да проблема именно изза этого.
Смотри что получается. Если не изменять высоту строк, то при открытии DataSet DBGrid отрисовывает то количество строк которое может уместить (напирмер 5). При увеличении высоты строк при переходе с 5 на 6 запись у меня выходит ошибка.

[Drugnir]

DBGrid2DrawColumnCell выполняется постоянно, при выборе ячейки, это я заметил, когда ненароком вставил туда цикл. По-этому и взял SelectedField, но блин, событие какое-то странное, даже когда выделил ячейку и ничего не делаешь, он все равно постоянно перерисовывает и лезет в DrawColumnCell. Думаю не очень подходит это событие.