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..^^感謝您!問題很快就解決了唷。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;-------------------------- ~天下本無事 庸人自擾之~ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |