mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Dark mode - don't steal focus when hint window showed

Browse source
This commit is contained in:
Alexander Koblov 2020-11-24 19:09:24 +00:00
commit 7805e483b3
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/platform/uosforms.pas
View file

@ -409,6 +409,7 @@ end;
procedure ScreenFormEvent(Self, Sender: TObject; Form: TCustomForm);
var
Handle: HWND;
AWindow: QWidgetH;
begin
Handle:= GetWindowHandle(Form);
AllowDarkModeForWindow(Handle, True);
@ -416,7 +417,9 @@ begin
if (Form is THintWindow) then
begin
Windows.SetWindowLong(Handle, GWL_EXSTYLE, Windows.GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
AWindow:= QWidget_window(TQtWidget(Form.Handle).GetContainerWidget);
QWidget_setWindowFlags(AWindow, QtTool or QtFramelessWindowHint);
QWidget_setAttribute(AWindow, QtWA_ShowWithoutActivating);
end;
end;
{$ENDIF}