Implement findwindow tool highlighting of spy ++

Method 1 of implementing the findwindow tool highlighted (highlight) of an application's form or internal object:
Implementation through SelectObject
 
Procedure inverttracker (hwnddest: hwnd );
// Draw a border
VaR
Hdcdest: hwnd;
Hpen: hwnd;
Holdpen: hwnd;
Holdbrush: hwnd;
Cr: hwnd;
RC: trect;
Begin
Getwindowrect (hwnddest, RC );
Hdcdest: = getwindowdc (hwnddest );
Setrop2 (hdcdest, r2_not );
Cr: = clblack;
Hpen: = createpen (ps_insideframe, 2, Cr );
 
Holdpen: = SelectObject (hdcdest, Hpen );
Holdbrush: = SelectObject (hdcdest, getstockobject (null_brush ));
Rectangle (hdcdest, 0, 0, RC. Right-RC. Left, RC. Bottom-RC. Top );
SelectObject (hdcdest, holdbrush );
SelectObject (hdcdest, holdpen );
 
Releasedc (hwnddest, hdcdest );
Deleteobject (Hpen );
End;
 
 
Method 2:
Reversed the border area color
 
Procedure highlightwindow (hwndwindow: hwnd );
VaR hdcwindow: HDC;
Rect: trect;
Dinv: integer;
Begin
If (hwndwindow = 0) or (not iswindow (hwndwindow) then
Exit
Else begin
Hdcwindow: = getwindowdc (hwndwindow );
Windows. getwindowrect (hwndwindow, rect );
Offsetrect (rect,-rect. Left,-rect. Top );
 
Dinv: = 4;
If not isrectempty (rect) then
Begin
Patblt (hdcwindow, rect. Left, rect. Top, rect. Right-rect. Left, dinv, dstinvert );
Patblt (hdcwindow, rect. Left, rect. Bottom-dinv, dinv,
-(Rect. Bottom-rect. Top-2 * dinv), dstinvert );
Patblt (hdcwindow, rect. Right-dinv, rect. Top + dinv, dinv,
Rect. Bottom-rect. Top-2 * dinv, dstinvert );
Patblt (hdcwindow, rect. Right, rect. Bottom-dinv,-(rect. Right-rect. Left ),
Dinv, dstinvert );
End;
Releasedc (hwndwindow, hdcwindow );
End;
End;
 
However, neither of these two functions can achieve the highlighted special form,