| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3270118
建立时间:2005年6月6日 |
| |
|
 [delpih编程]dbgrideh中精确控制某一特定单元格的颜色及加行号
软件技术
吕向阳 发表于 2009/5/31 0:01:42 |
| procedure Tfmwater.DBGridEh2DrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column: TColumnEh;State: TGridDrawState);begin//以下是加行号with DBGrideh2.DataSource.DataSet dobeginif DataCol = 0 then //設置在第一列beginif state <> dsInsert thenrech := recno; //這句是關鍵。。。DBGrideh2.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2,IntToStr(rech));inc(rech); //將i加1end;//以下是精确控制特定条件的某个单元格的颜色if datacol = 6 thenbeginif (DBGrideh2.DataSource.DataSet.FieldByName('pay1').AsFloat <>DBGrideh2.DataSource.DataSet.FieldByName('pay2').AsFloat) thenbeginDBGrideh2.Canvas.Brush.Color := clred;DBGrideh2.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2,DBGrideh2.DataSource.DataSet.FieldByName('pay2').AsString);endend;end;end; |
|
|