如何控制grid column 的顏色? |
|
答題得分者是：supman
|
|
tidal
初階會員   發表：93 回覆：32 積分：25 註冊：2003-07-15 發送簡訊給我 |
|
|
supman
尊榮會員 發表：29 回覆：770 積分：924 註冊：2002-04-22 發送簡訊給我 |
您好:
請參考以下程式碼
with DBGrid1.Canvas do
begin
if GDSelected in State then
begin
Font.Color:=clHighLightText;
Brush.Color:=$007D3F00;
end
else begin
Font.Color:=clBlack;
Brush.color:=clWhite;
end;
if (GDSelected in State) then
begin
if ((Sender as TDBGrid).DataSource.DataSet.FieldByName('Payed').AsInteger>=10)//判斷付款大於10者該列就變顏色
then Brush.Color:=$007D3F00;
end
else begin
if ((Sender as TDBGrid).DataSource.DataSet.FieldByName('Payed').AsInteger>=10)
then Brush.Color:=$00A4A4FF;
end;
DbGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,[]);
end; 或請參考以下網址,有範例檔
http://delphi.ktop.com.tw/topic.php?topic_id=49797
|
發表時間：2004-12-02 12:07:17
IP:202.82.xxx.xxx 未訂閱
系統時間：2024-11-23 20:24:00
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |