如题!十分感谢!
解决方案 »
- combobox,怎么把它默认的右键菜单去掉
- 打印机打印完会不会返回一个指令或者值呢?希望高手指点。。。
- 关于treeview的问题,急!!!在线等!只有30分了
- 进者有分——关于delphi7
- 唉,这个兄弟(huanzhugege (还猪哥哥) )有点冤,肥了我了。不好意思,你再找我要点分吧。
- 跟踪执行时,没有设置断点,却总在一些浮点数赋值的地方暂停,这是为什么?
- 小女子正在写一个销售系统,有几个问题:
- 怎样和SQL Server数据库进行连接?
- 怎样将DBGrid设置为半透明或透明?求高手帮忙。......
- 我是新手,想学DELPHI5, 不知用什么样的书???请高手帮满+
- 小问题:字符串一行写不开,用什么连接符?
- Delphi中如何实现文件的复制、更名
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 的事件中有用。
);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);