paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:19:37 +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
NewElement: TCodeHelpElement;
begin
DebugLn(['TFPDocEditForm.CreateElement ']);
//DebugLn(['TFPDocEditForm.CreateElement ']);
if (Element=nil) or (Element.ElementName='') then exit(false);
NewElement:=nil;
Include(FFlags,fpdefWriting);
@ -1145,7 +1145,7 @@ begin
SaveButton.Enabled:=false;
Exit; // nothing changed => exit
end;
DebugLn(['TFPDocEditor.Save FModified=',FModified,' CheckGUI=',CheckGUI,' GUIModified=',GUIModified]);
//DebugLn(['TFPDocEditor.Save FModified=',FModified,' CheckGUI=',CheckGUI,' GUIModified=',GUIModified]);
FModified:=false;
SaveButton.Enabled:=false;
@ -1398,7 +1398,7 @@ var
begin
i:=FindInheritedIndex;
if i<0 then exit;
DebugLn(['TFPDocEditForm.CopyFromInheritedButtonClick ']);
//DebugLn(['TFPDocEditForm.CopyFromInheritedButtonClick ']);
if ShortEdit.Text<>'' then begin
if QuestionDlg('Confirm replace',
GetContextTitle(fChain[0])+' already contains the help:'+#13