как, при наведении мышкой, в привью, на объекте Tfrxview нарисовать, например, рамку в размер объект

отредактировано 08:22 Раздел: FastReport 4.0
как, при наведении мышкой, в привью, на объекте tfrxview нарисовать, например, рамку в размер объекта?

delphi 7

Комментарии

  • gpigpi
    отредактировано 08:22
    Нарисовать не проблема, используя TfrxReport.OnMouseOverObject, а вот убрать эту рамку не получится после того, как мышка покинет область объекта, т.к. у TfrxReport нет события OnMouseLeave
  • отредактировано 08:22
    gpi написал: »
    Нарисовать не проблема, используя TfrxReport.OnMouseOverObject, а вот убрать эту рамку не получится после того, как мышка покинет область объекта, т.к. у TfrxReport нет события OnMouseLeave
    знаю!!!!:)
  • отредактировано 08:22
    На самом деле, получится, было бы воображение. Вот пример из моего кода
    Переменная frxReport_OldMemo хранить указатель на предыдущий MemoView и имеет тип TfrxMemo. Цветом помечаются только те поля, у которых в отчёте свойство Cursor установлено в crHandPoint.
    DoRepaint добавлено для уменьшения количества перерисовок.
    procedure TFormPricing.frxReport1MouseOverObject(Sender: TfrxView);
    var
      DoRepaint: Boolean;
    begin
      DoRepaint := false;
      if (Sender is TfrxMemoView) then
      begin
        if frxReport_OldMemo <> nil then
        begin
          frxReport_OldMemo.Color := clWindow;
          DoRepaint := true;
        end;
        if Sender.Cursor = crHandPoint then
        begin
          frxReport_OldMemo := Sender;
          Sender.Color := clGtay;
          DoRepaint := true;
        end
        else
          frxReport_OldMemo := nil;
        if Assigned(frxReport1) and (DoRepaint) then
          frxReport1.Preview.Repaint;
      end;
    end;
    

    Всё работает очень красиво.

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

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