關於 MonthCalendar 週六週日粗體問題

發文回覆瀏覽次數：1344

推到 Plurk!

推到 Facebook!

缺席

vlvltemp
一般會員

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

發送簡訊給我

發表時間：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，註解無‧

系統時間：2025-01-23 1:04:33

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！