CurrentTheme is unknown

[JRIchmann]

Hi,,,,

 

in your Delphi Demos CurrentTheme works...

 

But in my project CurrentTheme is unkown.

 

What is my error ?

 

 

 

 

procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject);
begin
  CurrentTheme:='default';
end;

 

www.JRichmann.de

[Tim]

In the FishFacts and MegaDemo projects, CurrentTheme has been added to the TUniServerModule class, that is why it works in those projects:

  TUniServerModule = class(TUniGUIServerModule)
    procedure UniGUIServerModuleCreate(Sender: TObject);
  private                                                 
    { Private declarations }
  protected
    procedure FirstInit; override;
  public
    { Public declarations }
    CurrentTheme : string;
  end;

If you don't want to do this in your own project, you could set the theme in MainModule.pas instead:

procedure TUniMainModule.UniGUIMainModuleCreate(Sender: TObject);
begin
  Theme := 'default';
end;