Bug 1650: Keywords that link to help page are underlined in generated code on Windows 10 version 1803

https://winscp.net/tracker/1650

Source commit: 088346bf5cac92165ae9fdb8f5be301e6d04f980

source/windows/GUITools.cpp

@@ -21,6 +21,7 @@
 #include <Glyphs.h>
 #include <PasTools.hpp>
 #include <VCLCommon.h>
+#include <WinApi.h>
 #include <Vcl.ScreenTips.hpp>
 
 #include "Animations96.h"
@@ -1627,6 +1628,12 @@ void __fastcall TNewRichEdit::CreateParams(TCreateParams & Params)
   CreateSubClass(Params, MSFTEDIT_CLASS);
 }
 //---------------------------------------------------------------------------
+void __fastcall TNewRichEdit::CreateWnd()
+{
+  TRichEdit::CreateWnd();
+  SendMessage(Handle, EM_SETEDITSTYLEEX, 0, SES_EX_HANDLEFRIENDLYURL);
+}
+//---------------------------------------------------------------------------
 void __fastcall TNewRichEdit::DestroyWnd()
 {
   TRichEdit::DestroyWnd();

source/windows/GUITools.h

@@ -161,6 +161,7 @@ public:
 
 protected:
   virtual void __fastcall CreateParams(TCreateParams & Params);
+  virtual void __fastcall CreateWnd();
   virtual void __fastcall DestroyWnd();
 
 private:

source/windows/WinApi.h

@@ -188,4 +188,8 @@ public:
 };
 //---------------------------------------------------------------------------
 //---------------------------------------------------------------------------
+#define EM_SETEDITSTYLEEX (WM_USER + 275)
+#define SES_EX_HANDLEFRIENDLYURL (0x100)
+//---------------------------------------------------------------------------
+//---------------------------------------------------------------------------
 #endif  // WinApiH