paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 20:10:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

carbon: cleanup debug messages

Browse Source 
git-svn-id: trunk@21819 -
This commit is contained in:
dmitry 2009-09-22 13:31:41 +00:00
parent 3f589dad6a
commit 2b795ca9d8
2 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -73,8 +73,6 @@ var
date : CFGregorianDate;
begin
CalendarGetDate(Widget, date);
with date do
writeln(date.year,' / ',date.month, ' / ',date.day);
Result := EncodeDate(date.year, date.month, date.day);
end;

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

@ -763,7 +763,6 @@ begin
kControlCalendarDateTag:
begin
writeln('getting the date!');
if sz = sizeof( CFGregorianDate ) then begin
CFGregorianDatePtr(ptr)^ := inData.date;
if (inData.selDay>0) and (inData.selDay<inData.daysInMonth) then
@ -1070,11 +1069,7 @@ end;
function CalendarSetDate(Calendar: ControlRef; const Date: CFGregorianDate): Boolean;
begin
Result := isValidCalendarControl(Calendar);
if not Result then begin
writeln('not calendar!');
Exit;
end;
writeln('calendar!');
if not Result then Exit;
Result := SetControlData(Calendar, kControlEntireControl, kControlCalendarDateTag, sizeof(Date), @Date) = noErr;
end;