FMX下的Grid类控件似乎不太尽如人意,可能是和官方的资料没有跟得上它的发行版本有关系。

以下讨论StringGrid的列表头及对齐方式。

先上个效果图:

FMX的列表头估计很多人都是用盒子上流传甚久的 AlignHeaders(StGrid: TStringGrid) 这个函数(在此感谢作者),其实这个函数也有不如意的地方。

具体表现为:用此函数生成的列表头标题文字,有一定机率在点击StringGrid的Cell格子时全部消失,当然这可能会有环境、版本等因素有关。

所以,这里我们直接修改一下它,或者如果不需要自定义列表头高度和样式的话,可以直接不用该函数。

以下为简单代码:注意工程中Uses: FMX.Grid, FMX.header

procedure TForm1.Button1Click(Sender: TObject);
var
i,c,r: Integer;
Header: THeader;
sc: TStringColumn;
begin
//首先生成[列]
for i := 0 to 3 do
begin
sc:=TStringColumn.Create(StringGrid1);
sc.Parent := StringGrid1;
sc.Width := StringGrid1.ClientWidth / 4-5;
sc.Header :='Align: Center'; //此处给列表头标题赋值
end; //定义列表头的样式,如加粗、居中等。
Header := THeader(StringGrid1.FindStyleResource('header'));
Header.Height := 30;
for I := 0 to StringGrid1.ColumnCount-1 do
begin
with Header.Items[I] do
begin
TextAlign := TTextAlign(0); //标题对齐:0居中,1左,2右
//Text:='我是列表头标题'; //由于上面已赋值列表头,所以这里是不需要的。
StyledSettings:=[];
Font.Size := 12; //标题文字大小
Font.Style := [TFontStyle.fsBold]; //标题样式风格,如加粗、下划线等
end;
end; //填充数据
with StringGrid1 do
begin
RowCount := 20;
TextSettings.HorzAlign:=TTextAlign(0); //文字横向对齐:0居中,1左,2右
TextSettings.VertAlign:=TTextAlign(0); //文字纵向对齐:0居中,1左,2右
//TextSettings.FontColor:=TAlphaColor($FF0000);
//上面这句是改变文字颜色,在XE7下发现用代码改颜色会导致整体文字变白,所以
//只能在设计期内改(默认黑色,如果有需要改变文字颜色的话。)
end;
for c := 0 to StringGrid1.ColumnCount - 1 do
for r := 0 to StringGrid1.RowCount - 1 do
StringGrid1.Cells[c, r] := Format('%d,%d', [c, r]);
end;

如果不需要自定义列表头高度和样式的话,可以这样,列表头则使用默认样式:

procedure TForm1.Button1Click(Sender: TObject);
var
i,c,r: Integer;
Header: THeader;
sc: TStringColumn;
begin
//首先生成[列]
for i := 0 to 3 do
begin
sc:=TStringColumn.Create(StringGrid1);
sc.Parent := StringGrid1;
sc.Width := StringGrid1.ClientWidth / 4-5;
sc.Header :='Align: Left'; //此处给列表头标题赋值
end; //填充数据
with StringGrid1 do
begin
RowCount := 20;
TextSettings.HorzAlign:=TTextAlign(0); //文字横向对齐:0居中,1左,2右
TextSettings.VertAlign:=TTextAlign(0); //文字纵向对齐:0居中,1左,2右
//TextSettings.FontColor:=TAlphaColor($FF0000);
//上面这句是改变文字颜色,在XE7下发现用代码改颜色会导致整文字变白,所以
//只能在设计期内改(默认黑色,如果有需要改变文字颜色的话。)
end;
for c := 0 to StringGrid1.ColumnCount - 1 do
for r := 0 to StringGrid1.RowCount - 1 do
StringGrid1.Cells[c, r] := Format('%d,%d', [c, r]);
end;

PS:
--------------------------------------------------------------- 
FireMonkey移动开发可加QQ群:165232328 (本人非管理员,仅仅其中一成员,此群高手林立,期待各位Delphi爱好者共同交流)。 

 

XE7 & FMX 那些年我们一起上过的控件:StringGrid 之(1) 自定义标题样式的更多相关文章

  1. XE7 & FMX 那些年我们一起上过的控件:ListView 之 (3) 加载数据时如何显示自定义样式

    本文介绍一下ListView下如何加载数据.及使用进度条反馈当前进度给用户. 注意: 原创作品,请尊重作者劳动成果,转载请注明出处!!!原文永久固定地址:http://www.cnblogs.com/ ...

  2. [Xcode 实际操作]四、常用控件-(5)UILabel文本标签自定义文字样式

    目录:[Swift]Xcode实际操作 本文将演示给标签对象添加描边效果,在项目文件夹上,点击鼠标右键菜单, 选择[Create File]->[Cocoa Touch Class]->[ ...

  3. 在此页上的ActiveX控件和本页上的其他部分的交互可能不安全,你想允许这种交互吗

    转自 http://www.cnblogs.com/zdxster/archive/2011/01/27/1945868.html 在EOS6的项目中,如果采用VC++开发的ActiveX,那么第一次 ...

  4. 在Web上调用Ocx控件

    原文:http://blog.csdn.net/goodadult2012/article/details/6343369 在HTML页面中使用ActiveX控件包含三个基本操作:将控件放入HTML中 ...

  5. (转)C# WinForm中 获得当前鼠标所在控件 或 将窗体中鼠标所在控件名显示在窗体标题上

    原文地址:http://www.cnblogs.com/08shiyan/archive/2011/04/14/2015758.html /********************** * 课题:将窗 ...

  6. 兼容IE浏览器样式的html上传文件控件

    最近在公司做项目时需要用到html的上传文件控件,但发现原生的上传文件控件<input type="file" />在IE.Chrome浏览器的显示效果相差很大,为了统 ...

  7. WPF解决按钮上被透明控件遮盖时无法点击问题

    原文:WPF解决按钮上被透明控件遮盖时无法点击问题 IsHitTestVisible="False" 在控件上设置如上属性即可,即可让透明控件不触发点击效果

  8. Vue的 $parent,并不能准确找到上一层的控件,所以如果需要,需要填坑这个 bug,递归寻找下上级

    Vue的 $parent,并不能准确找到上一层的控件,所以如果需要,需要填坑这个 bug,递归寻找下上级 // Find components upward function findComponen ...

  9. 在此页上的 ActiveX 控件和本页上的其它部份的交互可能不安全

    版权声明:转载时请以超链接形式标明文章原始出处和作者信息http://xqy266.blogbus.com/logs/66258230.html 在EOS6的项目中,如果采用VC++开发的Active ...

随机推荐

  1. linux 监控系统剩余内存大小

    cur_free = `free -m | awk '/buffers\// {print $NF}'` chars="current memory is $cur_free." ...

  2. php Reflection

    <?php function title($title, $name) { return sprintf("%s. %s\r\n", $title, $name); } $f ...

  3. centos 6.3 kickstart 装机卡在 unsupported hardware detected 页面

    起因 最近厂里一批 dell 新机器 centos 6.3 装机卡在 Unsupported Hardware Detected 页面,要人肉点击 OK 才能继续装机: Unsupported Har ...

  4. Python 小结

    1. Python pass是空语句,是为了保持程序结构的完整性. pass 不做任何事情,一般用做占位语句. 2.删除一个list里面的重复元素 方法一:是利用map的fromkeys来自动过滤重复 ...

  5. java byte to hex

    String str; byte[] bs = null; bs =str.getBytes(); bs =str.getBytes("utf-8") java  byte to ...

  6. 使用EXCEL绘制三维地图(超简单的五分钟绘制地图方法,妈妈再也不用担心我不会画地图啦~)

    博主为从区域规划转行地图学的小学渣一枚,最近处理数据希望对结果进行三维可视化,意外发现从小用到大的EXCEL可以绘制地图且功能非常强大,在这里做一下简单介绍,希望可以给看官提供些许帮助.那下面就开始吧 ...

  7. Oracle11gR2导入导出实战之物化视图prebuilt

    源实例上创建表 物化视图 oracle@localhost admin]$ sqlplus system/oracle@orcl2 SQL*Plus: Release 11.2.0.4.0 Produ ...

  8. 好一个Time_Wait状态(TCP/IP)

    首先简单介绍一下Time_Wait是个什么鬼: 在TCP/IP协议中,我们都知道有三次握手四次挥手的过程,先来一个简单的图: 各个状态和基本的过程想必了解过TCP/IP协议的人都清楚,本次介绍的主题只 ...

  9. java 蓝桥杯算法提高 _2最大最小公倍数

    解题思路: 1. n是奇数,那就最大的三个数相乘2. n是偶数,得分两种情况了, ①如果n不是3的倍数,那就s=n*(n-1)*(n-3)---n与n-2同为偶数,故排除一个n-2: ②n是3的倍数, ...

  10. AddComponentMenu

    [AddComponentMenu] The AddComponentMenu attribute allows you to place a script anywhere in the " ...