From 15989485bf9246ca72a10de9fbf94432dbfa5c57 Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Sat, 29 Jul 2023 23:59:33 +0200
Subject: [PATCH] TTaskDialog: Win32WS: handle '\n' in caption of
 (radio)buttons (for backwards compatibility).

---
 lcl/interfaces/win32/win32wsdialogs.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32wsdialogs.pp b/lcl/interfaces/win32/win32wsdialogs.pp
index a28d8de373..ed31c0d327 100644
--- a/lcl/interfaces/win32/win32wsdialogs.pp
+++ b/lcl/interfaces/win32/win32wsdialogs.pp
@@ -1720,7 +1720,7 @@ var
           SetLength(ButtonCaptions,RUCount+16);
           SetLength(Buttons,RUCount+16);
         end;
-        ButtonCaptions[RUCount] := Utf8ToUtf16(List[i]);//GetNextStringLineToWS(P);
+        ButtonCaptions[RUCount] := Utf8ToUtf16(StringReplace(List[i],'\n',#10,[rfReplaceAll]));
         Buttons[RUCount].nButtonID := n+firstID;
         Buttons[RUCount].pszButtonText := PWideChar(ButtonCaptions[RUCount]);
         inc(n);