社区
Delphi
帖子详情
dbgrid的问题,请高手回答
dickeybird888
2005-04-01 10:08:31
dbgrid的最左边的标识记录的小箭头,是文字还是图片啊!
如果是文字ASCII是多少啊!
...全文
133
10
打赏
收藏
dbgrid的问题,请高手回答
dbgrid的最左边的标识记录的小箭头,是文字还是图片啊! 如果是文字ASCII是多少啊!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
todouwang
2005-04-01
打赏
举报
回复
mark;
wtg476
2005-04-01
打赏
举报
回复
学习!
王集鹄
2005-04-01
打赏
举报
回复
//参考StringGrid绘制三角
const
MY_DRAWCELL = WM_USER + 10;
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
procedure FormCreate(Sender: TObject);
procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
private
procedure MyDrawCell(var Msg: TMessage); message MY_DRAWCELL;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.DefaultRowHeight := 17;
StringGrid1.ColWidths[0] := 11;
end;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if ARow = TStringGrid(Sender).Row then
PostMessage(Handle, MY_DRAWCELL, Rect.Top, 0);
end;
procedure TForm1.MyDrawCell(var Msg: TMessage);
const
{$J+}vWParam: DWORD = 0;{$J-}
begin
with StringGrid1.Canvas, Msg do
begin
///////Begin 清除上一次的三角
Pen.Color := clBtnFace;
Brush.Color := clBtnFace;
Polygon([
Point(3, vWParam + 3),
Point(8, vWParam + 8),
Point(3, vWParam + 13)
]);
///////End 清除上一次的三角
Pen.Color := clBlack;
Brush.Color := clBlack;
Polygon([
Point(3, WParam + 3),
Point(8, WParam + 8),
Point(3, WParam + 13)
]);
vWParam := WParam;
end;
end;
ygflydream
2005-04-01
打赏
举报
回复
up!
Heyongfeng
2005-04-01
打赏
举报
回复
学
xzgyb
2005-04-01
打赏
举报
回复
在dbgrids.pas中有
const
bmArrow = 'DBGARROW';
然后在
TCustomDBGrid.Create中
Bmp.LoadFromResourceName(HInstance, bmArrow); //从程序所链的DBGrids.res中装载图片
FIndicators := TImageList.CreateSize(Bmp.Width, Bmp.Height);
然后用
FIndicators来画
dickeybird888
2005-04-01
打赏
举报
回复
知道了,那他怎么实现的啊
xzgyb
2005-04-01
打赏
举报
回复
是个图片
在delphi安装目录下的lib目录中
有个dbgrids.res
用一些资源提取工具可以打开
用ImageEditor好像打不开
我用vc打开地
weige250
2005-04-01
打赏
举报
回复
学
pengxuan
2005-04-01
打赏
举报
回复
学习
我在CSDN参与的3000个帖子
今日偶然翻到,感慨万千 1:申述:版主,是否扣了我的专家分? 2:100分急求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望
高手
帮忙! 5:呵呵,来推荐一下我的网站,本站提供大量当今流行的免费的音乐和免费电影,常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6:VBA
请
教怎
用消息来处理鼠标中轮滚动时水平滚动条移动 --别人对我的帮助
问题
:150 分求一段消息代码,熟悉消息处理的
高手
请
进(用消息来处理鼠标中轮滚动时水平滚动条移动) ( 积分:150, 回复:12, 阅读:92 )分类:IDE/使用技巧 ( 版主:luyear, menxin ) 来自:qi_jianzhou, 时间:2006-4-12
基础
各位兄弟,在SDK编程中如果实现窗口分割呢?
请
问怎么得到一个函数的执行时间,单位毫秒!如何调试asp组件呀。用vc++调试编制的组件怎样画一个箭头?高分
请
教如何限制程序运行的方法?求助:通过编程DirectX抓屏------>masterz:再麻烦你一下,谢谢熟悉RichEdit的朋友过来看一下,RichEdit的几个
问题
.如何对 I/O 端口进行操作?有了该
问题
就有了思考(100分 献礼!)如何
vb/vb.net开发精粹(11)
请
问变量名中有数字如何循环 IIS上跑VB项目 VB如何连接网络上的打印机 vb 二进制文件随机访问 Excel VBA编程 vb 引用不了system.data.sqlite.dll 关于 VB6 调用C++ DLL 传参的
问题
VB编程
问题
,如何调试,感激不尽!!! 如何查询一条或多条记录,修改后批量更新到数据库 求VB代码,可以批量处理上标,比如单斗挖掘机,电动3m3,
Delphi与Word之间的融合技术
问题
:Delphi与Word之间的融合技术 ( 积分:0, 回复:325, 阅读:37835 )分类:OLE/Automation ( 版主:g622, satanmonkey ) 来自:yzhshi, 时间:2001-11-18 17:52:00, ID:737517[显示:小字体 | 大字体]
Delphi
5,386
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章