默认为分组所用的字段名+':'+该字段的实际值,如何将修改这个标题呢?比如说去掉字段名及冒号,只要实际值,不知能不能修改?比如原来的显示为 + 年极:一年级
我要改为 + 一年级
我要改为 + 一年级
解决方案 »
- 没有源代码的情况下,BDE有没有办法改别的方式连接
- 这种功能如何实现
- To dbgrid的单元格(向高手求救啊)
- 在Delphi中能否实现当进行校验时, 出现一个校验提示, 程序就停在那里?
- 如何用程序数出表中有多少条附合某条件的记录?
- 能用FastReport作一对多的发票打印吗?
- 请问,将一个数据表中的一条记录整条复制到另外一个数据表中,怎么写?
- delphiXE 有ORM 控件没?
- 三层开发:保存图片(IPicture,SetOlePicture,GetOlePicture)
- Delphi 5.0 与 delphi 6.0 中的ADO
- 窗口最小化到托盘后有时候无法恢复,什么原因呢?
- Application.ProcessMessages 放在sleep 前还是后?
begin
Column := tvOrdersPaymentAmount;
Kind := skCount;
Format := 'Records: 0';
end;
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableCellViewInfo; var ADone: Boolean);
var
FBounds: TRect;
sGroupName: string;
i, iTaskChargeItemsCount: Integer;
AGroupTask: TCustomTaskDTO;
begin
//重画分组名,主要是去掉那个内存地址,另外加上任务项目合计数
AGroupTask := TCustomTaskDTO(GetGroupNameTaskAddress(AViewInfo.GridRecord.Values[0])); iTaskChargeItemsCount := 0;
for i := 0 to tbvwChargeItemList.DataController.RecordCount - 1 do
if GetTaskDTO(i) = AGroupTask then
iTaskChargeItemsCount := iTaskChargeItemsCount + tbvwChargeItemList.DataController.Values[i, tbvwCILCol_Count.Index]; FBounds := AViewInfo.Bounds;
ACanvas.FillRect(FBounds);
OffsetRect(FBounds, 25, 0); sGroupName := GetGroupNameWithoutExtraInfo(AViewInfo.GridRecord.Values[0]) + ' [' + IntToStr(iTaskChargeItemsCount) + ']'; ACanvas.Font.Style := [fsBold];
ACanvas.Font.Color := clGreen;
ACanvas.DrawTexT('>> ' + sGroupName, FBounds, cxAlignLeft or cxAlignVCenter or cxDontClip);
ADone := True;
end;
for i := 0 to tbvwChargeItemList.DataController.RecordCount - 1 do
if GetTaskDTO(i) = AGroupTask then
iTaskChargeItemsCount := iTaskChargeItemsCount + tbvwChargeItemList.DataController.Values[i, tbvwCILCol_Count.Index]; FBounds := AViewInfo.Bounds;
ACanvas.FillRect(FBounds);
OffsetRect(FBounds, 25, 0); sGroupName := GetGroupNameWithoutExtraInfo(AViewInfo.GridRecord.Values[0]) + ' [' + IntToStr(iTaskChargeItemsCount) + ']'; ACanvas.Font.Style := [fsBold];
ACanvas.Font.Color := clGreen;
ACanvas.DrawTexT('>> ' + sGroupName, FBounds, cxAlignLeft or cxAlignVCenter or cxDontClip);
ADone := True;