paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 10:20:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Win32: Prevent Splitter from activating the "resize bar" window. Avoid focus changes to the form, or its components. Issue #41506 Patch by Lipinast Lekrisov

Browse Source 
(cherry picked from commit 12afdd137b)
This commit is contained in:
Martin 2025-03-10 00:18:10 +01:00
parent dc81b2e397
commit 4186441ba3
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32lclintf.inc
View File

@ -284,15 +284,17 @@ begin
if WindowsVersion >= wv2000 then
begin
Result := CreateWindowEx(WS_EX_LAYERED or WS_EX_TRANSPARENT or WS_EX_TOPMOST or WS_EX_TOOLWINDOW,
PChar(WndClassName), PChar(WndClassName), WS_POPUP or WS_VISIBLE,
PChar(WndClassName), PChar(WndClassName), WS_POPUP,
ARect.Left, ARect.Top, ARect.Right - ARect.Left, ARect.Bottom - ARect.Top, AppHandle, 0, System.HInstance, nil);
SetLayeredWindowAttributes(Result, 0, $30, LWA_ALPHA);
end
else
Result := CreateWindowEx(WS_EX_TOPMOST or WS_EX_TOOLWINDOW,
PChar(WndClassName), PChar(WndClassName), WS_POPUP or WS_VISIBLE,
PChar(WndClassName), PChar(WndClassName), WS_POPUP,
ARect.Left, ARect.Top, ARect.Right - ARect.Left, ARect.Bottom - ARect.Top, AppHandle, 0, System.HInstance, nil);
ShowWindow(Result, SW_SHOWNOACTIVATE);
end;
{------------------------------------------------------------------------------