• From: Братск, Россия (Bratsk Russia)
  • Registered: 2017-08-16
  • Posts: 34

Topic: TableGrid с многострочными ячейками

Собственно, вопрос в заголовке темы - бывает ли TableGrid (точнее, похожий на него компонент), в котором возможно размещение в нескольких строках. Для примера накидал в Excel ячейки с несколькими строками.
Вопрос не для решения какой-то конкретной задачи, а так, для самообразования.

Post's attachments

Attachment icon 2018-01-17_13-40-17.png 3.66 kb, 256 downloads since 2018-01-17 

2 Reply by Raspr (edited by Raspr 2018-01-17 09:10:17)

  • Registered: 2016-02-28
  • Posts: 124

Re: TableGrid с многострочными ячейками

Из готового примера. Адаптивная высота строки в TableGrid по содержимому:

procedure frmIndex_tgNews_OnColumnResize (Sender: string; ACol: Integer);
begin
    frmIndex_tgNews_OnChange ('');
end;

procedure frmIndex_tgNews_OnChange (Sender: string);
var
    i, c: integer;
begin
    frmIndex.tgNews.Options := frmIndex.tgNews.Options or goRowResizing;

    c := frmIndex.tgNews.Columns.Count - 1;
    for i := 0 to c do
    begin
        frmIndex.tgNews.Columns[i].VerticalAlignment := taAlignTop;
        frmIndex.tgNews.Columns[i].WrapKind := wkWordWrap;
    end;

    c := frmIndex.tgNews.RowCount - 1;
    for i := 0 to c do frmIndex.tgNews.BestFitRow(i);
end;

Стоит добавить, что добавляя запись в поле Memo сохраняется перенос строк, если таковой имеется.

  • From: Братск, Россия (Bratsk Russia)
  • Registered: 2017-08-16
  • Posts: 34

Re: TableGrid с многострочными ячейками

Спасибо! Что-то я на http://myvisualdatabase.com/help_ru/  заглянуть не догадался)))