paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 03:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

carbon: fix for #15603

Browse Source 
git-svn-id: trunk@23810 -
This commit is contained in:
dmitry 2010-03-01 06:34:52 +00:00
parent eb52aebd64
commit d1fa7b28f6
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/carbon/carboncalendar.pas
View File

@ -53,6 +53,7 @@ procedure TCarbonCalendar.CreateWidget(const AParams: TCreateParams);
begin
if OSError(CalendarViewCreate(GetTopParentWindow, ParamsToCarbonRect(AParams), Widget),
Self, 'CreateWidget', 'CalendarViewCreate') then RaiseCreateWidgetError(LCLObject);
inherited;
end;
procedure TCarbonCalendar.SetDateTime(const aDate: TDateTime);