Преглед изворни кода

* Copyright notice and additional events

michael пре 5 година
родитељ
комит
d070e63948
1 измењених фајлова са 30 додато и 1 уклоњено
  1. 30 1
      packages/fullcalendar/libfullcalendar.pp

+ 30 - 1
packages/fullcalendar/libfullcalendar.pp

@@ -1,3 +1,18 @@
+{
+    This file is part of the Pas2JS run time library.
+    Copyright (C) 2019 Michael Van Canneyt
+
+    FullCalendar mappings for pas2js
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
 unit libfullcalendar;
 
 {$mode objfpc}
@@ -386,6 +401,18 @@ Type
     Procedure remove;
   end;
 
+  TCalendarEventRenderInfo = record
+    event: TCalendarEvent;
+    el : TJSHTMLElement;
+    isMirror : Boolean;
+    isStart : Boolean;
+    isEnd : Boolean;
+    view : TFullCalendarView;
+  end;
+
+
+  TCalendarEventRenderCallback = reference to procedure(Info : TCalendarEventRenderInfo);
+
   TCalendarEventSourceArray = Array of TCalendarEventSource;
 
   TFullCalendarOptions = Class external name 'Object' (TJSObject)
@@ -457,6 +484,8 @@ Type
     nowStr : string; external name 'now';
     nowInt : nativeInt; external name 'now';
     nowFunc : TDateFunction; external name 'now';
+    eventLimit : Boolean;
+    eventLimitInt : Integer; external name 'eventLimit';
     events : TBaseCalendarEventArray;
     eventsStr : string; external name 'events'; // JSON feed
     eventsFunc : TCalendarEventGenerator; external name 'events'; // JSON feed
@@ -464,6 +493,7 @@ Type
     eventsArr : TCalendarEventArray; external name 'events'; // JSON feed
     eventsObjList : TJSObjectDynArray ; external name 'events'; // Roll your own
     eventSources : TCalendarEventSourceArray;
+    eventRender : TCalendarEventRenderCallback;
     startParam : string;
     endParam : string;
     timeZoneParam : string;
@@ -638,4 +668,3 @@ begin
 end;
 
 end.
-