|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Выделить определенные дни в календаре (MONTHCAL_CLASS)
Добрый день.
Не могу понять как реализовать. В справке MSDN написано: Код HTML:
Переделал под Delphi. Установил стиль MCS_DAYSTATE. Во всех видимых(?) месяцах, должен быть выделено 15 число .Но не работает. Код:
var DayM : array [0..11] of MONTHDAYSTATE; ....... procedure BoldDays(MonthBoldInfo: LongWord; Days: LongWord); begin if (Days > 0) and (Days < 32) then MonthBoldInfo := ($00000001 shl (Days - 1)); end; case PNMHdr(LParam).code of MCN_GETDAYSTATE: begin cMonths := pnmdaystate(LParam).cDayState; for I := 0 to cMonths do begin BoldDays(DayM[i], 15); end; pnmdaystate(LParam).prgDayState := @daym; end; Как правильно надо сделать? Последний раз редактировалось Stalker2-42, 03.04.2016 в 19:33. |