Заголовки в crossView

Комментарии

• const

  April 2004 отредактировано 08:06

  В скрипт 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> , в ней определяется вид остальных
  строк отчета.
• Mak

  April 2004 отредактировано 08:06

  Чё-то у меня не получилось.
  Ты про какой Memo1 говоришь? В объекте Cross1 Memo-полей 7 штук. Причём с совершенно разными именами.
• d_r_u_d

  April 2004 отредактировано 08:06

  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 можно поменять ?
  Спасибо.
• const

  April 2004 отредактировано 08:06

  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 в котором первая строка и есть заголовок.
  
• Mak

  April 2004 отредактировано 08:06

  Ты меня не понял . Я спрашивал не от Кросс-бэндах. А об отдельном объекте CrossView
• const

  April 2004 отредактировано 08:06

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