学习笔记: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 就是用于计算文本的矩形宽高哦。
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);
差不多就这些功能。也就是画个框,再画个文本。。