Bug in TDesignerWorkspace.MouseMove

Paul Michael

Hi there

procedure TDesignerWorkspace.MouseMove(Shift: TShiftState; X, Y: Integer);
var
  i, px, py: Integer;
  c, cOver: TfrxComponent;
  ds: TfrxDataset;
  e, kx, ky: Extended;

  function Contain(cc: TfrxComponent): Boolean;
  begin
    Result := (X / FScale >= cc.Left) and (X / FScale <= cc.Left + cc.Width - 4) and
      (Y / FScale >= cc.AbsTop) and (Y / FScale <= !!!!c!!!!.AbsTop + cc.Height);
  end;

I encountered a bug while perusing the code of the TDesignerWorkspace object. In the Contains sub function the abstop is used of the global c variable and not the local cc parameter to calculate the contain. This doesn't really bug as prior to the call of contain c is made equal to cc but it would bug in another situation use.

Kind regards,
Paul Michael