如何在TCCalendar改變日期的顏色 |
|
答題得分者是：RaynorPao
|
|
davidten
一般會員   發表：1 回覆：1 積分：0 註冊：2003-08-12 發送簡訊給我 |
小弟在站上找到相關的資料如下,轉換後,但就是無法正常運作
想請大家幫忙解答
相關delphi code如下 var
TheText: string;
x1,y1,x2,y2:integer;
w,h:integer;
begin
TheText := Calendar1.CellText[2,2];
Calendar1.Brush.Color:=clred;
x1:=Tstringgrid(calendar1).CellRect(2,2).left;
y1:=Tstringgrid(calendar1).CellRect(2,2).top;
x2:=Tstringgrid(calendar1).CellRect(2,2).right;
y2:=Tstringgrid(calendar1).CellRect(2,2).bottom;
w:=tstringgrid(calendar1).Canvas.textwidth(thetext);
h:=tstringgrid(calendar1).Canvas.textheight(thetext);
tstringgrid(calendar1).Canvas.Brush.Color:=clred;
tstringgrid(calendar1).Canvas.TextRect(Tstringgrid(calendar1).CellRect(2,2),
x1 (x2-x1-w) div 2,y1 (y2-y1-h) div 2,thetext);
end; 我的程式如下
AnsiString thetext;
thetext=Calendar->CellText[3][3];
Calendar->Brush->Color=clRed; TStringGrid(Calendar).Canvas->Brush->Color=clRed;
TStringGrid(Calendar).Canvas->TextRect(TStringGrid(Calendar).CellRect(3,3),1,1,thetext);
執行後會出現
Control"has no parent window 的訊息,程式亦停在最後一行上
|
|
RaynorPao
版主   發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 小弟在站上找到相關的資料如下,轉換後,但就是無法正常運作 想請大家幫忙解答 相關delphi code如下 var TheText: string; x1,y1,x2,y2:integer; w,h:integer; begin TheText := Calendar1.CellText[2,2]; Calendar1.Brush.Color:=clred; x1:=Tstringgrid(calendar1).CellRect(2,2).left; y1:=Tstringgrid(calendar1).CellRect(2,2).top; x2:=Tstringgrid(calendar1).CellRect(2,2).right; y2:=Tstringgrid(calendar1).CellRect(2,2).bottom; w:=tstringgrid(calendar1).Canvas.textwidth(thetext); h:=tstringgrid(calendar1).Canvas.textheight(thetext); tstringgrid(calendar1).Canvas.Brush.Color:=clred; tstringgrid(calendar1).Canvas.TextRect(Tstringgrid(calendar1).CellRect(2,2), x1 (x2-x1-w) div 2,y1 (y2-y1-h) div 2,thetext); end; 我的程式如下 AnsiString thetext; thetext=Calendar->CellText[3][3]; Calendar->Brush->Color=clRed; TStringGrid(Calendar).Canvas->Brush->Color=clRed; TStringGrid(Calendar).Canvas->TextRect(TStringGrid(Calendar).CellRect(3,3),1,1,thetext); 執行後會出現 Control"has no parent window 的訊息,程式亦停在最後一行上davidten 你好: 改成以下這樣子，看看行不行呢??
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
davidten
一般會員 發表：1 回覆：1 積分：0 註冊：2003-08-12 發送簡訊給我 |
發表時間：2003-09-03 14:30:01
IP:202.145.xxx.xxx 未訂閱
系統時間：2024-11-22 16:28:53
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |