学习笔记:delphi之TStringGrid

1、说明

最近加入了一个项目组,使用的开发工具是delphi6,想想又要开始搞这个工具有点小忧伤,但没办法谁让咱就是个打杂的尼。。。

的需求是显示一个类似于Word/excel的那种表格,可以合并列等。。本来想用DBGridEh去解决,只是试了半天发现不能合并列,我了个去。。然后想到了网页来处理,但是尝试了一下马上就放弃,最后各种搜索后没得办法哦。。想了想就用TStringGrid来试试,毕竟也是个表格,可定制性也大的多,好吧。就用它试试。

2、技术点

最核心的功能还是由TStringGrid提供,一方面它已经具备了显示一个二维表格的能力,另一方面提供了灵活的设定来开启各种自定义的功能,比如是否显示网格线,行、列是否可以改变大小等。作了基本的设置,加载上数据就能显示出来。接下来要做的就是让表格内容显示的和我预期的一样。

因为表格需要类似于word中那种表格,主要是合并单元格之类的,样式方面可以按要求画就是了。所以主要的技术点:

1、自绘方法,直接就用OnDrawCell事件处理

2、表头,可以使用FixCol和FixRow的属性

3、文本换行

3、开发

3.1、属性设置

DefaultDrawing:设置为False,这样就不会在OnDrawCell之前进行绘制,否则会先进行父类的绘图功能,再调用OnDrawCell,由于许多内容我都是自己画的所以把它设置为False

RowCount:默认的初始行数,必须为大于等于2,否则会把FixedRows清为0,这样就没有表格头了。可以通过这个属性来增减行数,+1就多一行。

FixedRows:固定的行数,设置为1,因为一行是表格头

FixedCols:固定的列数,设置1,用一个固定的列可以显示序号,同时也可以用于鼠标调整行的高度

Options.goVertLine:数据区域的垂直网格线,默认为true,会默认显示cell的垂直边框。我在绘图的时候遇到了些麻烦就把它改成false,自己来画框

Options.goHorzLine:数据区域的水平风格线。同样设置为false

Options.goRowSizing:行高可调整,在运行时时可以通过鼠标来调整行高

Options.goColSizing:列宽可调整,在运行时可以通过鼠标来调整列的宽度

3.2、计算每行的文本高度

这个我找了半天也没找到比较简单好用的方法,最后就用TLabel这个控件来完成的。有点绕路,但感觉挺实用的。。呵呵。。。。呵呵。。

    label1.Caption := sData;
    StringGrid1.RowHeights[iRow] := Label1.Height + 10;

将文本赋值给label,然后再使用label的高度设置为StringGrid的行高,这样就能显示多行的文本了。但有一个问题,AutoSize为true时没法自动换行,醉了。这个问题后面再找办法解决吧。

后来使用的另一种方法挺好的:

    rect.Left := 0;
    rect.Top := 0;
    rect.Right := 500;
    rect.Bottom := 50;
    iHeight := DrawText(Self.Label1.Canvas.Handle, PChar(sData), Length(sData), rect, DT_WORDBREAK or DT_CALCRECT);

设定一个固定的矩形框,然后使用DrawText方法来绘制一次就能得到高度了,哈哈,不错的。。这样就得到了实际的文本高度。

DT_CALCRECT 就是用于计算文本的矩形宽高哦。

调用上面那句代码后,cellRect就会计算出文本显示的矩形大小了。同样就得到了宽高。

3.3、OnDrawCell事件

DrawCell事件里就是对每个单元格的绘图功能:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);

参数很实用:

ACol,ARow:就是列、行

Rect:就是Cell的矩形

State:指的是当前cell的状态,选择、焦点、固定

有了这些内容就可以进行想要的做操作了:

画边框:

sg.Canvas.Rectangle(Rect);

画文本:

DrawText(sg.Canvas.Handle,PChar(sData),Length(sData), Rect, DT_WORDBREAK or DT_VCENTER or DT_LEFT or DT_SINGLELINE);

差不多就这些功能。也就是画个框,再画个文本。。

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏葡萄城控件技术团队

Spread for Windows Forms高级主题(2)---理解单元格类型

理解单元格类型基本信息 Spread支持几十种单元格类型,如复选框单元格、日期时间单元格、或者一个简单的文本单元格。单元格类型可以对单独的单元格、列、行、一个单...

20380
来自专栏游戏杂谈

“穿透”层的鼠标事件

需要实现如下的效果,有一个浮动层,需要层级在它之下的一个元素也能照常响应相应的事件

14420
来自专栏贾鹏辉的技术专栏@CrazyCodeBoy

从navigator到react-navigation进阶教程

28030
来自专栏Coding迪斯尼

VUE+WebPack前端游戏设计:实现物体的拖拽动态特效

13430
来自专栏ytkah

Excel表格的35招必学秘技[配图]

一、让数据按需排序   如果你要将员工按其所在的部门进行排序,这些部门名称既的有关信息不是按拼音顺序,也不是按笔画顺序,怎么办?可采用自定义序列来排序。  ...

69580
来自专栏carven

利用canvas实现毛笔字帖(一)

最近在慕课网上找到了很好的canvas教程, 来自 @liuyubobobo 的 学写一个字 canvas绘图教程 在 @liuyubobobo 老师的系列ca...

21920
来自专栏前端儿

Flex 布局相关用法

布局的传统解决方案,基于盒状模型,依赖 display属性 + position属性 + float属性。它对于那些特殊布局非常不方便,比如,垂直居中 就不容易...

14210
来自专栏非著名程序员

基础篇章:关于 React Native 之 ListView 组件的讲解

? (友情提示:RN学习,从最基础的开始,大家不要嫌弃太基础,会的同学请自行略过,希望不要耽误已经会的同学的宝贵时间) 我们讲完ScrollView组件,其实...

20780
来自专栏从流域到海域

eclipse 常用快捷键

快捷方式 0. Ctrl + 1 (快速修复) 1. Ctrl + D (删除当前行) 2. Ctrl + Alt + ↓(复制当前行到下一行)...

17950
来自专栏happyJared

IDEA快捷键拆解系列(五):Navigate篇

  以下是关于Navigate导航项及其每一子项的拆解介绍,其中,加粗部分的选项是博主认为比较重要的。

11120

扫码关注云+社区

领取腾讯云代金券