paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 14:59:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fpdoceditor: reduced debugging

Browse Source 
git-svn-id: trunk@25778 -
This commit is contained in:
mattias 2010-05-30 18:02:31 +00:00
parent 8457924769
commit 35693c3e88
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/fpdoceditwindow.pas
View File

@ -908,7 +908,7 @@ function TFPDocEditor.CreateElement(Element: TCodeHelpElement): Boolean;
var var
NewElement: TCodeHelpElement; NewElement: TCodeHelpElement;
begin begin
DebugLn(['TFPDocEditForm.CreateElement ']); //DebugLn(['TFPDocEditForm.CreateElement ']);
if (Element=nil) or (Element.ElementName='') then exit(false); if (Element=nil) or (Element.ElementName='') then exit(false);
NewElement:=nil; NewElement:=nil;
Include(FFlags,fpdefWriting); Include(FFlags,fpdefWriting);
@ -1145,7 +1145,7 @@ begin
SaveButton.Enabled:=false; SaveButton.Enabled:=false;
Exit; // nothing changed => exit Exit; // nothing changed => exit
end; end;
DebugLn(['TFPDocEditor.Save FModified=',FModified,' CheckGUI=',CheckGUI,' GUIModified=',GUIModified]); //DebugLn(['TFPDocEditor.Save FModified=',FModified,' CheckGUI=',CheckGUI,' GUIModified=',GUIModified]);
FModified:=false; FModified:=false;
SaveButton.Enabled:=false; SaveButton.Enabled:=false;
@ -1398,7 +1398,7 @@ var
begin begin
i:=FindInheritedIndex; i:=FindInheritedIndex;
if i<0 then exit; if i<0 then exit;
DebugLn(['TFPDocEditForm.CopyFromInheritedButtonClick ']); //DebugLn(['TFPDocEditForm.CopyFromInheritedButtonClick ']);
if ShortEdit.Text<>'' then begin if ShortEdit.Text<>'' then begin
if QuestionDlg('Confirm replace', if QuestionDlg('Confirm replace',
GetContextTitle(fChain[0])+' already contains the help:'+#13 GetContextTitle(fChain[0])+' already contains the help:'+#13