paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-12 01:00:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed comment

Browse Source 
git-svn-id: trunk@34730 -
This commit is contained in:
mattias 2012-01-14 13:52:25 +00:00
parent 00dbde1442
commit b72a2cc04c
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -364,7 +364,7 @@ type
procedure mnuToolConfigBuildLazClicked(Sender: TObject); procedure mnuToolConfigBuildLazClicked(Sender: TObject);
procedure mnuCustomExtToolClick(Sender: TObject); procedure mnuCustomExtToolClick(Sender: TObject);
// environment menu // options menu
procedure mnuEnvGeneralOptionsClicked(Sender: TObject); procedure mnuEnvGeneralOptionsClicked(Sender: TObject);
procedure mnuEnvEditorOptionsClicked(Sender: TObject); procedure mnuEnvEditorOptionsClicked(Sender: TObject);
procedure mnuEnvCodeTemplatesClicked(Sender: TObject); procedure mnuEnvCodeTemplatesClicked(Sender: TObject);

7
ide/project.pp
View File

@ -3870,6 +3870,13 @@ end;
procedure TProject.SetModified(const AValue: boolean); procedure TProject.SetModified(const AValue: boolean);
begin begin
{$IFDEF VerboseTProjectSetModified}
if (not Modified) and AValue then begin
debugln(['TProject.SetModified ']);
DumpStack;
end;
{$ENDIF}
if fDestroying then exit; if fDestroying then exit;
inherited SetModified(AValue); inherited SetModified(AValue);
if not AValue then if not AValue then