Профессионалы отзовитесь, помогите решить проблему

Комментарии

• coder-igor

  June 2006 отредактировано 15:36

  делаю так:
  
  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
  if Length(Memo1.Lines.text) > 390 then
  MasterData1.Child:=nil; (или Child1.Visivle:=false)
  end;
  
• aseroff

  June 2006 отредактировано 15:36

  Ставим свойства компонентов:
  1) MasterData1.Child = Child1,
  2) Child1.Visible = false;
  
  В коде пишем (код на C++Script, переведешь в PascalScript):

  bool bFlag;	// объявляем глобальный флаг смены свойства видимости Child1
    	// для того, чтобы менять это свойство единажды
  
  {  	// выставляем начальное значение флага
    bFlag = false;
  }
  
  void MasterData1OnAfterCalcHeight(TfrxComponent Sender)
  {
    if ((<Line> > 400) && (bFlag == false))	// <Line> - стандартное свойство FR
            	// сравниваем с нужным числом
    {
      ShowMessage ("больше");    	// можно убрать (для показухи)
      Child1.Visible = true;    	// делаем потомка доступным
      bFlag = true;      	// меняем состояние флага,
            	// чтобы не выполнять этот блок n раз
    }
  }
  

  
  Вот собственно и все.
  После записи в MasterData1 под номером 400 начнет отображаться Cild1
• coder-igor

  June 2006 отредактировано 15:36

  спасибо за помошь, но чета у меня не работает
  
  если можна файлик с репортом через файлообменник скинь пожалста.
  
  вот так я сделал, может че не так???????

  var
   bFlag: Boolean;
  
  procedure Child5OnAfterCalcHeight(Sender: TfrxComponent);
  begin
   if ((<Line> > 400) and (bFlag = false))  then
     begin
       ShowMessage ('áîëüøå');
      Child2.Visible:=true;
      bFlag:=true;
     end;
  end;
  
  begin
   bFlag:=false;
  end.
  
• coder-igor

  June 2006 отредактировано June 2006

  ВСЕ разобрался
  
  
  
  огромное спасибо за помощь
  
  
  
  и спасибо что есть такие люди, которые всегда рады помочь
  
  
  вместо
  if ((<Line> > 400) and (bFlag = false)) then
  сделал
  if ((Length(Memo10.Lines.Text) > 400) and (bFlag = false)) then
• aseroff

  June 2006 отредактировано 15:36

  Странно, что у тебя <Line> не работает. Эта переменная FastReport есть в Variables, может, она в PascalScript не в "<>" таких кавычках вызвывается... Попробуй написать

  Get("Line") //C++Script
  Get('Line') //PascalScript
  

  вместо

  <Line>
  

  или "[]" вместо "<>"
  
  У меня <Line> работает, и Get("...") работает.
  
  PS. В паскале не обязательна куча скобок в условиях
• Lex

  June 2006 отредактировано 15:36

  aseroff написал:

  Странно, что у тебя <Line> не работает.

  ему она не нужна

  aseroff написал:

  как сделать если в Мемо например 400 символов
• aseroff

  June 2006 отредактировано 15:36

  Понятно )
  
  Меня просто переклинило, и я, уже по привычке, посчитал количество строк, а не символов )))))
  
  <Line>, собственно, здесь и не должна работать - это количество Memo строк.