在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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |