paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, Win32: cleanup, remove an unused function.

Browse Source 
git-svn-id: trunk@47473 -
This commit is contained in:
juha 2015-01-21 00:16:43 +00:00
parent f0cc20daa2
commit fa32f0d431
1 changed files with 4 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lcl/interfaces/win32/win32callback.inc
View File

@ -250,13 +250,9 @@ begin
for i:= 0 to c - 1 do
begin
sub := GetSubMenu(AParent, i);
if sub = ASearch
then begin
Result := AParent;
Exit;
end;
Result := GetMenuParent(ASearch, sub);
if sub = ASearch then
Exit(AParent);
Result := GetMenuParent(ASearch, sub); // Recursive call
if Result <> 0 then Exit;
end;
Result := 0;
@ -326,28 +322,11 @@ begin
else
EnableWindow(ChildControl.Handle, false);
EnableChildWindows(ChildControl, Enable);
EnableChildWindows(ChildControl, Enable); // Recursive call
end;
end;
end;
// Gets the cursor position relative to a given window
function GetClientCursorPos(ClientWindow: HWND) : TSmallPoint;
var
P: TPoint;
begin
Windows.GetCursorPos(P);
//if the mouse is not over the window is better to set to 0 to avoid weird behaviors
if Windows.WindowFromPoint(P) = ClientWindow then
Windows.ScreenToClient(ClientWindow, P)
else
begin
P.X:=0;
P.Y:=0;
end;
Result := PointToSmallPoint(P);
end;
// A helper class for WindowProc to make it easier to split code into smaller pieces.
// The original function was about 2400 lines.