|
|
| Тема |
 Calendar компонент |
|
| Автор | jp (Нерегистриран) | |
| Публикувано | 25.04.04 22:12 |
|
|
|
Ако някой си е блъскал главата със сорса на компонентата Calendar нека помогне.Не мога да разбера каква работа върши FMonthOffset в кода по-долу:
procedure TRxCalendar.CalendarUpdate(DayOnly: Boolean);
var
AYear, AMonth, ADay: Word;
FirstDate: TDateTime;
begin
FUpdating := True;
try
DecodeDate(FDate, AYear, AMonth, ADay);
FirstDate := EncodeDate(AYear, AMonth, 1);
FMonthOffset := 2 - ((DayOfWeek(FirstDate) - Ord(StartOfWeek) + 7) mod 7);
{ day of week for 1st of month }
if FMonthOffset = 2 then FMonthOffset := -5;
MoveColRow((ADay - FMonthOffset) mod 7, (ADay - FMonthOffset) div 7 + 1,
False, False);
if DayOnly then Update else Invalidate;
finally
FUpdating := False;
end;
end;
Експериментирах с различни стойности но ефекта е един и същ, затова и не мога да разбера предназначението му
| |
| |
| 
|
|
