DBGrid 之 筆數文字顏色會變成白色？ |
|
答題得分者是：Windyboy
|
|
kyusikin
一般會員   發表：18 回覆：13 積分：6 註冊：2003-03-27 發送簡訊給我 |
各位大大： procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Canvas: TCanvas;
begin
Canvas := (Sender as TDBGrid).Canvas;
if ((Column.Field.DataSet.RecNo mod 2) = 0) then
Canvas.Brush.Color := clMenu
else
Canvas.Brush.Color := clWindow;
Canvas.FillRect(Rect);
DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);
end; 我的用意就是要每筆的顯示出來的資料予以顏色區隔，只是沒想到欄位內之文字卻變成了白色，這該怎辦呢？有敗法回改成棕色嗎？
|
|
Windyboy
版主  發表：7 回覆：119 積分：210 註冊：2002-11-07 發送簡訊給我 |
Hi kyusikin: try this..^^
procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Canvas: TCanvas;
begin
Canvas := (Sender as TDBGrid).Canvas;
if ((Column.Field.DataSet.RecNo mod 2) = 0) then
Canvas.Brush.Color := clMenu
else
Canvas.Brush.Color := clWindow;
Canvas.Font.Color := clMaroon;
Canvas.FillRect(Rect);
DBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);
end;
--------------------------
～天下本無事 庸人自擾之～
|
|
kyusikin
一般會員 發表：18 回覆：13 積分：6 註冊：2003-03-27 發送簡訊給我 |
引言:
Hi kyusikin: try this..^^
感謝您！問題很快就解決了唷。 |
發表時間：2004-10-14 11:48:53
IP:203.70.xxx.xxx 未訂閱
系統時間：2024-09-29 4:48:18
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |