Fixed: Edit control lose focus on mouse move to tooltip hyperlink

XusinboyBekchanov · Apr 17, 2022 · 4348fec · 4348fec
1 parent d938976
commit 4348fec
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/src/EditControl.bas b/src/EditControl.bas
@@ -3101,7 +3101,8 @@ Namespace My.Sys.Forms
 			'ti.uId    = Cast(UINT, FHandle)
 
 			If hwndTT = 0 Then
-				hwndTT = CreateWindow(TOOLTIPS_CLASS, "", WS_POPUP, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, NULL, Cast(HMENU, NULL), GetModuleHandle(NULL), NULL)
+				TT.CreateWnd
+				hwndTT = TT.Handle 'CreateWindowW(TOOLTIPS_CLASS, "", WS_POPUP, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, NULL, Cast(HMENU, NULL), GetModuleHandle(NULL), NULL)
 				If g_darkModeEnabled Then
 					SetWindowTheme(hwndTT, "DarkMode_Explorer", nullptr)
 				End If

diff --git a/src/EditControl.bi b/src/EditControl.bi
@@ -12,6 +12,7 @@
 #include once "mff/Clipboard.bi"
 #include once "mff/Application.bi"
 #include once "mff/ListView.bi"
+#include once "mff/ToolTips.bi"
 #include once "Main.bi"
 
 Enum KeyWordsCase
@@ -169,6 +170,7 @@ Namespace My.Sys.Forms
 			Dim As HBITMAP bufBMP
 			Dim As TEXTMETRIC tm
 			Dim As HWND hwndTT
+			Dim As ToolTips TT
 		#endif
 		Dim As ..RECT rc
 		#ifndef __USE_GTK__