diff --git a/lcl/interfaces/carbon/carboncalendarview.pas b/lcl/interfaces/carbon/carboncalendarview.pas
index 3ee2eeb505..aa79cbc1e6 100644
--- a/lcl/interfaces/carbon/carboncalendarview.pas
+++ b/lcl/interfaces/carbon/carboncalendarview.pas
@@ -16,6 +16,8 @@
  TODO: remove QuickDraw deperacted functions
 
  The best size is: width = 180. height = 140
+ 
+ Ported by: Dmitry 'skalogryz' Boyarintsev 
 
  *****************************************************************************
  *                                                                           *
@@ -403,16 +405,14 @@ begin
 
 	// Figure out how tall a row should be
 	rowHeight := bounds.size.height / rowCount;
-	colWidth := Round ( bounds.size.width / 14 );	// round here instead of over and over
+	colWidth := Round ( bounds.size.width) div 14;	// round here instead of over and over
+
+  inData.drawProc(kControlStructureMetaPart, bounds, drawData);
 
-	drawRect := bounds;
-	drawRect.size.width := colWidth * 14;
-  inData.drawProc(kControlStructureMetaPart, drawRect, drawData);
-	
 	drawRect.origin := bounds.origin;
 	drawRect.size.height := Round( rowHeight * inData.titleRowRatio);
-
 	drawRect.size.width := colWidth;
+  
 	inData.drawProc(kCalendarPreviousYearPart, drawRect, drawData);
   inData.labelProc(kCalendarPreviousYearPart, drawRect, drawData);
 	drawRect.origin.x := drawRect.origin.x + drawRect.size.width;