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;