[Stalker2-42]

Добрый день.
Не могу понять как реализовать.
В справке MSDN написано:

#define BOLDDAY(ds, iDay) \
         if (iDay > 0 && iDay < 32)(ds) |= (0x00000001 << (iDay - 1))

     case WM_NOTIFY:
             if (((LPNMHDR)lParam)->code == MCN_GETDAYSTATE)
             {
                 MONTHDAYSTATE rgMonths[12] = { 0 };
                 int cMonths = ((NMDAYSTATE*)lParam)->cDayState;
                 for ( int i = 0; i < cMonths; i++)
                 {
                     BOLDDAY(rgMonths[i], 1);
                     BOLDDAY(rgMonths[i], 15);
                 }
                 ((NMDAYSTATE*)lParam)->prgDayState = rgMonths;
                 return TRUE;
             }
             break ;

Переделал под Delphi.
Установил стиль MCS_DAYSTATE.

Во всех видимых(?) месяцах, должен быть выделено 15 число .Но не работает.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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;

Как правильно надо сделать?

[NumLock]

используй событие OnGetMonthInfo у TMonthCalendar. пиши там:

Код:

1 2 3 4 5

procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;   Month: Cardinal; var MonthBoldInfo: Cardinal); begin   MonthCalendar1.BoldDays([15], MonthBoldInfo);    end;

если нужно на API см. как у TMonthCalendar реализовано.

[Stalker2-42]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

TOnGetMonthInfoEvent = procedure(Sender: TObject; Month: LongWord;     var MonthBoldInfo: LongWord) of object;   FOnGetMonthInfo: TOnGetMonthInfoEvent;   property OnGetMonthInfo: TOnGetMonthInfoEvent read FOnGetMonthInfo write FOnGetMonthInfo;     procedure TMonthCalendar.CNNotify(var Message: TWMNotify); var   ST: PSystemTime;   I, MonthNo: Integer;   CurState: PMonthDayState; begin   with Message, NMHdr^ do   begin     case code of       MCN_GETDAYSTATE:         with PNmDayState(NMHdr)^ do         begin           FillChar(prgDayState^, cDayState * SizeOf(TMonthDayState), 0);           if Assigned(FOnGetMonthInfo) then           begin             <b>CurState := prgDayState;</b>             for I := 0 to cDayState - 1 do             begin               MonthNo := stStart.wMonth + I;               if MonthNo > 12 then MonthNo := MonthNo - 12;               FOnGetMonthInfo(Self, MonthNo, <b>CurState</b>^);               Inc(CurState);             end;           end;         end;     end;   end;   inherited; end;

CurState возвращает год.
FOnGetMonthInfo =
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject; Month:

Код:

1 2 3 4

Cardinal; var MonthBoldInfo: Cardinal); begin   MonthCalendar1.BoldDays([15], MonthBoldInfo);    end;

Я запутался.

[Stalker2-42]

Желающих подсказать нет?

[NumLock]

так второе сообщение прекрасно выделяет 15 число в каждом месяце!

[Stalker2-42]

NumLock.

Спасибо.

Вроде как работает.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

var   DayM :  array [1..12] of MONTHDAYSTATE; ......    procedure BoldDays(var ds: MONTHDAYSTATE; iDay: array of LongWord); var   I : Integer; begin   for I := Low(iDay) to High(iDay) do     if (iDay[i] > 0) and (iDay[i] < 32) then       ds := ds or ($00000001 shl (iDay[i] - 1)); end;    var   cMonths  : LongWord;    WM_NOTIFY:       begin         if PNMHdr(LParam).hwndFrom = Calendar then                begin               case PNMHdr(LParam).code of                 MCN_GETDAYSTATE:                   begin                     cMonths := pnmdaystate(LParam).cDayState;                     for I := 1 to cMonths - 1 do                       BoldDays(DayM[i], [12 , 15, 16, 17, 18,29, 30, 31]);                     pnmdaystate(LParam).prgDayState := @daym;                   end;               end;             end;          end;

Караул. В delphi 2010 нет большей части сообщений (mcm_) описанных в MSDN.

[NumLock]

ну не большей части, а немного не все. у Month Calendar Messages в MSDN примерно 32 сообщения, а в Delphi 7 примерно 23. в Delphi 2010 меньше быть не может.