mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-23 21:06:06 +02:00
fixed source notebook ab hint
git-svn-id: trunk@3001 -
This commit is contained in:
parent
557c73f1d6
commit
38a1982b74
@ -2466,7 +2466,7 @@ begin
|
|||||||
TabIndex:=NoteBook.TabIndexAtClientPos(
|
TabIndex:=NoteBook.TabIndexAtClientPos(
|
||||||
Notebook.ScreenToClient(Mouse.CursorPos));
|
Notebook.ScreenToClient(Mouse.CursorPos));
|
||||||
if TabIndex<0 then exit;
|
if TabIndex<0 then exit;
|
||||||
ASrcEdit:=Editors[TabIndex];
|
ASrcEdit:=FindSourceEditorWithPageIndex(TabIndex);
|
||||||
if ASrcEdit=nil then exit;
|
if ASrcEdit=nil then exit;
|
||||||
if ASrcEdit.CodeBuffer<>nil then begin
|
if ASrcEdit.CodeBuffer<>nil then begin
|
||||||
PHintInfo(HintInfo)^.HintStr:=ASrcEdit.CodeBuffer.Filename;
|
PHintInfo(HintInfo)^.HintStr:=ASrcEdit.CodeBuffer.Filename;
|
||||||
|
Loading…
Reference in New Issue
Block a user