Delphi xe5 StyleBook的用法(待续)

         首先要在FORM里拖进来一个StyleBook1,然后在Form里设置属性,记住一定要在单击form,在OBject Inspector里设置StyleBook  [StyleBook1]. 下一个属性StyleName [  ]

 好像是多余的,我多次都把StyleName [StyleBook1], 但是没有效果。在其他控件下设置StyleLookup就可以了,单击选择。styleName就显得多余了,当然你能记住每个控件的style,那么就不用去look up了。(待续)
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi 本身是不支持 UWP 平台的,但是可以使用 Delphi 的 FMX 框架来开发跨平台应用程序,其中就包括了支持 Windows 10 平台的 UWP 应用程序。 要创建一个 Fluent Design 风格的 UWP 界面,需要使用 Delphi FMX 中的 TStyleBook 组件来定义样式和主题。下面是一个简单的示例代码,演示了如何使用 TStyleBook 组件创建一个 Fluent Design 风格的 UWP 界面: ```delphi unit Main; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Layouts, FMX.ListBox; type TMainForm = class(TForm) StyleBook: TStyleBook; ToolBar: TToolBar; TitleLabel: TLabel; MainLayout: TLayout; ListBox: TListBox; procedure FormCreate(Sender: TObject); private procedure LoadStyle(const AFileName: string); public { Public declarations } end; var MainForm: TMainForm; implementation {$R *.fmx} procedure TMainForm.FormCreate(Sender: TObject); begin LoadStyle('Fluent.style'); // 加载 Fluent Design 风格的样式 end; procedure TMainForm.LoadStyle(const AFileName: string); begin if FileExists(AFileName) then begin StyleBook.Clear; StyleBook.LoadFromFile(AFileName); StyleBook.ApplyStyle(Self); end; end; end. ``` 在上面的代码中,我们创建了一个 TStyleBook 组件,并将其赋值给 MainForm 窗体的 StyleBook 属性。然后,我们在窗体的 OnCreate 事件中调用 LoadStyle 方法,传入我们定义的 Fluent Design 风格的样式文件名。在 LoadStyle 方法中,我们使用 StyleBook 的 LoadFromFile 方法来加载样式文件,并应用到 MainForm 窗体上。 在样式文件中,我们可以定义窗体、按钮、标签等控件的样式和主题。下面是一个简单的 Fluent.style 样式文件的示例代码: ```xml object TStyleContainer object TStyleObject StyleName = 'MainFormStyle' object TLayout StyleName = 'MainLayoutStyle' Align = alClient object TListBox StyleName = 'ListBoxStyle' Align = alClient ItemHeight = 60 end end end object TStyleObject StyleName = 'ToolBarStyle' object TToolBar StyleName = 'ToolBarBackgroundStyle' Height = 50 object TLabel StyleName = 'TitleLabelStyle' Text = 'Fluent Design Style Demo' end end end object TStyleObject StyleName = 'ButtonStyle' object TButton StyleName = 'FlatButtonStyle' Width = 100 Height = 32 Text = 'OK' end end end ``` 在上面的样式文件中,我们定义了三种控件的样式和主题:MainForm、ToolBar 和 Button。其中,MainForm 是一个 TLayout 控件,包含一个 TListBox 控件;ToolBar 是一个 TToolBar 控件,包含一个 TLabel 控件;Button 是一个 TButton 控件。 通过在样式文件中定义控件的样式和主题,我们可以轻松地创建一个 Fluent Design 风格的 UWP 界面。当然,这只是一个简单的示例,实际上还有很多其它的控件和样式需要定义。如果想要深入了解 Delphi FMX 的使用,可以参考 Delphi 官方文档和教程。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值