線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1210
推到 Plurk!
推到 Facebook!

使用TdxDBGrid時該如何做到內容<0時字體變為紅色??

尚未結案
jch
中階會員


發表:111
回覆:224
積分:66
註冊:2003-12-01

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-04-28 13:58:59 IP:163.17.xxx.xxx 未訂閱
如題,小弟使用TdxDBGrid這個元件,不知該如何判斷其中一個欄位的值若小於0時將字體變為紅色??? ======================== 我是DELPHI5的初學者
terrychen
尊榮會員


發表:90
回覆:794
積分:501
註冊:2003-05-01

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-04-28 14:43:24 IP:211.22.xxx.xxx 未訂閱
您好: http://delphi.ktop.com.tw/topic.php?topic_id=43784參考看有沒有幫助 ~~應無所住而生其心~~
jch
中階會員


發表:111
回覆:224
積分:66
註冊:2003-12-01

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-04-28 14:49:08 IP:61.221.xxx.xxx 未訂閱
多謝terrychen大哥,但是TdxDBGrid並不是標準元件,事件並不相同,且事件中可用的參數也不一樣?? ======================== 我是DELPHI5的初學者
jch
中階會員


發表:111
回覆:224
積分:66
註冊:2003-12-01

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-06-07 17:28:19 IP:218.162.xxx.xxx 未訂閱
到底該如何做到呢??請各位前輩幫幫忙吧!! ======================== 我是DELPHI5的初學者
StrongLemon
高階會員


發表:10
回覆:166
積分:105
註冊:2004-04-18

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-06-07 21:32:01 IP:211.74.xxx.xxx 未訂閱
從元件面版上拉下TcxStyleRepository 右鍵Edit..然後新增Style 在Style有顏色可以設定或者你在下面的code直接設定AStyle也可, tv_TEST為TcxGirdXXXXView。    
procedure TForm1.tv_TESTStylesGetContentStyle(
  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
begin      if VarIsStr(ARecord.Values[AItem.Index]) then
  begin
    if ARecord.Values[AItem.Index]='*' then
    begin
      AStyle:=cxStyle2;
    end;
  end
  else
  if (ARecord.DisplayTexts[AItem.Index]='')
    and ( (AItem.Tag=2) or (AItem.Tag >=20000) ) then
  begin
    AStyle:=cxStyle1;
  end
  else
  begin
    if AItem.Tag=0 then
    begin
      AStyle:=cxStyle1;
    end
    else
      AStyle:=cxStyle3;
  end;    end;
jch
中階會員


發表:111
回覆:224
積分:66
註冊:2003-12-01

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-06-08 09:05:15 IP:163.17.xxx.xxx 未訂閱
TcxStyleRepository元件在哪裡??好像不是DevExpress系列的元件!! ======================== 我是DELPHI5的初學者 發表人 - jch 於 2004/06/08 09:34:06
StrongLemon
高階會員


發表:10
回覆:166
積分:105
註冊:2004-04-18

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-06-08 10:07:14 IP:221.169.xxx.xxx 未訂閱
引言: TcxStyleRepository元件在哪裡??好像不是DevExpress系列的元件!!
在DevExpress頁籤裡.. 屬於DX的library..
jch
中階會員


發表:111
回覆:224
積分:66
註冊:2003-12-01

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-06-08 10:18:39 IP:163.17.xxx.xxx 未訂閱
我的DevExpress頁籤裡只有6個元件,並沒有大哥所講的DX的library??? 我所安裝的是DevExpress.ExpressQuantumGrid.Pro.3.2.1.with.source.for.Delphi 是執行裡頭的SETUP安裝的,是否有其他的地方要在設定呢?? ======================== 我是DELPHI5的初學者
speedup
資深會員


發表:19
回覆:259
積分:280
註冊:2003-07-04

發送簡訊給我
#9 引用回覆 回覆 發表時間:2004-06-08 15:44:29 IP:61.224.xxx.xxx 未訂閱
引言: 我的DevExpress頁籤裡只有6個元件,並沒有大哥所講的DX的library??? 我所安裝的是DevExpress.ExpressQuantumGrid.Pro.3.2.1.with.source.for.Delphi 是執行裡頭的SETUP安裝的,是否有其他的地方要在設定呢?? ======================== 我是DELPHI5的初學者
DevExpress 目前分兩個系列分別為dxXXX 和 cxXXXX 凡是TcxXXX開頭都屬同系列;cx開頭是較新系列的元件,ExpressQuantumGrid 4.0以後即採用此系列 樓上的範利用 cx系列 ,如果你的程式才剛開始寫建議採cx系列(兩系列存在不少差異,要轉換不是那麼容易) 混心雜欲 棄修身~唉
------
唉~
jch
中階會員


發表:111
回覆:224
積分:66
註冊:2003-12-01

發送簡訊給我
#10 引用回覆 回覆 發表時間:2004-06-08 17:30:32 IP:163.17.xxx.xxx 未訂閱
Cx系列有DELPHI5用的元件嗎?? ======================== 我是DELPHI5的初學者
sl@cableplus.com.cn
高階會員


發表:168
回覆:359
積分:130
註冊:2004-03-26

發送簡訊給我
#11 引用回覆 回覆 發表時間:2004-06-08 17:49:07 IP:218.80.xxx.xxx 未訂閱
你重新发表个新问题,我来回答你,OK?
speedup
資深會員


發表:19
回覆:259
積分:280
註冊:2003-07-04

發送簡訊給我
#12 引用回覆 回覆 發表時間:2004-06-08 18:18:54 IP:61.224.xxx.xxx 未訂閱
引言: Cx系列有DELPHI5用的元件嗎?? ======================== 我是DELPHI5的初學者
現在ExpressQuantumGrid/ExpressVerticalGrid/ExpressQuantumTreeList/的版本都是cx系類可用於版本D4/D5/D6/D7 等 http://www.devexpress.com/?section=/Home 混心雜欲 棄修身~唉
------
唉~
speedup
資深會員


發表:19
回覆:259
積分:280
註冊:2003-07-04

發送簡訊給我
#13 引用回覆 回覆 發表時間:2004-06-08 18:19:12 IP:61.224.xxx.xxx 未訂閱
引言: Cx系列有DELPHI5用的元件嗎?? ======================== 我是DELPHI5的初學者
現在ExpressQuantumGrid/ExpressVerticalGrid/ExpressQuantumTreeList/的版本都是cx系類可用於版本D4/D5/D6/D7 等 http://www.devexpress.com/?section=/Home 混心雜欲 棄修身~唉
------
唉~
a6475
高階會員


發表:67
回覆:230
積分:154
註冊:2002-09-15

發送簡訊給我
#14 引用回覆 回覆 發表時間:2004-06-08 20:23:36 IP:61.229.xxx.xxx 未訂閱
我是用 3.x版 for d6的  
 
procedure TMain.dxDBGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
  ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
  var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
  var ADone: Boolean);
var DefColor : TColor;
begin
  inherited;
  DefColor := AFont.Color;
  if ((AColumn = dxDBGrid1M1) or (AColumn = dxDBGrid1M2))then
  begin
    if (AText = '0') then
    begin
      AFont.Color := $00E8E8E8;
    end else
    //  (AColumn AS TdxDBGridCurrencyColumn).DisplayFormat := '-0';
  end
  else
  begin
    AFont.Color := DefColor;
  end;    end;    
..-----------βλμε------------..
◎Oo月夜 光明 藍更愁oO◎
藍調月光城v4:http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調.月光):http://mypaper2.ttimes.com.tw/user/a6475 發表人 - a6475 於 2004/06/08 20:25:04
------
月夜 光明 藍更愁
jch
中階會員


發表:111
回覆:224
積分:66
註冊:2003-12-01

發送簡訊給我
#15 引用回覆 回覆 發表時間:2004-06-18 16:26:14 IP:163.17.xxx.xxx 未訂閱
不之3.X版是否有FOR D7的??近來想將D5升到D7 但是CX的DBGRID太複雜了!!沒有DX的方便!! ======================== 我是DELPHI5的初學者
系統時間:2024-05-09 14:03:55
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!