首页
社区
课程
招聘
delphi中treeview的修改
发表于: 2010-11-1 16:27 7941

delphi中treeview的修改

2010-11-1 16:27
7941
最近朋友拿给我一个软件,其中有一个地方感觉很奇怪。
运行程序后,在最左边有个水印。通过资源查看工具得知是一个OnCustomDraw事件控制的。资源查看器中对应的代码如下:
    object trvTask: TTreeView
      Left = 0
      Top = 0
      Width = 153
      Height = 305
      Align = alClient
      AutoExpand = True
      BevelInner = bvNone
      BevelOuter = bvNone
      HideSelection = False
      Images = ResourceForm.SmallImageList
      Indent = 19
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      ShowLines = False
      StateImages = ResourceForm.SmallImageList
      TabOrder = 0
      OnChange = trvTaskChange
      OnCustomDraw = trvTaskCustomDraw
      Items.NodeData = {
        0304000000260000005600000056000000FFFFFFFFFFFFFFFF00000000000000
        00000000000104636B2857D1530190240000005700000057000000FFFFFFFFFF
        FFFFFF0000000000000000000000000103F25DD1530190240000005900000059
        000000FFFFFFFFFFFFFFFF000000000000000000000000010349833F7AB17B24
        0000005800000058000000FFFFFFFFFFFFFFFF00000000000000000000000001
        03DE563665D97A}
    end
现在的问题是,怎么才能修改这个水印的内容或者颜色或者直接去掉这个水印。
我试过直接去掉OnCustomDraw = trvTaskCustomDraw这句,可以实现去掉的目的,但在他软件的地址薄中会提示出错。各位大侠有没有完美些的解决方法。

[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课

收藏
免费 0
支持
分享
最新回复 (17)
雪    币: 194
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
没人能回答下吗?
2010-11-2 10:10
0
雪    币: 191
活跃值: (345)
能力值: ( LV9,RANK:450 )
在线值:
发帖
回帖
粉丝
3
PE Explorer 修改资源看看
2010-11-2 10:19
0
雪    币: 194
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
资源里找过了 没有。应该不是位图。
2010-11-2 12:00
0
雪    币: 255
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
不懂······帮顶·············
2010-11-2 14:13
0
雪    币: 258
活跃值: (25)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
6
Images = ResourceForm.SmallImageList

这句应该是关键吧,去ResourceForm看看SmallImageList里面是什么数据,估计水印是一个图片,把他去掉保留其他的就ok。
2010-11-2 15:15
0
雪    币: 258
活跃值: (25)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
7
估计是动态生成的水印文本,关注一下如何修改。
2010-11-2 15:41
0
雪    币: 194
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
8
不是在资源里面。是通过OnCustomDraw = trvTaskCustomDraw这个事件控制的。但问题是不知道怎么修改。
2010-11-2 15:48
0
雪    币: 258
活跃值: (25)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
9
删除不行,能不能换成一个别的事件?
2010-11-2 15:54
0
雪    币: 194
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
10
换了,程序会出错。
2010-11-2 16:30
0
雪    币: 194
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
11
顶起来。各位大牛,帮忙看下啊。
2010-11-3 12:52
0
雪    币: 194
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
12
继续顶
2010-11-4 11:24
0
雪    币: 270
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
13
你看看可以不?由于论坛附件大小限制,我把RAR改成了PDF格式,直接重命名为RAR就可以了。
EDM Free_Cr.pdf
上传的附件:
2010-11-4 15:07
0
雪    币: 194
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
14
[QUOTE=SIsIa;883768]你看看可以不?由于论坛附件大小限制,我把RAR改成了PDF格式,直接重命名为RAR就可以了。
EDM Free_Cr.pdf[/QUOTE]

水印是去掉了,但点击他软件中的地址薄后,软件会提示出错。还有没有更好的方法?
2010-11-4 18:23
0
雪    币: 270
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
15
我的这边没有出错。。。
2010-11-4 19:09
0
雪    币: 194
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
16
你是修改的哪个地方?是资源里面?
2010-11-4 19:38
0
雪    币: 270
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
17
不是资源里面的,直接修改的程序。
2010-11-5 12:15
0
雪    币: 194
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
18
十三楼正解
2010-11-6 19:02
0
游客
登录 | 注册 方可回帖
返回
//