paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 02:39:23 +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; function TLazIpHtmlDataProvider.DoGetStream(const URL: string): TStream;
begin begin
debugln(['TLazIpHtmlDataProvider.DoGetStream ',URL,' ',DbgSName(Control.IDEProvider)]); //debugln(['TLazIpHtmlDataProvider.DoGetStream ',URL,' ',DbgSName(Control.IDEProvider)]);
Result:=Control.IDEProvider.GetStream(URL,false); Result:=Control.IDEProvider.GetStream(URL,false);
end; end;
@ -110,14 +110,14 @@ end;
function TLazIPHtmlControl.DataProviderCanHandle(Sender: TObject; function TLazIPHtmlControl.DataProviderCanHandle(Sender: TObject;
const URL: string): Boolean; const URL: string): Boolean;
begin begin
debugln(['TLazIPHtmlControl.DataProviderCanHandle URL=',URL]); //debugln(['TLazIPHtmlControl.DataProviderCanHandle URL=',URL]);
Result:=false; Result:=false;
end; end;
procedure TLazIPHtmlControl.DataProviderCheckURL(Sender: TObject; procedure TLazIPHtmlControl.DataProviderCheckURL(Sender: TObject;
const URL: string; var Available: Boolean; var ContentType: string); const URL: string; var Available: Boolean; var ContentType: string);
begin begin
debugln(['TLazIPHtmlControl.DataProviderCheckURL URL=',URL]); //debugln(['TLazIPHtmlControl.DataProviderCheckURL URL=',URL]);
Available:=false; Available:=false;
ContentType:=''; ContentType:='';
end; end;
@ -125,7 +125,7 @@ end;
procedure TLazIPHtmlControl.DataProviderGetHtml(Sender: TObject; procedure TLazIPHtmlControl.DataProviderGetHtml(Sender: TObject;
const URL: string; const aPostData: TIpFormDataEntity; var Stream: TStream); const URL: string; const aPostData: TIpFormDataEntity; var Stream: TStream);
begin begin
debugln(['TLazIPHtmlControl.DataProviderGetHtml URL=',URL]); //debugln(['TLazIPHtmlControl.DataProviderGetHtml URL=',URL]);
Stream:=nil; Stream:=nil;
end; end;
@ -182,7 +182,7 @@ end;
procedure TLazIPHtmlControl.DataProviderReportReference(Sender: TObject; procedure TLazIPHtmlControl.DataProviderReportReference(Sender: TObject;
const URL: string); const URL: string);
begin begin
debugln(['TLazIPHtmlControl.DataProviderReportReference URL=',URL]); //debugln(['TLazIPHtmlControl.DataProviderReportReference URL=',URL]);
end; end;
procedure TLazIPHtmlControl.IPHTMLPanelHotClick(Sender: TObject); procedure TLazIPHtmlControl.IPHTMLPanelHotClick(Sender: TObject);
@ -199,7 +199,7 @@ begin
HRef := TIpHtmlNodeAREA(HotNode).HRef; HRef := TIpHtmlNodeAREA(HotNode).HRef;
Target := TIpHtmlNodeAREA(HotNode).Target; Target := TIpHtmlNodeAREA(HotNode).Target;
end; end;
debugln(['TLazIPHtmlControl.IPHTMLPanelHotClick HRef="',HRef,'" Target="',Target,'"']); //debugln(['TLazIPHtmlControl.IPHTMLPanelHotClick HRef="',HRef,'" Target="',Target,'"']);
IDEProvider.OpenURLAsync(HRef); IDEProvider.OpenURLAsync(HRef);
end; end;

8
ide/codehelp.pas
View File

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

2
ide/idehelpmanager.pas
View File

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