DBGrid內顯示字顏色與底色的控制範例程式 能不能改成BCB版 |
|
答題得分者是：tech_state
|
|
tony115722
一般會員   發表：53 回覆：63 積分：23 註冊：2002-07-09 發送簡訊給我 |
|
|
tech_state
版主  發表：44 回覆：638 積分：641 註冊：2003-02-10 發送簡訊給我 |
tony115722, 您好
請參考以下連結資料，此為BCB的範例程式。
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=26419 =================================
涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。
是非終日有，不聽自然無
天下本無事，庸人自擾之
|
|
tony115722
一般會員 發表：53 回覆：63 積分：23 註冊：2002-07-09 發送簡訊給我 |
|
|
tech_state
版主 發表：44 回覆：638 積分：641 註冊：2003-02-10 發送簡訊給我 |
tony115722, 您好
要改變DBGrid內顯示字的底色可用以下方式，您可根據您的條件需求去改變。
DBGrid->Canvas->Brush->Color = clBlue;
DBGrid->Canvas->TextOut(Rect.Left + 2, Rect.Top + 2, Column->Field->AsString); //Draw Value
DBGrid->Canvas->MoveTo(Rect.Right, Rect.Top);
DBGrid->Canvas->LineTo(Rect.Right, Rect.Bottom);
=================================
涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。
是非終日有，不聽自然無
天下本無事，庸人自擾之 發表人 - tech_state 於 2003/06/20 10:58:52
|
|
tech_state
版主 發表：44 回覆：638 積分：641 註冊：2003-02-10 發送簡訊給我 |
tony115722, 您好
試試以下的code，應該可以符合您的需求。
if(DataCol == 3) // 第四個欄位，第一個欄位為0
{
if(Column->Field->AsString == "5")
{
DBGrid->Canvas->Brush->Color = clBlue;
DBGrid->Canvas->MoveTo(Rect.Right, Rect.Top);
DBGrid->Canvas->LineTo(Rect.Right, Rect.Bottom);
DBGrid->DefaultDrawColumnCell(Rect, DataCol, Column, State);
}
}
=================================
涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。
是非終日有，不聽自然無
天下本無事，庸人自擾之 發表人 - tech_state 於 2003/06/20 17:46:15
|
|
tony115722
一般會員 發表：53 回覆：63 積分：23 註冊：2002-07-09 發送簡訊給我 |
|
|
taishyang
站務副站長  發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
tony115722
一般會員 發表：53 回覆：63 積分：23 註冊：2002-07-09 發送簡訊給我 |
發表時間：2003-06-20 09:36:44
IP:210.63.xxx.xxx 未訂閱
系統時間：2024-04-26 23:48:38
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |