TDBGrid一問 |
|
尚未結案
|
|
SuperLowB
初階會員   發表：96 回覆：77 積分：34 註冊：2003-06-11 發送簡訊給我 |
|
|
ko
資深會員 發表：28 回覆：785 積分：444 註冊：2002-08-14 發送簡訊給我 |
SuperLowB 你好: procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
DBGrid1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,'...') ;
Column.Color:= clRed;
end;
------
====================== 昏睡~ 不昏睡~ 不由昏睡~ |
|
deity
尊榮會員 發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
引言: 請問如何在TDBGrid裏，我想在某一個cell或一列裏轉它的backgroundcolor，和加一些字上去，應如何做? 我用的是Delphi 5 發表人 - superlowb 於 2004/12/31 15:37:42您好， 参考下列： 天使大大的[DBGrid內顯示字顏色與底色的控制範例程式] http://delphi.ktop.com.tw/topic.php?topic_id=19121 DBGrid 的格內特效 http://delphi.ktop.com.tw/topic.php?topic_id=41800 另：可自行查找[DBGrid颜色]关键字，站内有很多相关的资料，您可以从多方面了解，解决您的问题，试试看 |
|
cxg
中階會員 發表：116 回覆：192 積分：76 註冊：2004-02-12 發送簡訊給我 |
引言: 請問如何在TDBGrid裏，我想在某一個cell或一列裏轉它的backgroundcolor，和加一些字上去，應如何做? 我用的是Delphi 5 發表人 - superlowb 於 2004/12/31 15:37:42procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin IF FIELD.FieldName='FIELD1' THEN BEGIN DBGrid1.Canvas.FillRect( RECT); DBGrid1.Canvas.TextOut( RECT.Left, RECT.Top, Field.AsString); DBGrid1.Canvas.Brush.Color := CLRED; DBGRID1.DefaultDrawDataCell(RECT, FIELD, STATE); END; end; |
|
cxg
中階會員 發表：116 回覆：192 積分：76 註冊：2004-02-12 發送簡訊給我 |
|
|
cxg
中階會員 發表：116 回覆：192 積分：76 註冊：2004-02-12 發送簡訊給我 |
重新校正一下： procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
IF (Field.FieldName='BH')AND(FIELD.AsString='25') THEN //確定單元
BEGIN
DBGrid1.Canvas.Brush.Color:= CLBLUE;
DBGrid1.Canvas.Font.Color := CLRED;
END;
DBGrid1.Canvas.TextRect( Rect, Rect.Left, Rect.Top, Field.ASSTRING ' DDDD');
end;
|
發表時間：2004-12-31 15:35:58
IP:203.198.xxx.xxx 未訂閱
系統時間：2024-05-19 3:11:18
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |