線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1023
推到 Plurk!
推到 Facebook!

關於 MonthCalendar 週六週日粗體問題

缺席
vlvltemp
一般會員


發表:6
回覆:5
積分:2
註冊:2010-03-28

發送簡訊給我
#1 引用回覆 回覆 發表時間:2014-10-06 06:03:10 IP:36.239.xxx.xxx 訂閱
 本來想設定週六週日的文字及背景色,
但爬了很多文沒有結果,
目前以設定週六週日的文字粗體.
遇到一奇怪問題,
一開始執行時第一個月結果是對的,
但是
1.若是同時顯示 12 個月,結果是錯的.
2.若改變月數,則前面 3-4 個月的週六週日文字粗體錯,之後結果才又對.
3.另外,能在 ShowToday 文字後面再加自訂的文字嗎 ?? 如 今天:2014/10/6 XXXYYYYZZZ
能否請先進前輩指導 ??
謝謝先進前輩.
內容如下:
Use DateUtils;
procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject; Month: Cardinal;
var MonthBoldInfo: Cardinal);
Var W:Array[1..31] of Cardinal;
YY,MM,DD:Word;
I:Integer;
begin
For I:=1 to 31 do W[I] := 0;
DecodeDate(MonthCalendar1.Date,YY,MM,DD);
For I:=1 to DaysInAMonth(YY,MM) do
if DayOfTheWeek(EnCodeDate(YY,MM,I))>=6 then W[I] := I;
MonthCalendar1.BoldDays(W, MonthBoldInfo);
編輯記錄
vlvltemp 重新編輯於 2014-10-06 07:11:56, 註解 無‧
vlvltemp 重新編輯於 2014-10-06 07:17:53, 註解 無‧
系統時間:2017-10-20 13:26:52
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!