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

MG: added SaveFlagNames

Browse Source 
git-svn-id: trunk@2764 -
This commit is contained in:
lazarus 2002-08-18 08:53:44 +00:00
parent 63f2c1b989
commit e1cfe08630
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -3460,7 +3460,7 @@ var ActiveSrcEdit:TSourceEditor;
ResourceCode, LFMCode: TCodeBuffer;
begin
{$IFDEF IDE_VERBOSE}
writeln('TMainIDE.DoSaveEditorFile A PageIndex=',PageIndex,' SaveAs=',sfSaveAs in Flags,' SaveToTestDir=',sfSaveToTestDir in Flags);
writeln('TMainIDE.DoSaveEditorFile A PageIndex=',PageIndex,' Flags=',SaveFlagsToString(Flags));
{$ENDIF}
{$IFDEF IDE_MEM_CHECK}CheckHeap(IntToStr(GetMem_Cnt));{$ENDIF}
Result:=mrCancel;
@ -6892,6 +6892,9 @@ end.
{ =============================================================================
$Log$
Revision 1.369 2002/09/10 14:48:21 lazarus
MG: added SaveFlagNames
Revision 1.368 2002/09/10 07:43:19 lazarus
MG: fixed auto revert