استخدام ال VCL Style مع مكتبات ال Dll

PHP كود :

{$R Auric.res}
procedure TdllForm.FormCreate(Sender: TObject);
var s:TStyleManager ;
begin
s:=TStyleManager.Create ;
s.SetStyle('Auric');
end;

PHP كود :

library DllDlg;

uses
  System.SysUtils,
  System.Classes,
  Vcl.Themes,
  Vcl.Styles,
  DllFrmUnit in 'DllFrmUnit.pas' {dllForm};

{$R *.res}
{$R Auric.res}

type TStyleManagerHelper = class helper for TStyleManager
class function IsStyleRegistered (StyleName:String):Boolean;

end;

{ TStyleManagerHelper }

class function TStyleManagerHelper.IsStyleRegistered(StyleName: String): Boolean;
VAR sName:String;
begin
Result:=False;
for sName in StyleNames do // read each StyleName in StyleNames array
if StyleName =sName then begin
Result:=True; // Style is registered .
Break;
end else
Result:=False; // Style is not registered .
end;

procedure ApplyStyle(Instance:THandle;ResStyleName,StyleName:string);
begin
 if not TStyleManager.IsStyleRegistered ( StyleName)then
 TStyleManager.LoadFromResource(Instance,ResStyleName,'VCLSTYLE');
 TStyleManager.SetStyle(StyleName);

end;

 procedure ShowMyDllForm(ParentInstance:THandle;ResStyleName,StyleName:String;ParentStyle:Boolean);stdcall;
begin
dllForm :=TdllForm.Create(nil);
 if ParentStyle then
   ApplyStyle(ParentInstance,ResStyleName,StyleName)else
   TStyleManager.SetStyle('Auric');
dllForm.Show;

end;
exports  ShowMyDllForm;


begin
end.

PHP كود :

procedure ShowMyDllForm(ParentInstance:THandle;ResStyleName,StyleName:String;ParentStyle:Boolean);stdcall;external 'C:\Users\Mahdi\Desktop\DllFormTest\Win32\Debug\DllDlg.dll' name 'ShowMyDllForm' ;
procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMyDllForm(HInstance,'AQUAGRAPHITE','Aqua Graphite',Self.CheckBox1.Checked );
end;

PHP كود :

procedure ShowMyDllForm(ParentInstance:THandle;ResStyleName,StyleName:String;ParentStyle:Boolean);stdcall;external 'DllDlg.dll' name 'ShowMyDllForm' ;

كود :

Unable to load style 'RUBYGRAPHITE'

كود :

unit UnitMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls,
  Vcl.ExtCtrls, Vcl.ImgList, Vcl.Imaging.pngimage,
  Vcl.ExtDlgs, Vcl.Themes, Vcl.Styles;

...
...
...
...

var
  Main: TMain;

implementation

{$R *.dfm}
{$R VLCSTYLE.res}

procedure TMain.FormCreate(Sender: TObject);
begin
  TStyleManager.LoadFromResource(HInstance,'RubyGraphite','VCLSTYLE');
  TStyleManager.SetStyle('RubyGraphite');
end;

PHP كود :

procedure TMain.FormCreate(Sender: TObject);
begin
  TStyleManager.LoadFromResource(HInstance,'RubyGraphite','VCLSTYLE');
  TStyleManager.SetStyle('RubyGraphite');
end;