1 reply to this topic

[john123]

Hi Boki
Cell Hint Position is Bad location(Very top from real Cell position)
please check attach file

Attached Files

•  Untitled.jpg   33.01KB   0 downloads

[Boki (Berg)]

Hello John,

Maybe this hint control is differently done than standard one.

Can you please try to modify line inside next procedure:

procedure TNxCustomGrid.ShowCellHint(ACol, ARow: Integer; HintText: WideString);
var
HintRect: TRect;
  APoint: TPoint;
  HintLeft: Integer;
begin
  if not ParentFormActive(Self) then Exit;
  if not Application.ShowHint then Exit;

  RecreateHintWnd;

  FHintPosition := hpCellHint;
  HintRect := GetCellRect(ACol, ARow);
  case GridStyle of
    gsReport: HintLeft := HintRect.Left + Columns[ACol].Width;
    else HintLeft := HintRect.Left + Columns[ACol].SlideBounds.Width;
  end;
  if HintLeft > ClientWidth then HintLeft := ClientWidth;
  APoint := ClientToScreen(Point(HintLeft, HintRect.Top - 20)); // <-----------------------------
  HintRect := CalcHintRect(FHintWindow, 250, HintText);
  OffsetRect(HintRect, APoint.X, APoint.Y);
  ActivateHint(FHintWindow, HintRect, HintText);
end;