MG: added SaveFlagNames

git-svn-id: trunk@3314 -

ide/mainbar.pas

@@ -277,9 +277,16 @@ const
      'ofRegularFile',
      'ofVirtualFile'
     );
+    
+  SaveFlagNames: array[TSaveFlag] of string = (
+     'sfSaveAs',
+     'sfSaveToTestDir',
+     'sfProjectSaving',
+     'sfCheckAmbigiousFiles'
+    );
 
 function OpenFlagsToString(Flags: TOpenFlags): string;
-
+function SaveFlagsToString(Flags: TSaveFlags): string;
 
 implementation
 
@@ -299,6 +306,21 @@ begin
   Result:='['+Result+']';
 end;
 
+function SaveFlagsToString(Flags: TSaveFlags): string;
+var
+  Flag: TSaveFlag;
+begin
+  Result:='';
+  for Flag:=Low(TSaveFlag) to High(TSaveFlag) do begin
+    if Flag in Flags then begin
+      if Result<>'' then
+        Result:=Result+',';
+      Result:=Result+SaveFlagNames[Flag];
+    end;
+  end;
+  Result:='['+Result+']';
+end;
+
 function LoadPixmap(const ResourceName:string): TPixmap;
 begin
   Result:=TPixmap.Create;