08.04.2016, 21:17
|
|
Новичок
|
|
Регистрация: 28.09.2013
Сообщения: 94
Версия Delphi: 2010
Репутация: 10
|
|
NumLock.
Спасибо.
Вроде как работает.
Код:
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.
|