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

IDE: fpdoc editor: reduced debugging

Browse Source 
git-svn-id: trunk@23677 -
This commit is contained in:
mattias 2010-02-10 16:21:36 +00:00
parent 0464afa852
commit 4910b94206
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/fpdoceditwindow.pas
View File

@ -1088,16 +1088,21 @@ begin
end;
end;
if (fChain=nil) or (fChain.Count=0) then begin
if (FCurrentTopic <> '') and (DFile <> nil) then CodeHelpBoss.SaveFPDocFile(DFile)
else DebugLn(['TFPDocEditor.Save failed: no chain']);
if (FCurrentTopic <> '') and (DFile <> nil) then
CodeHelpBoss.SaveFPDocFile(DFile)
else if Visible then
DebugLn(['TFPDocEditor.Save failed: no chain']);
exit;
end;
if not fChain.IsValid then begin
if (FCurrentTopic <> '') and (DFile <> nil) then CodeHelpBoss.SaveFPDocFile(DFile)
else DebugLn(['TFPDocEditor.Save failed: chain not valid']);
if (FCurrentTopic <> '') and (DFile <> nil) then
CodeHelpBoss.SaveFPDocFile(DFile)
else if Visible then
DebugLn(['TFPDocEditor.Save failed: chain not valid']);
exit;
end;
if (fChain[0].FPDocFile = nil) and (DFile <> nil) then CodeHelpBoss.SaveFPDocFile(DFile)
if (fChain[0].FPDocFile = nil) and (DFile <> nil) then
CodeHelpBoss.SaveFPDocFile(DFile)
else begin
Values:=GetGUIValues;
if not WriteNode(fChain[0],Values,true) then begin