From 864df52f4aaff2d8442a9e9068ac2a6b16f39b54 Mon Sep 17 00:00:00 2001
From: lacak <lacak@lazarus-ide.org>
Date: Mon, 30 Mar 2020 07:27:25 +0000
Subject: [PATCH] LCL: WinCE: fix function "LCLBoundsToWin32Bounds()" signature
 introduced by rev. 61112. Bug #36848

git-svn-id: trunk@62817 -
---
 lcl/interfaces/wince/winceproc.pp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lcl/interfaces/wince/winceproc.pp b/lcl/interfaces/wince/winceproc.pp
index 12dce61aba..076edde618 100644
--- a/lcl/interfaces/wince/winceproc.pp
+++ b/lcl/interfaces/wince/winceproc.pp
@@ -867,8 +867,7 @@ begin
   Result:=GetLCLClientBoundsOffset(OwnerObject, Rect);
 end;
 
-procedure LCLBoundsToWin32Bounds(Sender: TObject;
-  var Left, Top, Width, Height: Integer);
+procedure LCLBoundsToWin32Bounds(Sender: TObject; var Left, Top: Integer);
 var
   ORect: TRect;
 Begin