字段N是BIT型的，数据显示在DBGridEh1中，当N为1的时候我想用个小图标来表示，请教大大应该怎么解决

sl@cableplus.com.cn 你好

1.請先放兩個Image並載入小圖示,一個代表0，另一個代表1
2.在DBGrid1.OnDrawColumnCell事件中撰寫下列程式碼
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
Var
  Re : TRect ;
begin
  If Column.FieldName = 'N' Then Begin
    Re:=TRect(0,0,Image1.Width,Image1.Height);
    Case Column.Field.Value Of
      0:DBGrid1.Canvas.CopyRect(Rect,Image1.Canvas,Re) ;
      Else
        DBGrid1.Canvas.CopyRect(Rect,Image2.Canvas,Re) ;
    End;
  End;
End;

發表人 - chance36 於 2004/05/18 22:02:57

if QryMaster.FieldByName('HadAttach').AsBoolean then begin Re := TRect(0, 0, Image2.Width, Image2.Height); case Column.Field.Value of 0: DBGridEh1.Canvas.CopyRect(Rect, Image2.Canvas, Re); else DBGridEh1.Canvas.CopyRect(Rect, Image1.Canvas, Re); end; end; 根据大大提示改动为如上代码，但是运行到 Re := TRect(0, 0, Image2.Width, Image2.Height);会报错

引言: 根据大大提示改动为如上代码，但是运行到 Re := TRect(0, 0, Image2.Width, Image2.Height);会报错

sl@cableplus.com.cn 你好 Re := Rect(0, 0, Image2.Width, Image2.Height);// 多了一個'T',手工打造，難免有誤，敬請見諒！

我Re := Rect(0, 0, Image2.Width, Image2.Height);// 改成Re := Rec(0, 0, Image2.Width, Image2.Height);// 还是说REC没有定义，是不是要在USES里也定义一下？

這是正確的 Re := Rect(0, 0, Image2.Width, Image2.Height); // 多了一個'T',是前面的'T'不是後面的't' Re := TRect(0, 0, Image2.Width, Image2.Height); // 這是錯的

Re := Rect(0, 0, Image2.Width, Image2.Height);这句话还是有错，说 miss operator or semicolon 而且我Image2也点不出Width和Height的属性 请教是什么原因？

引言: Re := Rect(0, 0, Image2.Width, Image2.Height);这句话还是有错，说 miss operator or semicolon 而且我Image2也点不出Width和Height的属性 请教是什么原因？

sl@cableplus.com.cn 你好 應該是沒有Image2這個物件(之前提示說要放兩個TImage的物件，那第二個的名稱預設即為Image2)，或者直接給值亦可 Re := Rect(0, 0, 15, 15);//16x16的小圖示