From 1e6d30e0b5e598ae2ea2da087d4d35d46db6c6a1 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 22 Nov 2020 03:42:03 +0100
Subject: [PATCH] fix wrong dialog kind used when saving doc as html

---
 CHANGELOG.md   | 1 +
 src/u_main.pas | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index f30b64dc..9b3a924b 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -9,6 +9,7 @@ See [LDC announcement](https://forum.dlang.org/post/ssvxmrdpklhsrqlgrzas@forum.d
 
 - Messages, when selected, the recently added _Search Results_ category could not be emptied.
 - Highlighter, `q"()"`, `q"[]"`, `q"<>"`, `q"{}>"` strings highlighting was broken.
+- HTML export, the dialog proposed to open a file, not to save one.
 
 # v3.9.8
 
diff --git a/src/u_main.pas b/src/u_main.pas
index 76d899ab..dd6e031d 100644
--- a/src/u_main.pas
+++ b/src/u_main.pas
@@ -2603,7 +2603,7 @@ begin
     exit;
   exp := TSynExporterHTML.Create(nil);
   try
-    with TOpenDialog.Create(nil) do
+    with TSaveDialog.Create(nil) do
     try
       if Execute then
       begin