paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 13:19:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix compilation calendar win32

Browse Source 
git-svn-id: trunk@6030 -
This commit is contained in:
micha 2004-09-18 18:29:59 +00:00
parent 559f264877
commit d885bc022d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -33,9 +33,9 @@ uses
// To get as little as posible circles,
// uncomment only when needed for registration
////////////////////////////////////////////////////
Calendar,
Calendar, SysUtils,
////////////////////////////////////////////////////
WSCalendar, WSLCLClasses;
WSCalendar, WSLCLClasses, Windows, Win32Def;
type
@ -45,17 +45,17 @@ type
private
protected
public
class function GetDateTime(const ACalender: TCustomCalender): TDateTime; override;
class function GetDateTime(const ACalendar: TCustomCalendar): TDateTime; override;
end;
implementation
function TWin32WSCalender.GetDateTime(const ACalender: TCustomCalender): TDateTime;
function TWin32WSCalendar.GetDateTime(const ACalendar: TCustomCalendar): TDateTime;
var
ST: SystemTime;
begin
SendMessage(ACalender.Handle, MCM_GETCURSEL, 0, LPARAM(@ST));
SendMessage(ACalendar.Handle, MCM_GETCURSEL, 0, LPARAM(@ST));
with ST do
Result := EncodeDate(WYear,WMonth,WDay);
end;