paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-08 12:58:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: wince: aligns WinCE to Win32 from LacaK

Browse Source
This commit is contained in:
mattias 2022-05-17 09:48:36 +02:00
parent fba36b9318
commit 819e17fc38
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/interfaces/wince/wincewinapi.inc
View File

@ -2120,25 +2120,28 @@ var
ParentHandle: THandle; ParentHandle: THandle;
// WindowInfo: PWindowInfo; // WindowInfo: PWindowInfo;
begin begin
Result:=false; Result:=False;
// WindowInfo := GetWindowInfo(Handle); // WindowInfo := GetWindowInfo(Handle);
// if (WindowInfo^.WinControl is TCustomFloatSpinEdit) then // if (WindowInfo^.WinControl is TCustomFloatSpinEdit) then
// Handle := Windows.SendMessage(Handle, UDM_GETBUDDY, 0, 0); // Handle := Windows.SendMessage(Handle, UDM_GETBUDDY, 0, 0);
if not Windows.GetWindowRect(Handle,@R) then exit; if not Windows.GetWindowRect(Handle,@R) then Exit;
LeftTop.X:=R.Left; LeftTop.X:=R.Left;
LeftTop.Y:=R.Top; LeftTop.Y:=R.Top;
ParentHandle:=Windows.GetParent(Handle); if (GetWindowLong(Handle, GWL_STYLE) and WS_CHILD) <> 0 then
if ParentHandle<>0 then
begin begin
if not Windows.ScreenToClient(ParentHandle,@LeftTop) then exit; ParentHandle:=Windows.GetParent(Handle);
if not GetLCLClientBoundsOffset(ParentHandle, R) then if ParentHandle<>0 then
exit; begin
dec(LeftTop.X, R.Left); if not Windows.ScreenToClient(ParentHandle,@LeftTop) then Exit;
dec(LeftTop.Y, R.Top); if not GetLCLClientBoundsOffset(ParentHandle, R) then
Exit;
Dec(LeftTop.X, R.Left);
Dec(LeftTop.Y, R.Top);
end;
end; end;
Left:=LeftTop.X; Left:=LeftTop.X;
Top:=LeftTop.Y; Top:=LeftTop.Y;
Result:=true; Result:=True;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------