#87 generate noname with number

lazpaint/lazpaintmainform.pas

@@ -1506,7 +1506,6 @@ begin
     {$WARNINGS ON}
     filename := ExtractFileName(filename);
   end else initialDir:= '';
-  if filename = '' then filename := rsNoName;
   if initialDir = '' then
   begin
     if AVars.Booleans['Export'] then
@@ -1514,6 +1513,11 @@ begin
     else
       initialDir:= FSaveInitialDir;
   end;
+  if filename = '' then
+  begin
+    if initialDir = '' then initialDir := DefaultPicturesDirectory;
+    filename := FileManager.GetDefaultFilename(initialDir);
+  end;
   if saveDlg.FilterIndex > 1 then
     filename := ApplySelectedFilterExtension(filename,saveDlg.Filter,saveDlg.FilterIndex);
   if not Image.AbleToSaveAsUTF8(filename) then

lazpaint/ufilesystem.pas

@@ -94,6 +94,7 @@ type
     function FileExists(AFilenameUTF8: string): boolean;
     procedure DeleteFile(AFilenameUTF8: string);
     function GetValidFilename(ASuggested: string): string;
+    function GetDefaultFilename(ADirectory: string): string;
   end;
 
 var
@@ -1215,6 +1216,24 @@ begin
     end;
 end;
 
+function TFileManager.GetDefaultFilename(ADirectory: string): string;
+var
+  nonameCounter: Integer;
+  foundFiles: TFileInfoList;
+begin
+  result := rsNoName;
+  nonameCounter := 1;
+  foundFiles := TFileInfoList.Create;
+  repeat
+    foundFiles.Clear;
+    GetDirectoryElements(ADirectory, result+'.*', [otNonFolders], foundFiles);
+    if foundFiles.Count = 0 then exit;
+    inc(nonameCounter);
+    result := rsNoName+IntToStr(nonameCounter);
+  until nonameCounter > 999;
+  result := '?';
+end;
+
 initialization
 
   FileManager := TFileManager.Create;