Не срабатывает смена свойств (цвета) мемо в отчете.

Комментарии

• gpi

  April 2011 отредактировано 03:47

  Проверил, работает

  procedure TForm1.frxReport1ClickObject(Sender: TfrxView; Button: TMouseButton;
    Shift: TShiftState; var Modified: Boolean);
  begin
      if Sender.Name = 'Memo1' then
        begin
          TfrxMemoView(Sender).Color := clYellow;
          Modified := True;
      end;
  end;
  
• Nadya_rus

  April 2011 отредактировано 03:47

  Спасибо большое, что откликнулись! Хотя моя проблема все еще не решилась, к сожалению.
  Разница вашего кода только в строке Modified := True; Я добавила эту строку, но все равно не работает. И поскольку как я писала мой кода работает в операционке XP, то возникает вопрос - а вы в какой операционке работаете?
  

  gpi написал: »

  Проверил, работает

  procedure TForm1.frxReport1ClickObject(Sender: TfrxView; Button: TMouseButton;
    Shift: TShiftState; var Modified: Boolean);
  begin
      if Sender.Name = 'Memo1' then
        begin
          TfrxMemoView(Sender).Color := clYellow;
          Modified := True;
      end;
  end;
  
• gpi

  April 2011 отредактировано April 2011

  Проверял и в XP и в Win 7 64 bit
  Приложите тестовый проект, демонстрирующий проблему
• Nadya_rus

  April 2011 отредактировано 03:47

  Ну что ж, рада, что выяснили, что операционка тут не причем. А насчет тестового проекта - честно говоря, даже не знаю как простенько можно сделать, мы работаем с базой данных Advantage, у вас же такой пример не запустится. Может вы подскажете каким образом можно сделать тестовый проект без больших затрат времени и чтоб у вас тоже запуститься мог без проблем?
  Вот еще что хотела уточнить, а с какой точно версией фастрепорта вы работаете? У нас 4.7.178. Думаю, что может именно в этой версии ошибка?
  

  gpi написал: »

  Проверял и в XP и в Win 7 64 bit
  Приложите тестовый проект, демонстрирующий проблему
• Nadya_rus

  April 2011 отредактировано 03:47

  Прошу прощения за предоставленную НЕ ПОЛНУЮ информацию. Я сегодня поэкспериментировала в фастепортовской демо проекте проделать смену цвета - и успешно. Тогда начала подетально разбираться в своем проекте, почему там не срабатывает. И тут поняла, что проблема не в самой смене цвета, а в том, что мне надо в этой процедуре менять цвет дважды: в самом начале процедуры OnClickObject, затем как я писала - выполнить кое-что (уточню - что в зависимости от данных открывается модально либо новая форма, либо второй репорт) и после закрытия модальной формы/репорта я делаю отмену цвета Color := clNone;
  Кстати, для теста можно просто использовать MessageDlg вместо модальной формы или репорта - результат тот же. Как я написала, что XP отображает цвет, а в вин7 похоже перерисовка не срабатывает. Если код с отменой цвета убрать, то работает даже и в вин7, но мне так не нужно. Что можно сделать?
• gpi

  April 2011 отредактировано 03:47

  В аттаче простой тестовый проект. Модифицируйте его для демонстрации проблемы и выложите здесь
• Nadya_rus

  May 2011 отредактировано 03:47

  У меня почему то не раззиповывается ваш файл, ошибку выдает: Cannot open file: it does not appear to be a valid archive.
  If you downloaded this file, try downloading the file again.
  Я 2 раза копировала - результат все тот же. Для инфы - у меня WinZip 14.5 пробная (нелицензированная) версия. Но, не думаю, что причина может быть в этом. Так как с другими архивными файлами проблем нет.
  Что посоветуете? Может пересоздадите и выложите новый зип файл?
  Заранее спасибо!

  gpi написал: »

  В аттаче простой тестовый проект. Модифицируйте его для демонстрации проблемы и выложите здесь
• gpi

  May 2011 отредактировано 03:47

  https://rapidshare.com/files/460220791/test.zip
• Nadya_rus

  May 2011 отредактировано 03:47

  Я не зарегистрирована на рапид. А Кнопка скачать бесплатно похоже ничего не делает. Зрительно нажимается, но ничего не происходит. (пробовала несколько раз в разные дни).

  gpi написал: »

  https://rapidshare.com/files/460220791/test.zip