delphi – 如何在我的应用程序中手动包含VCL样式？

概述我有一个应用程序,它使用条件来编译它作为VCL Forms应用程序或Delphi XE2中的Windows服务应用程序.但是,由于我手动更改了项目的主源文件,因此IDE将不再允许我使用标准的“项目选项”窗口进行某些修改.具体来说,我无法选择VCL样式来包含或实现. 因此,我必须手动实现VCL样式.因此,我将两个必要的单元Vcl.Themes和Vcl.Styles添加到我的项目的初始化单元(在这种情 我有一个应用程序,它使用条件来编译它作为VCL Forms应用程序或Delphi XE2中的windows服务应用程序.但是,由于我手动更改了项目的主源文件,因此IDE将不再允许我使用标准的“项目选项”窗口进行某些修改.具体来说,我无法选择VCL样式来包含或实现.

因此,我必须手动实现VCL样式.因此,我将两个必要的单元Vcl.themes和Vcl.Styles添加到我的项目的初始化单元(在这种情况下与项目的主单元不同),并且基本上将工作应用程序中的代码复制到这个新应用程序中.

这是该项目的主要单位：

program MyServiceApplication;uses  uMyService in 'uMyService.pas' {MyService: TService},uMyServiceMain in 'uMyServiceMain.pas',uMyServiceInit in 'uMyServiceInit.pas',uMyServiceTest in 'uMyServiceTest.pas' {frmMyServiceTest};{$R *.RES}begin  RunMyService;end.

然后在项目的初始化单元中：

unit uMyServiceInit;interfaceuses{$IFDEF TESTAPP}  Vcl.Forms,Vcl.themes,Vcl.Styles,uMyServiceTest,{$ELSE}  Vcl.SvcMgr,uMyService,{$ENDIF TESTAPP}  uMyServiceMain  ;procedure RunMyService;implementationprocedure RunMyService;begin{$IFDEF TESTAPP}  Application.Initialize;  Application.MainFormOnTaskbar := True;  TStyleManager.TrySetStyle('Carbon'); //<--- WILL NOT RUN - STYLE DOES NOT EXIST  Application.Title := 'My windows Service Application';  Application.CreateForm(TfrmMyServiceTest,frmMyServiceTest);{$ELSE}  if not Application.DelayInitialize or Application.Installing then    Application.Initialize;  Application.CreateForm(TMyService,MyService);{$ENDIF TESTAPP}  Application.Run;end;end.

问题是,当应用程序运行时,我收到错误样式’Carbon’无法找到.只是因为这种风格尚未被包含并编译到应用程序中.

如何手动将此样式编译到此应用程序中,以便VCL样式可以实现它？

PS：初始化在一个单独的单元中的原因是因为如果条件在应用程序的主单元内实现,IDE将破坏代码.

编辑

我尝试了一件事：我打开了一个工作项目的.dproj文件并搜索了这个样式的碳,希望在那里找到一些配置,因为工作项目使用了这种风格,但没有运气.该文件中的任何位置都不存在该单词.

@H_502_22@解决方法 TStyleManager从可执行文件的’VCLSTYLE’资源部分加载可用样式(除非您将TStyleManager.autodiscoverStyleResources设置为false).资源是您的方案中缺少的资源.
基本上,有三种方法可以将您的样式添加为exe中的资源.

>通过’项目’ – > ‘资源和图片..’菜单.单击对话框中的“添加”按钮添加样式,将其类型设置为“VCLSTYLE”,将标识符设置为“CARBON”.
>正如在问题的评论中提到的Ken,通过.rc文件.这是一个文本文件,每个样式(和/或其他资源)可以包含一行.喜欢

CARBON VCLSTYLE "C:\..\RAD Studio.0\Redist\Styles\Vcl\Carbon.vsf"

(如果可行,您可以使用相对路径).让我们将文件命名为’styles.rc’,通过项目管理器将文件添加到项目中(或使用bin文件夹中的brcc32.exe将其编译为.res文件),然后添加{$R styles.res}行到你的单位.
>正如RRUZ在his answer中所说,他通过编辑.dproj文件将评论链接到该问题.在< PropertyGroup Condition =“'$(Base)'！=''”>下键,添加一个VCL_Custom_Styles条目(他的示例包括几个样式)：

<VCL_Custom_Styles>&quot;Amakrits|VCLSTYLE|$(PUBliC)\documents\RAD Studio.0\Styles\Amakrits.vsf&quot;;&quot;Amethyst Kamri|VCLSTYLE|$(PUBliC)\documents\RAD Studio.0\Styles\AmethystKamri.vsf&quot;;&quot;Aqua Graphite|VCLSTYLE|$(PUBliC)\documents\RAD Studio.0\Styles\AquaGraphite.vsf&quot;</VCL_Custom_Styles>

@H_502_22@ @H_502_22@ 总结

以上是内存溢出为你收集整理的delphi – 如何在我的应用程序中手动包含VCL样式？全部内容，希望文章能够帮你解决delphi – 如何在我的应用程序中手动包含VCL样式？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。