4 * Copyright 1999 Eric Kohl
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 * This is just a dummy control. An author is needed! Any volunteers?
22 * I will only improve this control once in a while.
23 * Eric <ekohl@abo.rhein-zeitung.de>
37 #include "wine/debug.h"
39 WINE_DEFAULT_DEBUG_CHANNEL(commctrl
);
42 static DWORD dwLastScrollTime
= 0;
44 /***********************************************************************
45 * MakeDragList (COMCTL32.13)
47 BOOL WINAPI
MakeDragList (HWND hwndLB
)
49 FIXME("(%p)\n", hwndLB
);
55 /***********************************************************************
56 * DrawInsert (COMCTL32.15)
58 VOID WINAPI
DrawInsert (HWND hwndParent
, HWND hwndLB
, INT nItem
)
60 FIXME("(%p %p %d)\n", hwndParent
, hwndLB
, nItem
);
65 /***********************************************************************
66 * LBItemFromPt (COMCTL32.14)
68 INT WINAPI
LBItemFromPt (HWND hwndLB
, POINT pt
, BOOL bAutoScroll
)
74 FIXME("(%p %ld x %ld %s)\n",
75 hwndLB
, pt
.x
, pt
.y
, bAutoScroll
? "TRUE" : "FALSE");
77 ScreenToClient (hwndLB
, &pt
);
78 GetClientRect (hwndLB
, &rcClient
);
79 nIndex
= (INT
)SendMessageA (hwndLB
, LB_GETTOPINDEX
, 0, 0);
81 if (PtInRect (&rcClient
, pt
))
83 /* point is inside -- get the item index */
86 if (SendMessageA (hwndLB
, LB_GETITEMRECT
, nIndex
, (LPARAM
)&rcClient
) == LB_ERR
)
89 if (PtInRect (&rcClient
, pt
))
97 /* point is outside */
101 if ((pt
.x
> rcClient
.right
) || (pt
.x
< rcClient
.left
))
109 dwScrollTime
= GetTickCount ();
111 if ((dwScrollTime
- dwLastScrollTime
) < 200)
114 dwLastScrollTime
= dwScrollTime
;
116 SendMessageA (hwndLB
, LB_SETTOPINDEX
, (WPARAM
)nIndex
, 0);
124 static LRESULT CALLBACK
125 DRAGLIST_WindowProc (HWND hwnd
, UINT uMsg
, WPARAM wParam
, LPARAM lParam
)