paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-26 01:16:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed source notebook ab hint

Browse Source 
git-svn-id: trunk@3001 -
This commit is contained in:
mattias 2002-08-18 08:56:55 +00:00
parent 557c73f1d6
commit 38a1982b74
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/uniteditor.pp
View File

@ -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;