8 replies to this topic

[dreel]

Hello, Boki.
I found incorect hint behaviour in NextGrid component on Delphi 7.
1) Cell.Hint have too small width and positioned absolute by cell top right border and placed out of cell. For a very long cell I use to show route over nodes in graph it's not good because right border located farther then screen border. So hint shows sticked to right screen border far from the form rised it.

See it in attchments - nxgrid_cell_hint_bug1.jpg, nxgrid_cell_hint_bug2.jpg

2) TextFitHint sticked to the left top border absolutely, so very long cell scrolled to the middle of the width giv us strnge hint position because the top left cell border hidden from viewpoint window. Hint rises like it's no scroll and a part of cell not hidden, so left top point of hint located out of the component border.

See it in attchments - nxgrid_cellfithint_bug1.jpg (looks normal),
nxgrid_cellfithint_bug2.jpg (left hint border out of component borders)

May be you can give me some instructions how to do custom hint draw?

Attached Files

•  nxgrid_cellfithint_bug2.jpg   115.78KB   8 downloads
•  nxgrid_cellfithint_bug1.jpg   138.86KB   7 downloads
•  nxgrid_cell_hint_bug2.jpg   64.52KB   1 downloads
•  nxgrid_cell_hint_bug1.jpg   114.96KB   5 downloads

[Boki (Berg)]

Hello,

Can you please send me a demo project (and source) to I see what can be done. Thank you - this will help.

Some situations may be fixed, but some will maybe be harder.

Best regards

[dreel]

Hello,

Can you please send me a demo project (and source) to I see what can be done. Thank you - this will help.

Some situations may be fixed, but some will maybe be harder.

Best regards

Ok. I'll create it for you.

[dreel]

Hello,

Can you please send me a demo project (and source) to I see what can be done. Thank you - this will help.

Some situations may be fixed, but some will maybe be harder.

Best regards

Here the example source attached to the message.

Attached Files

•  NextGrid_Hint.zip   14.71KB   7 downloads

[Boki (Berg)]

Hello,

For first bug (Cell Hint) modify next procedure in NxCustomGrid.pas:

CODE

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; // <--------------- new line
  APoint := ClientToScreen(Point(HintLeft, HintRect.Top - 20));
  HintRect := CalcHintRect(FHintWindow, 250, HintText);
  OffsetRect(HintRect, APoint.X, APoint.Y);
  ActivateHint(FHintWindow, HintRect, HintText);
end;

[dreel]

In first post top two images showing TextFitHint,
bottom images showing CellHint

[dreel]

Hello,

For first bug (Cell Hint) modify next procedure in NxCustomGrid.pas:

CODE

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; // <--------------- new line
  APoint := ClientToScreen(Point(HintLeft, HintRect.Top - 20));
  HintRect := CalcHintRect(FHintWindow, 250, HintText);
  OffsetRect(HintRect, APoint.X, APoint.Y);
  ActivateHint(FHintWindow, HintRect, HintText);
end;

As i see you don't provide sources for Delphi 7 version. I've only found DCUs.

[Boki (Berg)]

Hello,

I have attached a DCU file.

Best regards

Attached Files

•  NxCustomGrid.zip   37.32KB   7 downloads

[dreel]

Hello,

I have attached a DCU file.

Best regards

Thanks. it works!

And what about TextFitHint ?