TSynEdit Как узнать слово под курсором мыши?

[DropSoft]

Собственно сабж.
Мне в событии SynEdit1MouseMove надо вывести хинт, относящийся к текущему слову под курсором мыши.
Есть для этого стандартные средства?
Пока приходит в голову только

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

procedure TForm1.SynEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
var
  s : string;
begin
  s := SynEdit1.Lines.Strings[Y div SynEdit1.LineHeight];
  // затем как-то найти слово, содержащее символ на позиции (X div SynEdit1.CharWidth) + 1)
  // и вывести по нему справку.
  SynEdit1.Hint := GetMyHelp(GetMyWord(s, (X div SynEdit1.CharWidth) + 1));
  Application.ActivateHint(Mouse.CursorPos);
end;

Но как-то это очень сложно.

[Awkward]

Сложно? я у себя вообще делал так:

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

function GetPickedText(mi:TObject=nil; anEdit:TSynEdit=nil):String;
var
  pt:TPoint;
begin
  if anEdit=nil then
    anEdit:=ActiveEditor;

  result:=anEdit.SelText;
  if result='' then
  begin
    if mi<>nil then
    begin
      pt:=anEdit.PixelsToLogicalPos(
          anEdit.ScreenToClient(
          ((mi as TMenuItem).GetParentMenu as TPopupMenu).PopupPoint));
    end
    else
    begin
      pt:=anEdit.LogicalCaretXY;
    end;
    result:=anEdit.GetWordAtRowCol(pt);
  end;
end;


[DropSoft]

О, похоже GetWordAtRowCol именно то, что надо!

Добавлено спустя 16 часов 10 минут 58 секунд:
Получилось! Может кому пригодится.

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

procedure TForm1.SynEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
var
  ln  : integer;
  wrd : string;
begin
  ln := Y div SynEdit1.LineHeight;  // номер строки, если нужен для синтаксического разбора
  // находим слово под курсором
  wrd := SynEdit1.GetWordAtRowCol( Point((X - SynEdit1.Gutter.Width) div SynEdit1.CharWidth + 1, ln + 1));
  SynEdit1.Hint := GetMyHelp(wrd {, ln});        // и выводим по нему свою справку.
  Application.ActivateHint(Mouse.CursorPos);
end;

[alexs]

DropSoft
Событие SynEdit.OnShowHint возникает именно перед показом хинта.
вот кусок кода из FBManager-а

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

procedure Tfdbm_SynEditorFrame.TextEditorShowHint(Sender: TObject;
  HintInfo: PHintInfo);
var
  S ... : String;
  ...
  CP: TPoint;
begin
  ....
  CP:=TextEditor.PixelsToRowColumn(HintInfo^.CursorPos);
  S:=TextEditor.GetWordAtRowCol(CP);


[Tango]

Зачем так сложно?

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

FindWord:=Syn.GetWordAtRowCol(Syn.CaretXY);