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

Комментарии

• gpi

  August 2008 отредактировано 22:20

  Нарисовать не проблема, используя TfrxReport.OnMouseOverObject, а вот убрать эту рамку не получится после того, как мышка покинет область объекта, т.к. у TfrxReport нет события OnMouseLeave
• denisww

  August 2008 отредактировано 22:20

  gpi написал: »

  Нарисовать не проблема, используя TfrxReport.OnMouseOverObject, а вот убрать эту рамку не получится после того, как мышка покинет область объекта, т.к. у TfrxReport нет события OnMouseLeave

  знаю!!!!:)
• Nightmareterrible

  July 2012 отредактировано 22:20

  На самом деле, получится, было бы воображение. Вот пример из моего кода
  Переменная 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;
  

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