freepascal.ru

alexs
Можно добавить в RxDBGrid событие на показ хинта для ячейки, как это сделано в EhLib?
Часто в таблицах попадаются поля с кодами, расшифровка которых берется из БД.
Пробовал по старинке через MouseMove, но это полная фигня. Событие генерится слишком часто, а Grid.MouseToCell возвращает координаты ячейки даже если курсор вне пределов ячеек таблицы (внизу или справа где пустое пространство).

Код: Выделить всё

type
  TMyGrid = class(TCustomDBGrid);

procedure TFrmMain.GridMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: integer);
var
  Grid: TRxDBGrid;
  row, col: integer;
  rec: integer;
begin
  Grid := Sender as TRxDBGrid;
  Grid.MouseToCell(X, Y, col, row);
  if col > -1 then
  begin
    rec := TMyGrid(Grid).DataLink.ActiveRecord;
    try
      TMyGrid(Grid).DataLink.ActiveRecord := row;
      Grid.Hint := 'Content of field : ' + Grid.Columns[col].Field.AsString;
      Application.ActivateHint(Mouse.CursorPos);
    finally
      TMyGrid(Grid).DataLink.ActiveRecord := rec;
    end;
  end; 
end;                 


А какое там объявление? Кинь ссылку на описание - не хочу сам интерфейс изобретать.

Для себя сделал вот так

Код: Выделить всё

  TRxDBGridDataHintShowEvent = procedure(Sender: TObject; CursorPos: TPoint;
    Cell: TGridCoord; Column: TRxColumn; var HintStr: string;
    var Processed: boolean) of object; 


procedure TRxDBGrid.CMHintShow(var Message: TLMessage);
var
  Cell: TGridCoord;
  tCol: TRxColumn;

  HintStr_: string;
  Processed: boolean;

  rec: integer;
  CellRect_: TRect;
begin
  if Assigned(TCMHintShow(Message).HintInfo) then
  begin
    with TCMHintShow(Message).HintInfo^ do
    begin
      Cell := MouseCoord(CursorPos.X, CursorPos.Y);
      tCol := TRxColumn(ColumnFromGridColumn(Cell.X));
      if (Cell.Y = 0) and (Cell.X >= Ord(dgIndicator in Options)) then
      begin
        if Assigned(tCol) and (TRxColumnTitle(tCol.Title).Hint <> '') and
          (TRxColumnTitle(tCol.Title).FShowHint) then
          HintStr := TRxColumnTitle(tCol.Title).Hint;
      end
      else
      begin
        CellRect_ := CellRect(Cell.X, Cell.Y);
        if (CellRect_.Bottom > CursorPos.Y) and (CellRect_.Right > CursorPos.X) then
          if Assigned(FOnDataHintShow) then
          begin
            rec := DataLink.ActiveRecord;
            try
              DataLink.ActiveRecord := Cell.y - 1;
              HintStr_ := tCol.Field.AsString;
            finally
              DataLink.ActiveRecord := rec;
            end;
            Processed := False;
            FOnDataHintShow(Self, CursorPos, Cell, tCol, HintStr_, Processed);
            if Processed then
              HintStr := HintStr_;
          end;
      end;
    end;
  end;
  inherited CMHintShow(Message);
end;


Спасибо!
Добавил в ревизии 5106.

alexs
Поправь метод, а то вылетает при наведении курсора на столбец-индикатор.

Код: Выделить всё

procedure TRxDBGrid.CMHintShow(var Message: TLMessage);
var
  Cell: TGridCoord;
  tCol: TRxColumn;
  HintStr_: string;
  Processed: boolean;
  rec: integer;
  CellRect_: TRect;
begin
  if Assigned(TCMHintShow(Message).HintInfo) then
  begin
    with TCMHintShow(Message).HintInfo^ do
    begin
      Cell := MouseCoord(CursorPos.X, CursorPos.Y);
      tCol := TRxColumn(ColumnFromGridColumn(Cell.X));
      if (Cell.Y = 0) and (Cell.X >= Ord(dgIndicator in Options)) then
      begin
        if Assigned(tCol) and (TRxColumnTitle(tCol.Title).Hint <> '') and
          (TRxColumnTitle(tCol.Title).FShowHint) then
          HintStr := TRxColumnTitle(tCol.Title).Hint;
      end
      else
      if Cell.X >= Ord(dgIndicator in Options) then
      begin
        CellRect_ := CellRect(Cell.X, Cell.Y);

        if (CellRect_.Bottom > CursorPos.Y) and (CellRect_.Right > CursorPos.X) then
          if Assigned(FOnDataHintShow) then
          begin
            rec := DataLink.ActiveRecord;
            try
              DataLink.ActiveRecord := Cell.y - 1;
              HintStr_ := tCol.Field.DisplayText;
            finally
              DataLink.ActiveRecord := rec;
            end;
            Processed := False;
            FOnDataHintShow(Self, CursorPos, Cell, tCol, HintStr_, Processed);
            if Processed then
              HintStr := HintStr_;
          end;
      end;
    end;
  end;
  inherited CMHintShow(Message);
end;                       


Спасибо. Готово.