社区
Delphi
帖子详情
再次请教StringGrid的问题,请各位高人指教!
xiaofeng_cxy
2002-08-16 03:11:33
如何画StringGrid的网格线及如何使StringGrid的固定列以居中显示!?
我在线恭候!
...全文
54
6
打赏
收藏
再次请教StringGrid的问题,请各位高人指教!
如何画StringGrid的网格线及如何使StringGrid的固定列以居中显示!? 我在线恭候!
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
dupenf
2002-08-18
打赏
举报
回复
procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Txt:String;
begin
Txt:=StringGrid1.Cells[ACol,ARow];
StringGrid1.Canvas.Rectangle(Rect);
DrawText(StringGrid1.Canvas.Handle,
Pchar(Txt),
Length(Txt),
Rect,
DT_CENTER or DT_VCENTER );
//在StringGrid单元格画内画字符串
end;
blazingfire
2002-08-16
打赏
举报
回复
我来给你回答,首先你去看下一个API函数:DrawText(...),要StringGrid1的第一列居中显示可以在OnDrawCell事件中写这样代码:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
value:String;
begin
if ACol=0 then
begin
StringGrid1.Canvas.Brush.Color:=clWhite;
StringGrid1.Canvas.Pen.Color :=clWhite;
StringGrid1.Canvas.Rectangle(Rect);
StringGrid1.Canvas.Font.Color:=clBlue;
value:=StringGrid1.Cells[ACol,ARow];
DrawText(StringGrid1.Canvas.Handle,
Pchar(value),
Length(value),
Rect,
DT_Center or DT_VCenter);//DT_Center为横着居中显示
//DT_VCenter为坚着居中显示
end;
end;
DBcode
2002-08-16
打赏
举报
回复
cai
gaoys1979
2002-08-16
打赏
举报
回复
既然是自己画,不是可以得到Rect吗? 用canvas.lineto canvas.move 设置点画线。。。固定列居中显示?可能要自己判断把它画在中间了。
findcsdn
2002-08-16
打赏
举报
回复
为了能够设置对齐方式我用 TStringAlignGrid,网上下有源码。
为了能够作表格合并我用 TAdvStringGrid,网上下无源码。
xiaofeng_cxy
2002-08-16
打赏
举报
回复
怎么没人回答呢?
高手都上哪去了?
组件是如何显示出来的?
组件是如何显示出来的?...同是一个基类比如twinctrol派生出来的的控件,显示的样子各不相同,比如说BUTTON和
STRING
GRID
,看了看CREATE函数,好像里边只是对基本参数赋初试值,那当一个控件被放置到窗口上后即...
Delphi与Word之间的融合技术
问题
:Delphi与Word之间的融合技术 ( 积分:0, 回复:325, 阅读:37835 )分类:OLE/Automation ( 版主:g622, satanmonkey ) 来自:yzhshi, 时间:2001-11-18 17:52:00, ID:737517[显示:小字体 | 大字体] ...
基于利益相关者理论的网络游戏企业社会责任研究.docx
基于利益相关者理论的网络游戏企业社会责任研究.docx
智能家居推广计划.pptx
智能家居推广计划.pptx
互联网技术服务行业技术趋势分析.pptx
互联网技术服务行业技术趋势分析.pptx
Delphi
5,927
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章