Одну из колонок DBGrid сделать многострочной

@Hagk · Регистрация: 11.08.2014

Студворк — интернет-сервис помощи студентам

Ребят, помогите реализовать Многострочный DBGrid (одну из его колонок)...
Уже двое суток ковыряю и ничего найти путевого не могу...((
Уж начал сомневаться в данной возможности.
У меня ввод информации через компонент Memo, который в свою очередь при клике "Добавить запись в БД" переносится в Одну из ячеек DBGrid. Но проблема в том, что через Memo в столбике DBGrid отображается запись в строку да еще и с непонятными символами...
Написали, что можно через DrawText DBGrid, но я не настолько хорошо знаком с данным делом. И, признаться честно даже не понимаю о чем идет речь((
Благодарю!

@c0rvax · 14.08.2014, 13:36

О чём идёт речь: надо написать собственный обработчик события OnDrawColumnCell, в котором можно отрисовывать любую ячейку как угодно. Функция DrawText позволяет отрисовать строку с автоматическим переносом пословно в заданном TRect.

@volvo · 14.08.2014, 14:23

Hagk, вот тебе простейший пример:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
class THackDBGrid : public TDBGrid
{
public:
    inline __fastcall virtual THackDBGrid(TComponent* AOwner) : TDBGrid(AOwner)
    {
    }
 
    __property RowHeights;
};
 
void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,
    const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State)
{
    const int Height = 75;
 
    TDBGrid *grid = dynamic_cast<TDBGrid*>(Sender);
    int index = grid->DataSource->DataSet->RecNo;
    String s = Column->Field->AsWideString;
 
    static_cast<THackDBGrid*>(DBGrid1)->RowHeights[index] = Height;
    TRect LRec;
    CopyRect(&LRec, &Rect);
    LRec.Bottom += Height;
 
    if (State.Contains(gdSelected))
    {
        grid->Canvas->Brush->Color = clBlue;
        grid->Canvas->Font->Color = clWhite;
    }
    else
    {
        grid->Canvas->Brush->Color = clWhite;
        grid->Canvas->Font->Color = clBlack;
    }
    grid->Canvas->FillRect(LRec);
 
    if (Column->Field->ClassNameIs("TWideMemoField"))
    {
        DrawText(grid->Canvas->Handle, s.c_str(), -1, &LRec,
            DT_LEFT | DT_WORDBREAK);
    }
    else
        grid->DefaultDrawColumnCell(LRec, DataCol, Column, State);
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    DBGrid1->DefaultDrawing = false;
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::ADOTable1infoGetText(TField *Sender,
    UnicodeString &Text, bool DisplayText)
{
    Text = Sender->AsWideString;
}

Результат:

Одну из колонок DBGrid сделать многострочной

Как видишь, многострочные тексты отображаются прекрасно. Дорабатывай...

@Hagk · 14.08.2014, 16:43 **[ТС]**

Уложил на лопатки...

Спасибо!
Буду пробовать...
Я нуб, но ОЧЕНЬ нравится!

@duh_si · 17.10.2014, 13:01

День добрый.
UI, пытаюсь использовать предложенный вами код.
я из БД в DBGrid вывожу записи (использую ADOQuery)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
void __fastcall TListMessage::DBGrid1DrawColumnCell(TObject *Sender, const TRect &Rect,
          int DataCol, TColumn *Column, TGridDrawState State)
{
const int Height = 45;
 
    TDBGrid *grid = dynamic_cast<TDBGrid*>(Sender);
    int index = grid->DataSource->DataSet->RecNo;
    String s = Column->Field->AsWideString;
 
    static_cast<THackDBGrid*>(DBGrid1)->RowHeights[index] = Height;
    TRect LRec;
    CopyRect(&LRec, &Rect);
    LRec.Bottom += Height;
 
    if (Column->Field->ClassNameIs("TWideMemoField"))
    {
        DrawText(grid->Canvas->Handle, s.c_str(), -1, &LRec,
            DT_LEFT | DT_WORDBREAK);
    }
    else
        grid->DefaultDrawColumnCell(LRec, DataCol, Column, State);
         
if(DataModuleABS->ADOQueryMessage->FieldByName("ВыделитьНовость")->AsBoolean == true)
             {
              DBGrid1->Canvas->Brush->Color = clGray;
              DBGrid1->Canvas->Font->Color = clBlack;
             }
 
             DBGrid1->DefaultDrawColumnCell(Rect,DataCol,Column,State);

Но все равно запись не выводиться в 2 строки, приходиться скролингом двигать.
Можно ли как то сделать, чтобы в две строки выводилось?

@volvo · 17.10.2014, 13:19

Ну, и зачем твои 28 строк? Чтобы в 29-ой вывести содержимое ячейки стандартным образом? Вот так попробуй:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
void __fastcall TListMessage::DBGrid1DrawColumnCell(TObject *Sender,
    const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State)
{
    const int Height = 45;
 
    TDBGrid *grid = dynamic_cast<TDBGrid*>(Sender);
    int index = grid->DataSource->DataSet->RecNo;
    String s = Column->Field->AsWideString;
 
    static_cast<THackDBGrid*>(DBGrid1)->RowHeights[index] = Height;
    TRect LRec;
    CopyRect(&LRec, &Rect);
    LRec.Bottom += Height;
 
    if(grid->DataSource->DataSet->FieldByName("ВыделитьНовость")->AsBoolean == true)
    {
        grid->Canvas->Brush->Color = clGray;
        grid->Canvas->Font->Color = clBlack;
    }
    else
    {
        grid->Canvas->Brush->Color = clWhite;
        grid->Canvas->Font->Color = clBlack;
    }
    grid->Canvas->FillRect(LRec);
 
    if (Column->Field->ClassNameIs("TWideMemoField"))
    {
        DrawText(grid->Canvas->Handle, s.c_str(), -1, &LRec,
            DT_LEFT | DT_WORDBREAK);
    }
    else
        grid->DefaultDrawColumnCell(LRec, DataCol, Column, State);
}

@duh_si · 17.10.2014, 13:54

UI, не помогло, все равно заезжает под соседний столбец

@volvo · 17.10.2014, 14:02

Ну не знаю, у меня не заезжает:

@duh_si · 17.10.2014, 14:11

UI, один вопрос
а вот этот код

C++
1
2
3
4
5
void __fastcall TForm1::ADOTable1infoGetText(TField *Sender,
    UnicodeString &Text, bool DisplayText)
{
    Text = Sender->AsWideString;
}

где нужно разместить?

@volvo · 17.10.2014, 14:23

У меня он вот тут:

@duh_si · 17.10.2014, 16:29

тупик какой то, до этого я использовал ADOQuery сделал все как описано выше.
потом переделал под ADOTable, ничего не заработало.

UI, я смотрю вы используете подключение к БД Access, у меня БД на MSSQL, может ли бы причина в этом?

@volvo · 17.10.2014, 17:13

Не-а, не в этом. Только что подключил вместо Access-овской базы FireBird (MSSQL не держу) - то же самое, длинный текст прекрасно переносится на вторую строку...

@duh_si · 20.10.2014, 16:54

UI,можете посмотреть программу в архиве.
просто уже и на БД Access попробовал, не выводит в 2 строки и все тут, может какой момент упускаю.

@volvo · 20.10.2014, 19:01

Сообщение от duh_si

можете посмотреть программу в архиве.

Посмотрел. Программа для меня бесполезна, у меня нечем открыть *.accdb, только *.mdb...

@FIL · 20.10.2014, 21:11

duh_si, исправь:

C++
1
    if (Column->Field->ClassNameIs("TWideStringField"))

@duh_si · 20.10.2014, 21:58

FIL, UI, Спасибо за оказанную помощь.
Подскажите еще в одной проблеме, когда программа запущена и прокручиваю записи в низ, хоть скроллингом хоть мишкой, выскакивает ошибка grid index out of range
как победить эту ошибку?

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Hagk -1 / 0 / 2 Регистрация: 11.08.2014 Сообщений: 46

	Одну из колонок DBGrid сделать многострочной 14.08.2014, 11:36. Показов 3273. Ответов 15 Метки нет (Все метки) Ребят, помогите реализовать Многострочный DBGrid (одну из его колонок)... Уже двое суток ковыряю и ничего найти путевого не могу...(( Уж начал сомневаться в данной возможности. У меня ввод информации через компонент Memo, который в свою очередь при клике "Добавить запись в БД" переносится в Одну из ячеек DBGrid. Но проблема в том, что через Memo в столбике DBGrid отображается запись в строку да еще и с непонятными символами... Написали, что можно через DrawText DBGrid, но я не настолько хорошо знаком с данным делом. И, признаться честно даже не понимаю о чем идет речь(( Благодарю! 0

@c0rvax 91 / 91 / 22 Регистрация: 02.07.2013 Сообщений: 332
	14.08.2014, 13:36
	О чём идёт речь: надо написать собственный обработчик события OnDrawColumnCell, в котором можно отрисовывать любую ячейку как угодно. Функция DrawText позволяет отрисовать строку с автоматическим переносом пословно в заданном TRect. 1

@Hagk -1 / 0 / 2 Регистрация: 11.08.2014 Сообщений: 46
	14.08.2014, 16:43 [ТС]
	Уложил на лопатки... Спасибо! Буду пробовать... Я нуб, но ОЧЕНЬ нравится! 0

@duh_si 569 / 169 / 22 Регистрация: 18.10.2012 Сообщений: 912
	17.10.2014, 13:54
	UI, не помогло, все равно заезжает под соседний столбец Миниатюры 0

@volvo Супер-модератор 33197 / 21493 / 8233 Регистрация: 22.10.2011 Сообщений: 36,886 Записей в блоге: 12
	17.10.2014, 14:02
	Ну не знаю, у меня не заезжает: Миниатюры 0

@volvo Супер-модератор 33197 / 21493 / 8233 Регистрация: 22.10.2011 Сообщений: 36,886 Записей в блоге: 12
	17.10.2014, 14:23
	У меня он вот тут: Миниатюры 1

@duh_si 569 / 169 / 22 Регистрация: 18.10.2012 Сообщений: 912
	17.10.2014, 16:29
	тупик какой то, до этого я использовал ADOQuery сделал все как описано выше. потом переделал под ADOTable, ничего не заработало. UI, я смотрю вы используете подключение к БД Access, у меня БД на MSSQL, может ли бы причина в этом? Миниатюры 0

@volvo Супер-модератор 33197 / 21493 / 8233 Регистрация: 22.10.2011 Сообщений: 36,886 Записей в блоге: 12
	17.10.2014, 17:13
	Не-а, не в этом. Только что подключил вместо Access-овской базы FireBird (MSSQL не держу) - то же самое, длинный текст прекрасно переносится на вторую строку... 1

@duh_si 569 / 169 / 22 Регистрация: 18.10.2012 Сообщений: 912
	20.10.2014, 21:58
	FIL, UI, Спасибо за оказанную помощь. Подскажите еще в одной проблеме, когда программа запущена и прокручиваю записи в низ, хоть скроллингом хоть мишкой, выскакивает ошибка grid index out of range как победить эту ошибку? 0