diff --git a/components/callite/source/calendarlite.pas b/components/callite/source/calendarlite.pas
index 8e31f51c7..25efbcfe4 100644
--- a/components/callite/source/calendarlite.pas
+++ b/components/callite/source/calendarlite.pas
@@ -89,7 +89,7 @@ type
                 coBoldWeekend, coDayLine, coShowBorder, coShowHolidays,
                 coShowTodayFrame, coShowTodayName, coShowTodayRow,
                 coShowWeekend, coShowDayNames, coShowTopRow, coUseTopRowColors,
-                coNoMonthChange
+                coNoMonthChange, coNoOtherMonthDays
   );
   TCalOptions = set of TCalOption;
 
@@ -967,6 +967,12 @@ begin
       if Assigned(FOwner.FOnPrepareCanvas) then
         FOwner.FOnPrepareCanvas(FOwner, FCanvas, y, m, d, state);
 
+      if (coNoOtherMonthDays in FOwner.Options) and (csOtherMonth in state) then
+      begin
+        dt := dt + 1;
+        continue;
+      end;
+
       continueDrawing := true;
       if Assigned(FOwner.FOnDrawCell) then
         { Custom-draw the cell }