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

win32: use highlight color for transparent dock drawing, fix drawing for the case when no theme engine is used

Browse Source 
git-svn-id: trunk@26312 -
This commit is contained in:
paul 2010-06-29 01:16:27 +00:00
parent 2d73efe7b8
commit a849dbc99a
1 changed files with 29 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -294,6 +294,12 @@ begin
if Assigned(PMethod) then Freemem(PMethod);
end;
function DockWindowProc(Window: HWnd; Msg: UInt; WParam: Windows.WParam;
LParam: Windows.LParam): LResult; stdcall;
begin
Result := Windows.DefWindowProc(Window, Msg, WParam, LParam);
end;
procedure TWin32WidgetSet.DrawDefaultDockImage(AOldRect, ANewRect: TRect; AOperation: TDockImageOperation);
const
LineSize = 4;
@ -329,20 +335,39 @@ const
ReleaseDC(0, DC);
end;
end;
var
WindowClass: WndClass;
begin
if WindowsVersion >= wvVista then
begin
case AOperation of
disShow:
begin
with WindowClass do
begin
Style := CS_DBLCLKS;
LPFnWndProc := @DockWindowProc;
CbClsExtra := 0;
CbWndExtra := 0;
hInstance := System.HInstance;
hIcon := Windows.LoadIcon(0, IDI_APPLICATION);
hCursor := Windows.LoadCursor(0, IDC_ARROW);
hbrBackground := GetSysColorBrush(COLOR_HIGHLIGHT);
LPSzMenuName := nil;
LPSzClassName := 'LazDockWnd';
end;
Windows.RegisterClass(@WindowClass);
FDockWndHandle := CreateWindowEx(WS_EX_LAYERED or WS_EX_TRANSPARENT or WS_EX_TOPMOST or WS_EX_TOOLWINDOW,
ClsName, 'LazDockWnd', WS_POPUP or WS_VISIBLE,
ANewRect.Left, ANewRect.Top, ANewRect.Right - ANewRect.Left, ANewRect.Bottom - ANewRect.Top, 0, 0, HINSTANCE, nil);
'LazDockWnd', 'LazDockWnd', WS_POPUP or WS_VISIBLE,
ANewRect.Left, ANewRect.Top, ANewRect.Right - ANewRect.Left, ANewRect.Bottom - ANewRect.Top, 0, 0, System.HINSTANCE, nil);
SetLayeredWindowAttributes(FDockWndHandle, 0, $30, LWA_ALPHA);
end;
disHide: DestroyWindow(FDockWndHandle);
disHide:
begin
DestroyWindow(FDockWndHandle);
Windows.UnRegisterClass('LazDockWnd', System.HINSTANCE);
end;
disMove:
with ANewRect do
SetWindowPos(FDockWndHandle, 0, Left, Top, Right - Left, Bottom - Top, SWP_NOZORDER or SWP_NOACTIVATE);