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

IDE: codehints: clean up

Browse Source 
git-svn-id: trunk@31585 -
This commit is contained in:
mattias 2011-07-07 09:44:58 +00:00
parent 60424c460a
commit 6a85561b10
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/codehelp.pas
View File

@ -43,7 +43,8 @@ uses
LCLType,
// codetools
CodeAtom, CodeTree, CodeToolManager, FindDeclarationTool, BasicCodeTools,
KeywordFuncLists, PascalParserTool, CodeCache, CacheCodeTools, FileProcs,
KeywordFuncLists, PascalParserTool, CodeCache, CacheCodeTools, CustomCodeTool,
FileProcs,
{$IFDEF NewXMLCfg}
Laz2_DOM, Laz2_XMLRead, Laz2_XMLWrite,
{$ELSE}
@ -2371,6 +2372,9 @@ begin
end;
except
on E: ECodeToolError do begin
//debugln(['TCodeHelpManager.GetHTMLHint ECodeToolError: ',E.Message]);
end;
on E: Exception do begin
debugln(['TCodeHelpManager.GetHTMLHint Exception: ',E.Message]);
//DumpExceptionBackTrace;

2
ide/idehelpmanager.pas
View File

@ -499,7 +499,7 @@ begin
if s<>'' then
Stream.Read(s[1],length(s));
Caption:=HTMLToCaption(s,MaxLineCount);
debugln(['TSimpleHTMLControl.SetHTMLContent ',Caption]);
//debugln(['TSimpleHTMLControl.SetHTMLContent ',Caption]);
end;
procedure TSimpleHTMLControl.GetPreferredControlSize(out AWidth, AHeight: integer);