diff --git a/lcl/interfaces/customdrawn/wincallback.inc b/lcl/interfaces/customdrawn/wincallback.inc
index 2128112884..96f49b6eaf 100644
--- a/lcl/interfaces/customdrawn/wincallback.inc
+++ b/lcl/interfaces/customdrawn/wincallback.inc
@@ -332,30 +332,6 @@ Var
{$endif}
end;
- procedure SendParentPaintMessage(Window, Parent: HWND; ControlDC: HDC);
- {$ifdef DEBUG_WINDOW_ORG}
- var
- Point: TPoint;
- {$endif}
- begin
- GetWin32ControlPos(Window, Parent, P.X, P.Y);
-
- {$ifdef DEBUG_WINDOW_ORG}
- LCLIntf.GetWindowOrgEx(ControlDC, @Point);
- DebugLn(
- Format(':> [SendParentPaintMessage] DC=%d Moving WindowsOrg From %d,%d By DX=%d DY=%d',
- [ControlDC, Point.X, Point.Y, P.X, P.Y]));
- {$endif}
-
- MoveWindowOrgEx(ControlDC, -P.X, -P.Y);
- SendPaintMessage(ControlDC);
- MoveWindowOrgEx(ControlDC, P.X, P.Y);
-
- {$ifdef DEBUG_WINDOW_ORG}
- DebugLn(':< [SendParentPaintMessage] Finish');
- {$endif}
- end;
-
procedure HandleSetCursor;
var
lControl: TControl;
diff --git a/lcl/interfaces/lcl.lpk b/lcl/interfaces/lcl.lpk
index 621316b91b..18ba3526a3 100644
--- a/lcl/interfaces/lcl.lpk
+++ b/lcl/interfaces/lcl.lpk
@@ -114,7 +114,7 @@ end;"/>
-
+
@@ -1725,184 +1725,179 @@ end;"/>
-
-
-
-
-
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
+
+
+
+
-
+
-
+
-
+
-
+
-
+
-
+
-
-
-
-
-
-
+
+
-
-
+
+
-
-
+
+
+
+
+
+
-
+
-
+
-
-
-
-
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
+