paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 18:19:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: only update fpdoc hint if control visible

Browse Source 
git-svn-id: trunk@31627 -
This commit is contained in:
mattias 2011-07-09 22:34:26 +00:00
parent 26e0cb515f
commit c36216f022
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/fpdochints.pas
View File

@ -99,6 +99,9 @@ var
begin begin
FBaseURL:=''; FBaseURL:='';
FHTMLHint:=''; FHTMLHint:='';
if (Control=nil) or (not Control.IsVisible) then exit;
//debugln(['TFPDocHintProvider.DoUpdateHint ',DbgSName(Control)]);
// find current completion item // find current completion item
if (SourceEditorManagerIntf=nil) or (CodeToolBoss=nil) if (SourceEditorManagerIntf=nil) or (CodeToolBoss=nil)

4
ide/sourceeditor.pp
View File

@ -2023,9 +2023,13 @@ begin
SrcEditHintWindow.Provider:=TFPDocHintProvider.Create(SrcEditHintWindow); SrcEditHintWindow.Provider:=TFPDocHintProvider.Create(SrcEditHintWindow);
end; end;
SrcEditHintWindow.AnchorForm := TheForm; SrcEditHintWindow.AnchorForm := TheForm;
debugln(['TSourceEditCompletion.StartShowCodeHelp ',CodeToolsOpts.IdentComplShowHelp]);
if CodeToolsOpts.IdentComplShowHelp then begin if CodeToolsOpts.IdentComplShowHelp then begin
TheForm.LongLineHintType:=sclpNone; TheForm.LongLineHintType:=sclpNone;
SrcEditHintWindow.HelpEnabled:=true; SrcEditHintWindow.HelpEnabled:=true;
end else begin
TheForm.LongLineHintType:=EditorOpts.CompletionLongLineHintType;
SrcEditHintWindow.HelpEnabled:=false;
end; end;
end; end;