rio中如何加载所有style文件

1、找到style文件所在。

C:\Users\Public\Documents\Embarcadero\Studio\20.0\Styles

2、将所有style文件复制到应用程序所在得debug文件夹下styles文件夹。

 

如：D:\riosource\githubsamplemaster\45-Calendar\Win32\Debug\styles

3、打开控制台程序，cmd命令。遍历所有style后缀名文件，导出到同一路径下得file.txt文本文件中。

cd D:\riosource\githubsamplemaster\45-Calendar\Win32\Debug\styles
d:
dir *.style >> file.txt

4、将file.txt用记事本打开，去头尾。复制到rio编辑器中，按住alt+鼠标拖拽，将前面得日期删除。如图。

按delete键。

结果。

 

加combobox1再toolsbar上。其items属性中加入上一步复制的文本。放置一个stylebook组件在窗体上。

 

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Self.StyleBook := Self.StyleBook1;
        StyleBook1.FileName := 'C:\Users\Public\Documents\Embarcadero\Studio\20.0\Styles\'+self.ComboBox1.Items[self.ComboBox1.ItemIndex];
end;