Tried to colorize 1-px line under TMainMenu, need help

[AlexTP]

For Win32MenuStyler https://wiki.freepascal.org/Win32MenuStyler
I need to colorize 1 px horizontal line under MainMenu. It is painted by OS in non-client area.
C++ sample how to do it:
https://stackoverflow.com/questions/57177310/how-to-paint-over-white-line-between-menu-bar-and-client-area-of-window

I tried to add it to Win32 WS, near the "WM_NCPAINT:" in TWindowProcHelper.DoWindowProc, but failed. I added:

Code: Pascal  [Select][+][-]

1.     WM_NCPAINT:
2.     begin
3.       if TWin32ThemeServices(ThemeServices).ThemesEnabled and
4.         (lWinControl is TCustomControl) and not (lWinControl is TCustomForm) then
5.       begin
6.         TWin32ThemeServices(ThemeServices).PaintBorder(lWinControl, True);
7.         LMessage.Result := 0;
8.       end;
9.       PaintLineUnderMenubar(TargetWindow);
10.     end;
11.  

with my func:

Code: Pascal  [Select][+][-]

1. procedure PaintLineUnderMenubar(Window: Hwnd);
2. var
3.   R, RScr: TRect;
4.   br: HBRUSH;
5.   dc: HDC;
6. begin
7.   if not IsWindow(Window) then exit;
8.   if GetMenu(Window) = 0 then Exit;
9.  
10.   GetClientRect(Window, R);
11.   MapWindowPoints(Window, NULL, R, 2);
12.   GetWindowRect(Window, RScr);
13.   OffsetRect(R, -RScr.Left, -RScr.Top);
14.   Dec(R.Top);
15.  
16.   R.Bottom := R.Top + 2;
17.  
18.   dc := GetWindowDC(Window);
19.   br := CreateSolidBrush(clRed);
20.   FillRect(dc, R, br);
21.   DeleteObject(br);
22.   ReleaseDC(Window, dc);
23. end;
24.  

Can you help?
Screenshot of current white line - is added.

[winni]

Hi!

Your Rectangle has a height of zero:

R.Bottom := R.Top + 1;

This will fill the area from R.Top to R.Bottom -1. That is zero.

Do:

R.Bottom := R.Top + 2;

Allways the same trouble with the Integer-Rects.

Winni

PS.: Or just draw a line

[Handoko]

I ever had such problem too in the past. 

[AlexTP]

@winni, thanks, edited the 1st post - it still don't work...

[wp]

In Lazarus the WM* messages were renamed to LM*. Please try to catch message LM_NCPAINT.