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

denisww

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

delphi 7

gpi

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

denisww

gpi написал: »

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

знаю!!!!:)

Nightmareterrible

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

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