group summary中产生的合计,怎么样和列对齐。
解决方案 »
- 哎 牛人也太多了 ........................................................................................................
- 新手上路:怎样得到DBGrid中选中的内容?
- (散分)项目计划管理,一直怎么都想不通。请明白的给解释,谢谢!
- 怎样调用由vc开发的动态库的obj静态库文件
- 急问:关于delphi调用外部动态链接库的问题。
- 关于数据库报表的小问题
- 关于导成excel文件的问题
- 看到一个别人写的程序,用DELPHI打开程序后弹出一对话框,提示如下:Set Root Directory,请问这是一个什么问题,如何在程序中设置,及其
- delphi socket 问题
- 如何让EDIT控件有Alignment属性,不要别的控件
- Delphi中DBGrid组件的中文显示问题?
- 系统提示如关键词(UNIQUE key)重复,在前端全部是英文显示,我想用中文显示,怎么做?
cxGrid1DBTableView1.DataController.Summary.DefaultGroupSummaryItems[0].Position:=spfoot;//在groupfooter显示
获取当前footer合计值,并指定其值用哪个属性?
var
FBounds: TRect;
i:integer; //在groupheader显示水平位置
s:string; //显示string
begin
s:=aviewinfo.Text;
FBounds := AViewInfo.Bounds;
ACanvas.FillRect(FBounds);
i:=-50; //调整位置
InflateRect(FBounds,i , 0); //显示位置
ACanvas.DrawTexT(copy(s,1,pos('(',s)-1),FBounds, cxWordBreak or cxShowEndEllipsis);
s:=copy(s,pos('=',s)+1,maxint); //字符串
i:=(cxgrid1.Left+cxGrid1DBTableView1ID.Width+cxGrid1DBTableView1MID.Width
+cxGrid1DBTableView1COMID.Width)*-1;
InflateRect(FBounds,i , 0);
ACanvas.DrawTexT(copy(s,1,pos('SUM',s)-3),FBounds, cxWordBreak or cxShowEndEllipsis);
ADone := True;
end;