在DBGrind中單偶數行數不同顏色，但資料顯示的問題 |
|
尚未結案
|
|
north
一般會員   發表：10 回覆：17 積分：5 註冊：2004-08-06 發送簡訊給我 |
我已經將DBGrind從資料庫讀出後，讓他顯示單行數顏色不同
可視資料內容卻只有前幾行有顯示，而且橫的變成直的顯示
且資料內容錯誤說
以下是我顯示顏色的程式
procedure TFTest.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var i:integer;
begin
for i:=0 to ADOQuery1.RecNo-1-1 do
begin
if (i mod 2=0)then
begin
DBGrid1.Canvas.Brush.Color:=clred;
end
else
DBGrid1.Canvas.Brush.Color:=clyellow;
DBGrid1.Canvas.Font.Color:=clblack;
DBGrid1.DefaultDrawDataCell(Rect,DBGrid1.Fields[i],State);
end;
end;
請問如何讓資料從資料庫讀出後正常顯示呢？？
謝謝 |
|
likush
高階會員  發表：5 回覆：235 積分：103 註冊：2002-10-08 發送簡訊給我 |
if Table1.RecNo mod 2 = 0 then
DBGrid1.Canvas.Brush.Color:=clred
else
DBGrid1.Canvas.Brush.Color:=clyellow;
DBGrid1.Canvas.Font.Color:=clblack;
DBGrid1.Canvas.FillRect(rect);// DefaultDrawDataCell(Rect,DBGrid1.Fields[i],State);
DBGrid1.Canvas.TextOut(Rect.Left 1, Rect.Top 1, Field.AsString); =========================
讀萬卷書~不如來K.TOP走一遭
=========================
|
|
likush
高階會員 發表：5 回覆：235 積分：103 註冊：2002-10-08 發送簡訊給我 |
|
|
north
一般會員 發表：10 回覆：17 積分：5 註冊：2004-08-06 發送簡訊給我 |
發表時間：2004-09-08 20:58:26
IP:211.78.xxx.xxx 未訂閱
系統時間：2024-06-29 16:56:41
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |