Added: All Files Filter to MDINotepad example Save Dialog

XusinboyBekchanov · Sep 5, 2022 · 00ccaac · 00ccaac
1 parent 539d78c
commit 00ccaac
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Examples/MDINotepad/MDIMain.frm b/Examples/MDINotepad/MDIMain.frm
@@ -928,6 +928,7 @@ Private Sub MDIMainType.mnuFile_Click(ByRef Sender As MenuItem)
 			a->Changed = False
 		End If
 	Case "mnuFileSaveAs"
+		SaveFileDialog1.Filter = "All Files (*.*)|*.*"
 		If SaveFileDialog1.Execute() Then
 			If PathFileExists(SaveFileDialog1.FileName) Then
 				If MsgBox(!"Overwrite file?\r\n" & SaveFileDialog1.FileName, "Confirm", mtQuestion, btYesNo) <> mrYes Then