paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 15:56:00 +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, LCLType,
// codetools // codetools
CodeAtom, CodeTree, CodeToolManager, FindDeclarationTool, BasicCodeTools, CodeAtom, CodeTree, CodeToolManager, FindDeclarationTool, BasicCodeTools,
KeywordFuncLists, PascalParserTool, CodeCache, CacheCodeTools, FileProcs, KeywordFuncLists, PascalParserTool, CodeCache, CacheCodeTools, CustomCodeTool,
FileProcs,
{$IFDEF NewXMLCfg} {$IFDEF NewXMLCfg}
Laz2_DOM, Laz2_XMLRead, Laz2_XMLWrite, Laz2_DOM, Laz2_XMLRead, Laz2_XMLWrite,
{$ELSE} {$ELSE}
@ -2371,6 +2372,9 @@ begin
end; end;
except except
on E: ECodeToolError do begin
//debugln(['TCodeHelpManager.GetHTMLHint ECodeToolError: ',E.Message]);
end;
on E: Exception do begin on E: Exception do begin
debugln(['TCodeHelpManager.GetHTMLHint Exception: ',E.Message]); debugln(['TCodeHelpManager.GetHTMLHint Exception: ',E.Message]);
//DumpExceptionBackTrace; //DumpExceptionBackTrace;

2
ide/idehelpmanager.pas
View File

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