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

IDE: code hints: reduced debugging

Browse Source 
git-svn-id: trunk@31333 -
This commit is contained in:
mattias 2011-06-22 13:22:57 +00:00
parent 9595273e55
commit 32a183ceaa
3 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/turbopower_ipro/design/ipidehtmlcontrol.pas
View File

@ -101,7 +101,7 @@ end;
function TLazIpHtmlDataProvider.DoGetStream(const URL: string): TStream;
begin
debugln(['TLazIpHtmlDataProvider.DoGetStream ',URL,' ',DbgSName(Control.IDEProvider)]);
//debugln(['TLazIpHtmlDataProvider.DoGetStream ',URL,' ',DbgSName(Control.IDEProvider)]);
Result:=Control.IDEProvider.GetStream(URL,false);
end;
@ -110,14 +110,14 @@ end;
function TLazIPHtmlControl.DataProviderCanHandle(Sender: TObject;
const URL: string): Boolean;
begin
debugln(['TLazIPHtmlControl.DataProviderCanHandle URL=',URL]);
//debugln(['TLazIPHtmlControl.DataProviderCanHandle URL=',URL]);
Result:=false;
end;
procedure TLazIPHtmlControl.DataProviderCheckURL(Sender: TObject;
const URL: string; var Available: Boolean; var ContentType: string);
begin
debugln(['TLazIPHtmlControl.DataProviderCheckURL URL=',URL]);
//debugln(['TLazIPHtmlControl.DataProviderCheckURL URL=',URL]);
Available:=false;
ContentType:='';
end;
@ -125,7 +125,7 @@ end;
procedure TLazIPHtmlControl.DataProviderGetHtml(Sender: TObject;
const URL: string; const aPostData: TIpFormDataEntity; var Stream: TStream);
begin
debugln(['TLazIPHtmlControl.DataProviderGetHtml URL=',URL]);
//debugln(['TLazIPHtmlControl.DataProviderGetHtml URL=',URL]);
Stream:=nil;
end;
@ -182,7 +182,7 @@ end;
procedure TLazIPHtmlControl.DataProviderReportReference(Sender: TObject;
const URL: string);
begin
debugln(['TLazIPHtmlControl.DataProviderReportReference URL=',URL]);
//debugln(['TLazIPHtmlControl.DataProviderReportReference URL=',URL]);
end;
procedure TLazIPHtmlControl.IPHTMLPanelHotClick(Sender: TObject);
@ -199,7 +199,7 @@ begin
HRef := TIpHtmlNodeAREA(HotNode).HRef;
Target := TIpHtmlNodeAREA(HotNode).Target;
end;
debugln(['TLazIPHtmlControl.IPHTMLPanelHotClick HRef="',HRef,'" Target="',Target,'"']);
//debugln(['TLazIPHtmlControl.IPHTMLPanelHotClick HRef="',HRef,'" Target="',Target,'"']);
IDEProvider.OpenURLAsync(HRef);
end;

8
ide/codehelp.pas
View File

@ -2346,7 +2346,9 @@ begin
or ((CTNode.Desc in [ctnProcedure,ctnProcedureHead])
and (CTTool.ProcNodeHasSpecifier(CTNode,psOVERRIDE)))
then begin
{$ifdef VerboseLazDoc}
debugln(['TCodeHelpManager.GetHTMLHint searching for inherited of ',CTNode.DescAsString,' ',dbgs(XYPos)]);
{$endif}
OldXYPos:=XYPos;
OldCTTool:=CTTool;
OldCTNode:=CTNode;
@ -2354,11 +2356,15 @@ begin
CTTool,CTNode,XYPos,aTopLine))
or (CTNode=OldCTNode)
then begin
{$ifdef VerboseLazDoc}
debugln(['TCodeHelpManager.GetHTMLHint inherited not found: ',dbgs(OldXYPos)]);
{$endif}
break;
end;
end else begin
{$ifdef VerboseLazDoc}
debugln(['TCodeHelpManager.GetHTMLHint not searching inherited for ',CTNode.DescAsString]);
{$endif}
break;
end;
@ -2388,7 +2394,9 @@ begin
end else
Result:=chprFailed;
end;
{$ifdef VerboseLazDoc}
debugln(['TCodeHelpManager.GetHTMLHint ',HTMLHint]);
{$endif}
end;
function TCodeHelpManager.GetPasDocCommentsAsHTML(Tool: TFindDeclarationTool;

2
ide/idehelpmanager.pas
View File

@ -820,7 +820,9 @@ begin
try
if Result=nil then begin
SplitURL(URL,URLType,URLPath,URLParams);
{$ifdef VerboseLazDoc}
DebugLn(['TLIHProviders.GetStream URLType=',URLType,' URLPath=',URLPath,' URLParams=',URLParams]);
{$endif}
if URLType='lazdoc' then begin
if copy(URLPath,1,8)='lazarus/' then begin
URLPath:=copy(URLPath,9,length(URLPath));