如题!十分感谢!

解决方案 »

  1.   

    // source
    procedure TCommonCalendar.BoldDays(Days: array of LongWord; var MonthBoldInfo: LongWord);
    var
      I: LongWord;
    begin
      MonthBoldInfo := 0;
      for I := Low(Days) to High(Days) do
        if (Days[I] > 0) and (Days[I] < 32) then
          MonthBoldInfo := MonthBoldInfo or ($00000001 shl (Days[I] - 1));
    end;可以看得出来只是为了根据Days的信息输出 MonthBoldInfo 的,没有其他作用。
    MonthBoldInfo 在 TMonthCalendar 的 OnGetMonthInfo 的事件中有用。
      

  2.   

    Encodes a set of dates for use in the OnGetMonthInfo event handler.procedure BoldDays(Days: array ofLongWord; var MonthBoldInfo: LongWord
    );DescriptionUse BoldDays to encode the days of the current month that should appear in bold. The value returned by BoldDays can be assigned to the MonthBoldInfo parameter of an OnGetMonthInfo event handler.Days is an array of unsigned integers corresponding to the days that should be bold.MonthBoldInfo returns the encoding of the values that were passed in the Days array. This value can be assigned to the MonthBoldInfo parameter of the OnGetMonthInfo event handler. (or the MonthBoldInfo parameter can be passed in for this argument). You shouldn't work with the MonthBoldInfo variable directly.For example, to encode the first and eighth days of a month, callBoldDays([1,8], MonthBoldInfo);