2009年12月20日
画DBGRID,DBGRIDEH中文帐簿金额栏
摘要： procedure TformBuy.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);var S: String; i, x, y, iTextWidth: Integer;begin// if Field.DataType <> ftBCD then Exit; if Field.FieldName <> 'jxdmoney' then Exit; with TDBGrideh(Sender).Canvas do 阅读全文
posted @ 2009-12-20 13:13 delphi中间件 阅读(377) 评论(0) 推荐(0) 编辑
画Stringgrid斑马线
摘要： procedure TformRule.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);begin if (ARow = 0) or (ACol = 0) then exit; with sender as tstringgrid do //斑马线效果 with canvas do begin if (arow mod 2 = 0) then begin brush.Color:=clMoneyGreen; font.Color:=clblack; fil 阅读全文
posted @ 2009-12-20 13:11 delphi中间件 阅读(511) 评论(0) 推荐(0) 编辑