请各位高手不吝赐教!
解决方案 »
- 咨询delphi的TDateTimePicker问题
- delphi中的构造方法override
- 求和.Net中的System.Security.Cryptography.DESCryptoServiceProvider类兼容的des算法的Delphi实现?
- 如何让98上编译的程序在2000和xp中正常运行?
- 在window2000下如何更新被锁定的DLL文件
- 我用ado连各种数据库,请问如何做才能获得数据库的存储过程的脚本内容
- 100分,简单的问题,请教一下三层结构和两层到底有什么区别!
- 急急,十万火急,是高手的话一定要进来看看,关于Oracle图片数据处理
- 谁知道瑞星的网上升级密码????
- 问一个关于Assign的问题......
- 散分!今天心情不好!郁闷!
- 一个简单的问题,在线等高手帮忙.
2,不会
Column: TColumn; State: TGridDrawState);
begin // clear area
Canvas.FillRect (Rect);
// copy the rectangle
OutRect := Rect;
// restrict output
InflateRect (OutRect, -2, -2);
// output field data if Column.Field is TGraphicField then
begin
Bmp := TBitmap.Create;
try
Bmp.Assign (Column.Field);
Canvas.StretchDraw (OutRect, Bmp);
finally
Bmp.Free;
end;
end
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if( gdSelected in State)then
//如果是被选中的
begin
DBGrid1.Canvas.Brush.Color:=clBlue;
//选中的背景色为clBlue
DBGrid1.Canvas.Font.Color:=clYellow;
//选中的字体颜色为clYellow
end
else
if self.DataSource1.DataSet.RecNo mod 2=1 then
//用self.DataSource1.DataSet.RecNo mod 2
//来判断行数产生隔行
DbGrid1.Canvas.Brush.Color:=clRed
else
DBGrid1.CanVas.Brush.Color:=clWhite;
DBGrid1.DefaultDrawcolumnCell(rect,DataCol,Column,State);
//其他默认
end;