Browse Source

#268 overwrite prompt for palette

circular17 3 years ago
parent
commit
bc039284a4
1 changed files with 1 additions and 0 deletions
  1. 1 0
      lazpaint/upalettetoolbar.pas

+ 1 - 0
lazpaint/upalettetoolbar.pas

@@ -396,6 +396,7 @@ begin
       saveDialog.InitialDir := '';
     saveDialog.Filter := BGRARegisteredPaletteFormatFilter(rsAllSupportedFiletypes);
     saveDialog.DefaultExt := 'txt';
+    saveDialog.Options := saveDialog.Options + [ofOverwritePrompt];
     if saveDialog.Execute then
     begin
       if Assigned(FLazPaintInstance) then