社区
Delphi
帖子详情
如何将stringgrid中的内容对齐显示
shushan
2000-08-17 12:24:00
向各位大虾请教,如何将stringgrid中的内容对齐。
...全文
196
4
打赏
收藏
如何将stringgrid中的内容对齐显示
向各位大虾请教,如何将stringgrid中的内容对齐。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
shushan
2000-08-18
打赏
举报
回复
怎么没有人回答???
渤海海峡
2000-08-18
打赏
举报
回复
下载一个支持对齐的stringgrid不就行了。
http://www.hoerstemeier.com/index.htm
lotto
2000-08-18
打赏
举报
回复
在TStringGrid中的OnDrawCell事件中:
Procedure TForm1.StringGrid1DrawCell event (Sender: TObject; Col, Row: Integer;Rect: TRect; State: TGridDrawState);
var
A1,A2,width,height: integer;
str: string;
begin
Str := StringGrid1.Cells[col,row];
Width := StringGrid1.Canvas.textwidth(Str);
Height := StringGrid1.Canvas.textheight(Str);
if (Row = 0) then //固定Cell
begin
A1 := 0; //左对齐
end
else //其他的Cel
A1 := (StringGrid1.Colwidths[Col] - width-2);//右对齐
A2 := (StringGrid1.Rowheights[Row] - height) div 2;
if gdFixed in state then
StringGrid1.Canvas.Brush.Color := ClSilver //设置颜色
else
StringGrid1.Canvas.Brush.Color := ClWhite;
StringGrid1.Canvas.Font.Color := StringGrid1.Font.Color;
StringGrid1.Canvas.textrect(Rect,Rect.left+A1,Rect.Top+A2,StringGrid1.Cells[Col,Row]);
end;
--------------------------------------------------------------------------------
dit
2000-08-18
打赏
举报
回复
用 OnDrawCell 事件
支持多表头及单元格合并的
String
Grid
String
Grid
的扩展控件, 在
String
Grid
的基础上增加了: 分别定义每列属性; 支持多层表头、表头斜线 单元格合并、拆分; 每个单元格可单独设置字体、颜色、
对齐
等格式 随意行、列锁定 指定表格背景图片,格线顔色 对每行...
String
Grid
String
Grid
的扩展控件, 在
String
Grid
的基础上增加了: 分别定义每列属性; 支持多层表头、表头斜线 单元格合并、拆分; 每个单元格可单独设置字体、颜色、
对齐
等格式 随意行、列锁定 指定表格背景图片,格线顔色 ...
String
Grid
打印报表(FastReport)
String
Grid
打印报表(FastReport) {*************
String
Grid
打印功能***********************************} (*uses unit: FR_Class, FR_View from (fast-Report) *) (*参数说明:printRow:每页打印的行数 *) (* ...
delphi 开发经验技巧宝典源码
0142 使用FileWrite函数将缓冲区
中
的
内容
写入文件 91 4.10 其他函数 91 0143 使用Random函数产生7个随机数 91 0144 使用DiskFree函数返回磁盘驱动器的剩余空间 91 0145 如何使用Printer函数 92 0146 使用...
delphi 开发经验技巧宝典源码06
0142 使用FileWrite函数将缓冲区
中
的
内容
写入文件 91 4.10 其他函数 91 0143 使用Random函数产生7个随机数 91 0144 使用DiskFree函数返回磁盘驱动器的剩余空间 91 0145 如何使用Printer函数 92 0146 使用...
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章