Сложный заголовок таблицы

Комментарии

• SergeyV

  July 2006 отредактировано 00:34

  Внесу уточнение. В принципе, как создать такой отчет с помощью cross-tab понятно. Интересует объединие ячеек в заголовке.
• aseroff

  July 2006 отредактировано 00:34

  А подогнать размеры (Height) вы не можете? Зачем объединение???
  
  Управляйте размерами Memo, это, на мой взгляд, очень просто.
• SergeyV

  July 2006 отредактировано 00:34

  К сожалению, текст в ячейках заголовка может быть достаточно большим и без объединения заголовок таблицы получается весьма несимпатичным. Пробовал также вариант с эмуляцией объединения - отключить у верхней ячейки нижнюю линию, у и нижних верхнюю. Это не подходит. Нужно именно объединение ячеек, аналогично столбцу с итогами.
• aseroff

  July 2006 отредактировано 00:34

  Объединение можно сделать следущим способом:
  Есть Memo1, под ним Memo2 и слева от них Memo3, надо объединить Memo1 с Memo2 и Memo3.
  <span style='font-family:Courier'>

  ---

  |***Memo1***|********************|

  ---

  |*******Memo3********|
  |***Memo2***|********************|

  ---

  </span>
  Делаем следущее

  int iH = Memo2.Height;
  int iW = Memo3.Width;
  Memo2.Height = 0;
  Memo2.Width = 0;
  Memo2.Visible = false;
  Memo3.Height = 0;
  Memo3.Width = 0;
  Memo3.Visible = false;
  
  Memo1.Height = Memo1.Height + iH;
  Memo1.Width = Memo1.Width +iW;
  

  В итоге получим
  <span style='font-family:Courier'>

  ---

  |********************************|
  |*************Memo1**************|
  |********************************|

  ---

  </span>
  
• Svetkin СПб

  July 2006 отредактировано 00:34

  А можно ли в MasterData такие же фокусы делать????
• aseroff

  July 2006 отредактировано 00:34

  Можно.
  В обработчике собы
• aseroff

  July 2006 отредактировано 00:34

  Что-то не получилось у меня дописать
  
  В обработчике события (например, OnBeforePrint) выставляем все размеры, скрываем ненужные поля, варьируем рамками, шрифтом, цветом...
  
  OnBeforePrint, например, появляется перед отрисовкой каждой строки, можно каждой строчке задавать свой набор параметров.
• Svetkin СПб

  July 2006 отредактировано 00:34

  написал:

  можно каждой строчке задавать свой набор параметров.

  
  Это самое интересное... если возможно, раскройте поподробнее...
• aseroff

  July 2006 отредактировано 00:34

  Вот несколько примеров реализации OnBeforePrint

  String sAgreement;
  String sName;
  String sLCN;
  void AgreementMemoOnBeforePrint(TfrxComponent Sender)
  {
    if (sAgreement == VarToStr (Get ("Agreement")))
      AgreementMemo.Frame.Typ = ftLeft + ftRight;
    else
      AgreementMemo.Frame.Typ = ftLeft + ftRight + ftTop;
    //----------------------------------------------------------------------
    m_pDataQuery.Next;
    if (m_pDataQuery.Eof)
      AgreementMemo.Frame.Typ += ftBottom;
    else
      m_pDataQuery.Prior;
    //----------------------------------------------------------------------
    sAgreement =  VarToStr (Get ("Agreement"));
    //----------------------------------------------------------------------
  }
  //------------------------------------------------------------------------
  
  void AgreementMemoOnBeforePrint(TfrxComponent Sender)
  {
    if (sAgreement == VarToStr (Get ("Agreement")))
      AgreementMemo.Frame.Typ = ftLeft + ftRight;
    else
      AgreementMemo.Frame.Typ = ftLeft + ftRight + ftTop;
    //----------------------------------------------------------------------
    m_pDataQuery.Next;
    if (m_pDataQuery.Eof)
      AgreementMemo.Frame.Typ += ftBottom;
    else
      m_pDataQuery.Prior;
    //----------------------------------------------------------------------
    sAgreement =  VarToStr (Get ("Agreement"));
    //----------------------------------------------------------------------
  }
  //------------------------------------------------------------------------
  
  void ClientMemoOnBeforePrint(TfrxComponent Sender)
  {
    if (sName == VarToStr (Get ("ClientName")))
      ClientMemo.Frame.Typ = ftLeft + ftRight;
    else
      ClientMemo.Frame.Typ = ftLeft + ftRight + ftTop;
    //----------------------------------------------------------------------
    m_pDataQuery.Next;
    if (m_pDataQuery.Eof)
      ClientMemo.Frame.Typ += ftBottom;
    else
      m_pDataQuery.Prior;
    //----------------------------------------------------------------------
    sName =  VarToStr (Get ("ClientName"));
    //----------------------------------------------------------------------
  }
  //------------------------------------------------------------------------
  
  void LCNMemoOnBeforePrint(TfrxComponent Sender)
  {
    if (sLCN == VarToStr (Get ("LCN")))
      LCNMemo.Frame.Typ = ftLeft + ftRight;
    else
      LCNMemo.Frame.Typ = ftLeft + ftRight + ftTop;
    //----------------------------------------------------------------------
    m_pDataQuery.Next;
    if (m_pDataQuery.Eof)
      LCNMemo.Frame.Typ += ftBottom;
    else
      m_pDataQuery.Prior;
    //----------------------------------------------------------------------
    sLCN =  VarToStr (Get ("LCN"));
    //----------------------------------------------------------------------
  }
  //------------------------------------------------------------------------
  
  {
    sAgreement   = "";
    sName        = "";
    sLCN         = "";
    //----------------------------------------------------------------------
  }
  //------------------------------------------------------------------------
  

  void FGRHeaderOnBeforePrint(TfrxComponent Sender)
  {
    switch (Get ("FGR"))
    {
      case -3: FGRMemo.Text = IntToStr (Get ("Item")) +
                 ".1. Реализация";
      //--------------------------------------------------------------------
      case -2: FGRMemo.Text = IntToStr (Get ("Item")) +
                 ".2. Приобретено товаров и услуг";
      //--------------------------------------------------------------------
      default: FGRMemo.Text = IntToStr (Get ("Item")) +
                 ".3. Операции";
      //--------------------------------------------------------------------
    }
    //----------------------------------------------------------------------
  }