文档章节

看看 Delphi XE2 为 VCL 提供的 14 种样式

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 145
阅读 5
收藏 0

其实只提供了 13 个 vsf 样式文件, 还有默认的 Windows 样式, 共 14 种.

在空白窗体上添加 ListBox1 等控件, 测试代码:

uses IOUtils, Vcl.Styles, vcl.Themes;

procedure TForm1.FormCreate(Sender: TObject);
var
  dir, fileName, styleName: string;
begin
  //VCL 的样式文件 *.vsf 在 X:\Program Files\Embarcadero\RAD Studio\9.0\Redist\styles\vcl\
  dir := GetEnvironmentVariable('Delphi') + '\Redist\styles\vcl';

  {载入所有 *.vsf 文件}
  for fileName in TDirectory.GetFiles(dir, '*.vsf') do
    TStyleManager.LoadFromFile(fileName);

  {将样式名称导入列表}  
  for styleName in TStyleManager.StyleNames do
    ListBox1.Items.Add(styleName);
end;

{修改样式}
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  TStyleManager.SetStyle(ListBox1.Items[ListBox1.ItemIndex]);
end;


效果图:


本文转载自:http://www.cnblogs.com/del/archive/2011/11/09/2243556.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
【版本升级】VCL界面控件DevExpress VCL发布v17.2.6|附下载

DevExpress VCL Controls是 Devexpress公司旗下最老牌的用户界面套包。所包含的控件有:数据录入,图表,数据分析,导航,布局,网格,日程管理,样式,打印和工作流等,让您快速开发出完美、...

Miss_Hello_World
04/13
0
0
VCL界面控件DevExpress VCL发布v17.2.8|附下载

DevExpress VCL Controls是 Devexpress公司旗下最老牌的用户界面套包。所包含的控件有:数据录入,图表,数据分析,导航,布局,网格,日程管理,样式,打印和工作流等,让您快速开发出完美、...

Miss_Hello_World
06/12
0
0
VCL界面控件DevExpress VCL发布v18.1.5|附下载

DevExpress VCL Controls是 Devexpress公司旗下最老牌的用户界面套包。所包含的控件有:数据录入,图表,数据分析,导航,布局,网格,日程管理,样式,打印和工作流等,让您快速开发出完美、...

Miss_Hello_World
09/20
0
0
DevExpress VCL v17.2.7全新发布|附下载

DevExpress VCL Controls是 Devexpress公司旗下最老牌的用户界面套包。所包含的控件有:数据录入,图表,数据分析,导航,布局,网格,日程管理,样式,打印和工作流等,让您快速开发出完美、...

Miss_Hello_World
05/29
0
0
DevExpress v15.1:VCL控件功能增强(三)

<下载最新版DevExpress VCL Controls v15.1.3> VCL Map Control 改进滚动 新版本改进了应用程序激活惯性滚动新地图选项的用户体验——当松开鼠标时地图滚动会逐渐停止。除了使用鼠标,最终用...

Miss_Hello_World
2015/08/05
0
0

没有更多内容

加载失败,请刷新页面

加载更多

初级开发-编程题

` public static void main(String[] args) { System.out.println(changeStrToUpperCase("user_name_abc")); System.out.println(changeStrToLowerCase(changeStrToUpperCase("user_name_abc......

小池仔
今天
6
0
现场看路演了!

HiBlock
昨天
16
0
Rabbit MQ基本概念介绍

RabbitMQ介绍 • RabbitMQ是一个消息中间件,是一个很好用的消息队列框架。 • ConnectionFactory、Connection、Channel都是RabbitMQ对外提供的API中最基本的对象。Connection是RabbitMQ的s...

寰宇01
昨天
9
0
官方精简版Windows10:微软自己都看不过去了

微软宣布,该公司正在寻求解决方案,以减轻企业客户的Windows 10规模。该公司声称,企业客户下载整个Windows 10文件以更新设备既费钱又费时。 微软宣布,该公司正在寻求解决方案,以减轻企业...

linux-tao
昨天
19
0
TypeScript基础入门之JSX(二)

转发 TypeScript基础入门之JSX(二) 属性类型检查 键入检查属性的第一步是确定元素属性类型。 内在元素和基于价值的元素之间略有不同。 对于内部元素,它是JSX.IntrinsicElements上的属性类型...

durban
昨天
12
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部