paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 23:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

carbon: fixed calendar drawing

Browse Source 
git-svn-id: trunk@21830 -
This commit is contained in:
dmitry 2009-09-23 04:26:32 +00:00
parent d033ed3dfc
commit 4d0d242dde
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/carbon/carboncalendarview.pas
View File

@ -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;