From 4348fec2e3e96b4d4d2feaab1a316196c9867e97 Mon Sep 17 00:00:00 2001 From: Xusinboy Bekchanov Date: Sun, 17 Apr 2022 19:53:49 +0500 Subject: [PATCH] Fixed: Edit control lose focus on mouse move to tooltip hyperlink --- src/EditControl.bas | 3 ++- src/EditControl.bi | 2 ++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/src/EditControl.bas b/src/EditControl.bas index 36877689..5bad6657 100644 --- 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 index 37b706bd..c8c308fd 100644 --- 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__