How to change ServerModule CustomCSS at run-time?

[newsanti]

constructor TMainmForm.Create(AOwner: TComponent);
begin
  inherited;
  with UniServerModule.CustomCSS do
  begin
    Add('.Round1 {');
    Add(' border-radius: 50px;');
    Add('}');
  end;
  TUniLayoutConfig(Panel1.LayoutConfig).Cls:= 'Round1';
end;
Not work!

[Sherzod]

1 hour ago, newsanti said:

with UniServerModule.CustomCSS do
  begin
    Add('.Round1 {');
    Add(' border-radius: 50px;');
    Add('}');
  end;
  TUniLayoutConfig(Panel1.LayoutConfig).Cls:= 'Round1';

These codes work.

But this is not a fact that your CustomCSS will work correctly.

[Sherzod]

Try this:

constructor TMainForm.Create(AOwner: TComponent);
begin
  inherited;
  with UniServerModule.CustomCSS do
  begin
    Add('.round1 .x-panel-body {');
    Add('   border-radius: 50px;');
    Add('}');
  end;
  TUniLayoutConfig(UniPanel1.LayoutConfig).Cls:= 'round1';
end;

 

[newsanti]

9 hours ago, Sherzod said:

Try this:

constructor TMainForm.Create(AOwner: TComponent);
begin
  inherited;
  with UniServerModule.CustomCSS do
  begin
    Add('.round1 .x-panel-body {');
    Add('   border-radius: 50px;');
    Add('}');
  end;
  TUniLayoutConfig(UniPanel1.LayoutConfig).Cls:= 'round1';
end;

 

work.. if code with servermodule.create and mainmodule.create.

not work (round3) if code with mainm.create.

How to customize css in form at run-time ? (Update MainPain CSS at run-time)

it work only refresh browser again. (After add CSS to ServerModule.CustomCSS>>work only new MainPage)

runtimeCSS.zip

[Sherzod]

I didn't look at your last test case.

Anyway, in my opinion, css classes should be defined at "design time" and not at runtime. I think this is good practice.

[Hayri ASLAN]

You can check this approach