Заголовки в crossView

MakMak
отредактировано 02:08 Раздел: FastReport 2.xx VCL
Текст не помещается в заголовки Кросс-таб отчёта ;) . Как изменить их высоту и сделать перенос по словам?

Комментарии

  • отредактировано 02:08
    В скрипт Memo1 крос отчета надо добавить , чтото типа:

    [Cell]
    begin
    CrossData1.Left := [frLeftMergin];
    Memo1.Width:=CrossData1.Width;
    if [Line#]=1 then
    begin
    Memo1.WordWrap:=True;
    Memo1.WordBreak:=True;
    Memo1.Font.Style:=2;
    Memo1.Font.Color:=clRed;
    Memo1.FillColor:=clWhite;
    end
    else
    begin
    Memo1.WordWrap:=False;
    Memo1.WordBreak:=False;
    Memo1.Font.Style:=2;
    Memo1.Font.Color:=clBlack;
    Memo1.FillColor:=clWhite;
    end;
    end;

    вот так и делай с ним , что хош, обязательна структура c <ELSE> , в ней определяется вид остальных
    строк отчета.
  • MakMak
    отредактировано 02:08
    Чё-то у меня не получилось. ;)
    Ты про какой Memo1 говоришь? В объекте Cross1 Memo-полей 7 штук. Причём с совершенно разными именами.
  • отредактировано 02:08
    const написал:
    В скрипт Memo1 крос отчета надо добавить , чтото типа:

    [Cell]
    begin
    CrossData1.Left := [frLeftMergin];
    Memo1.Width:=CrossData1.Width;
    if [Line#]=1 then
    begin
    Memo1.WordWrap:=True;
    Memo1.WordBreak:=True;
    Memo1.Font.Style:=2;
    Memo1.Font.Color:=clRed;
    Memo1.FillColor:=clWhite;
    end
    else
    begin
    Memo1.WordWrap:=False;
    Memo1.WordBreak:=False;
    Memo1.Font.Style:=2;
    Memo1.Font.Color:=clBlack;
    Memo1.FillColor:=clWhite;
    end;
    end;

    вот так и делай с ним , что хош, обязательна структура c <ELSE> , в ней определяется вид остальных
    строк отчета.
    Скажите, а высоту CrossMemo можно поменять ?
    Спасибо.
  • отредактировано 02:08
    Memo1 тот который помещен на пересечении бендов CroossData и MasterData

    MasterData - свойство stretched : = True


    можно также добавить , в Memo1

    CrossData1.Left := [frLeftMergin];
    Memo1.Width:=CrossData1.Width;
    //---
    Memo1.Height := 20;
    MasterData1.Height:=Memo1.Height;

    или в MasterData1.onBeforPrint добавить MasterData1.Height:=20;
    а в Memo1 добавить Memo1.Height:=MasterData1.Height,

    обратите внимание на if [Line#]=1 , т.е в качестве заголовка используется первая строка, это удобно при выводе StringGrid в котором первая строка и есть заголовок.
  • MakMak
    отредактировано 02:08
    Ты меня не понял ;) . Я спрашивал не от Кросс-бэндах. А об отдельном объекте CrossView
  • отредактировано 02:08
    да я действительно, не понял, хотя могу сказать, что если надо создать
    то что, надо , надо делать все ручками , а кросс вью , это уже собранный
    в кучу объект, если его править , то только в исходных кодах.

    В крос вью каждый объект имеет описатель куда , можно аналогичным образом , втулить свой обработчик. :-(

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.