paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-25 16:29:10 +02: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, // To get as little as posible circles,
// uncomment only when needed for registration // uncomment only when needed for registration
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
Calendar, Calendar, SysUtils,
//////////////////////////////////////////////////// ////////////////////////////////////////////////////
WSCalendar, WSLCLClasses; WSCalendar, WSLCLClasses, Windows, Win32Def;
type type
@ -45,17 +45,17 @@ type
private private
protected protected
public public
class function GetDateTime(const ACalender: TCustomCalender): TDateTime; override; class function GetDateTime(const ACalendar: TCustomCalendar): TDateTime; override;
end; end;
implementation implementation
function TWin32WSCalender.GetDateTime(const ACalender: TCustomCalender): TDateTime; function TWin32WSCalendar.GetDateTime(const ACalendar: TCustomCalendar): TDateTime;
var var
ST: SystemTime; ST: SystemTime;
begin begin
SendMessage(ACalender.Handle, MCM_GETCURSEL, 0, LPARAM(@ST)); SendMessage(ACalendar.Handle, MCM_GETCURSEL, 0, LPARAM(@ST));
with ST do with ST do
Result := EncodeDate(WYear,WMonth,WDay); Result := EncodeDate(WYear,WMonth,WDay);
end; end;