paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-27 23:22:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: fix TWin32WSCustomCalendar.HitTest for systems < vista

Browse Source 
git-svn-id: trunk@22441 -
This commit is contained in:
paul 2009-11-05 09:53:46 +00:00
parent cd5f7242c6
commit ef831d1924
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32wscalendar.pp
View File

@ -35,7 +35,8 @@ uses
////////////////////////////////////////////////////
CommCtrl, SysUtils, Controls, LCLType, Calendar,
////////////////////////////////////////////////////
WSCalendar, WSLCLClasses, WSProc, Windows, Win32WSControls;
WSCalendar, WSLCLClasses, WSProc, Windows, Win32WSControls,
win32proc;
type
@ -127,7 +128,10 @@ begin
if not WSCheckHandleAllocated(ACalendar, 'TWin32WSCustomCalendar.HitTest') then
Exit;
FillChar(HitTestInfo, SizeOf(HitTestInfo), 0);
HitTestInfo.cbSize := SizeOf(HitTestInfo);
if WindowsVersion >= wvVista then
HitTestInfo.cbSize := SizeOf(HitTestInfo)
else
HitTestInfo.cbSize := 32;
HitTestInfo.pt := APoint;
HitPart := SendMessage(ACalendar.Handle, MCM_HITTEST, 0, LPARAM(@HitTestInfo));
case HitPart of