calendar中特定列顏色設 |
|
尚未結案
|
|
zhong
一般會員   發表：46 回覆：17 積分：12 註冊：2004-08-02 發送簡訊給我 |
|
|
shinjie
資深會員  發表：12 回覆：275 積分：287 註冊：2003-03-19 發送簡訊給我 |
type
TCalendar=class(Calendar.TCalendar)
private
procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;
end;
TForm1 = class(TForm)
Calendar1: TCalendar;
...... procedure TCalendar.DrawCell(ACol, ARow: Integer; ARect: TRect;
AState: TGridDrawState);
begin
if ACol=0 then Canvas.Font.Color:=clRed;
inherited;
end; =========================================
程式有問題並不可怕，最怕是不知問題出在那
不知問題在那不可怕，更怕是不知如何問問題
寫程式要從最簡單的開始
------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。 得之；我幸。不得；我命。 |
|
zhong
一般會員 發表：46 回覆：17 積分：12 註冊：2004-08-02 發送簡訊給我 |
|
|
shinjie
資深會員 發表：12 回覆：275 積分：287 註冊：2003-03-19 發送簡訊給我 |
應該不會影響執行的結果。
如果一定要改的話，試試以下：
TCalendar=class(Calendar.TCalendar)
protected //private改為protected
procedure DrawCell(ACol, ARow: Longint; ARect: TRect; AState: TGridDrawState); override;
end;
=========================================
程式有問題並不可怕，最怕是不知問題出在那
不知問題在那不可怕，更怕是不知如何問問題
寫程式要從最簡單的開始
------
我將在茫茫人海中尋訪我唯一之靈魂伴侶。 得之；我幸。不得；我命。 |
發表時間：2005-10-04 21:59:15
IP:59.33.xxx.xxx 未訂閱
系統時間：2024-05-19 14:14:13
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |