delphi XE2 TStyleManager的问题

iqyely 2011-12-06 09:37:30

大家好，在使用TStyleManager的时候遇到了些问题，想求助于大家。
用TStyleManager设置后，在toolbar的customdrawbutton中写了自绘的代码，但调试运行时发现根本不起作用，不用TStyleManager的话自绘代码才会执行。目前也不知道如何解决，希望能帮帮我，谢谢。

...全文

452 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

Mit1208 2011-12-12

打赏
举报

回复

一直用的是XE。。。
还没更新到XE2呢

iqyely 2011-12-11

打赏
举报

回复

[Quote=引用 2 楼 warrially 的回复:]

引用 1 楼 iqyely 的回复:

额，大家没有迁移到XE2上的么？

XE2 的皮肤太少太丑了,,, 没用... 还是先换吧
[/Quote]

皮肤可以自己做的吧。

爱蹄子的羊头 2011-12-07

打赏
举报

回复

[Quote=引用 1 楼 iqyely 的回复:]

额，大家没有迁移到XE2上的么？
[/Quote]

XE2 的皮肤太少太丑了,,, 没用... 还是先换吧

iqyely 2011-12-07

打赏
举报

回复

额，大家没有迁移到XE2上的么？

这个皮肤可以运行时改变（通过 TStyleManager 类，在 vcl.styles 单元中），而且它是直接应用在 vcl 控件上的，而不是象民间的 skin 控件那样是另一组新控件，这有点象 vclskin 控件。这个功能听起来没多大意思，...

当然，你可以在你的程序里自己设定，为了使用VCL Styles，你需要使用TStyleManager类，Themes单元，如下几步：注册Style 从文件加载（注册）VCL style，需要使用TStyleManager类中的LoadFromFile函数，复制代码 ...

XE2 内置了对 VCL 的皮肤支持，皮肤文件扩展名为 vsf。以下代码加载皮肤文件： procedure TForm1.GetThemes; var dir, FileName, StyleName:

1、先在Project--> Operation ---> Application ---> Appearance，把所有的皮肤都勾选了。 2、Uses Vcl.Themes 单元； 3、填写代码 ... li_Count := High(TStyleManager.StyleNames);...

看看 Delphi XE2 为 VCL 提供的 14 种样式其实只提供了 13 个 vsf 样式文件, 还有默认的 Windows 样式, 共 14 种.在空白窗体上添加 ListBox1 等控件, 测试代码: uses IOUtils, Vcl.Styles, vcl.Themes; ...

5,927

社区成员

262,932

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章