社区
Delphi
帖子详情
对SringGrid的两个过分要求,不知能否实现?很急!
spiral
2004-11-17 10:02:03
1.需要对其中的两条网格线(列方向)着色
2.可否将一行中的很多cell之间的分隔线去掉,变成一行空白栏
stringgrid 能实现吗?还是需用其他控件?
...全文
66
1
打赏
收藏
对SringGrid的两个过分要求,不知能否实现?很急!
1.需要对其中的两条网格线(列方向)着色 2.可否将一行中的很多cell之间的分隔线去掉,变成一行空白栏 stringgrid 能实现吗?还是需用其他控件?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
jinjazz
2004-11-17
打赏
举报
回复
怎么让StringGrind画单元格子的那个灰色线条变成黑色?
主要解答者: zswangII 提交人: yinzhiw
感谢:
审核者: hkbarton 社区对应贴子: 查看
A :
我怎么让StringGrind画单元格子的那个灰色线条变成黑色呢?
---------------------------------------------------------------
function ZoomRect(mRect: TRect; mZoom: Integer): TRect;
begin
Result.Left := mRect.Left - mZoom;
Result.Right := mRect.Right + mZoom;
Result.Top := mRect.Top - mZoom;
Result.Bottom := mRect.Bottom + mZoom;
end; { ZoomRect }
type
TStringGridEx = class(TStringGrid);
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
TStringGridEx(Sender).OnDrawCell := nil;
try
TStringGridEx(Sender).Canvas.Pen.Color := clBlack;
TStringGridEx(Sender).DrawCell(ACol, ARow, Rect, State);
TStringGridEx(Sender).Canvas.Rectangle(ZoomRect(Rect, 1));
finally
TStringGridEx(Sender).OnDrawCell := StringGrid1DrawCell;
end;
end;
获得选中的String
Grid
标题头
可获得选中的
Sring
Grid
标题列,处理FixColumn
2023年加湿器市场分析.pptx
行业分析报告
Skeleton-Low Poly 低多边形骨架模型Unity插件美术资源包unitypackage
Skeleton-Low Poly 低多边形骨架模型Unity插件美术资源包unitypackage 支持Unity版本2019.4.29或更高 直接的低多边形骨架。 特点: - 低多边形(9k tris,8.5) - 适用于 Unity 5 及更高 版本 - 完全装配 - 包括一个 fbx 格式的模型 - PBR 纹理 - 高清纹理
基于Java的Swing飞机订票系统设计源码
本项目是基于Java的Swing飞机订票系统设计源码,包含102个文件,其中主要包含41个java源代码文件,26个png图片文件,10个jpg图片文件等。系统采用了Java编程语言,
实现
了基于Swing的飞机订票系统。项目结构清晰,代码可读性强,易于理解和维护。
2023年全球包装油市场趋势分析.pptx
行业分析报告
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章