paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 23:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: improve DrawDefaultDockImage - use it with winxp too since it looks prettier, prevent window and application deactivation

Browse Source 
git-svn-id: trunk@26439 -
This commit is contained in:
paul 2010-07-03 09:20:13 +00:00
parent 7add8e0cd5
commit 195d1c5013
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -297,7 +297,9 @@ end;
function DockWindowProc(Window: HWnd; Msg: UInt; WParam: Windows.WParam;
LParam: Windows.LParam): LResult; stdcall;
begin
Result := Windows.DefWindowProc(Window, Msg, WParam, LParam);
if (Msg = WM_ACTIVATE) and (LoWord(WParam) <> WA_INACTIVE) and (LParam <> 0) then
Windows.SendMessage(LParam, WM_NCACTIVATE, 1, 0);
Result := Windows.DefWindowProc(Window, Msg, WParam, LParam);
end;
procedure TWin32WidgetSet.DrawDefaultDockImage(AOldRect, ANewRect: TRect; AOperation: TDockImageOperation);
@ -338,7 +340,7 @@ const
var
WindowClass: WndClass;
begin
if WindowsVersion >= wvVista then
if WindowsVersion >= wvXP then
begin
case AOperation of
disShow:
@ -359,7 +361,7 @@ begin
Windows.RegisterClass(@WindowClass);
FDockWndHandle := CreateWindowEx(WS_EX_LAYERED or WS_EX_TRANSPARENT or WS_EX_TOPMOST or WS_EX_TOOLWINDOW,
'LazDockWnd', 'LazDockWnd', WS_POPUP or WS_VISIBLE,
ANewRect.Left, ANewRect.Top, ANewRect.Right - ANewRect.Left, ANewRect.Bottom - ANewRect.Top, 0, 0, System.HINSTANCE, nil);
ANewRect.Left, ANewRect.Top, ANewRect.Right - ANewRect.Left, ANewRect.Bottom - ANewRect.Top, AppHandle, 0, System.HINSTANCE, nil);
SetLayeredWindowAttributes(FDockWndHandle, 0, $30, LWA_ALPHA);
end;