Does it possible to enable new features in the TServerControlPanelForm?

[Tokay]

TabSessions and ManageServer? I'm use 1545 version now.

[Sherzod]

20 minutes ago, Tokay said:

TabSessions and ManageServer? I'm use 1545 version now.

\FMSoft\Framework\uniGUI\Demos\Desktop\ControlPanelSessions ?

[Tokay]

Ok, great! The TabSessions works great. But how about the ManageServer? It's disabled.

I think I found it. The soEnableSessionMonitorAdmin option is needed to enabled on the server module.

[Tokay]

I've try to open descendant of the TServerControlPanelForm directly from my code (ServerControlPanelForm37.Show), not from the /server link. I also enabled soEnableSessionMonitor and soEnableSessionMonitorAdmin and added code on the descendant OnCreate:

 UniSession.AllowSessionAdmin := True;
 SessionsMenu.Enabled := True;
 ShowSessions1.Enabled := True;
 TermToolButton.Enabled := True;
 ShutdownServer.Enabled := True;

The form shows and all needed menus and contorl is visible and enabled, but when I push the ShowSessions1 menu item, the form and the app is hangs. I used debugger and found that the CP form hangs here: U[I].LockSession (331 line of uniGUIServerCP mofule).

[Tokay]

UP

[Tokay]

Up

[Tokay]

Finally I've found solution.

There is no needed to lock main session. It's already locked. I've added such condition and all's works fine:

      if U[I] <> UniSession then
        U[I].LockSession;

And same for unlocking.

Also I've found better code for the server stopping:

procedure TServerControlPanelForm.ShutdownServerClick(Sender: TObject);
var
  U : TUniGUIServerModule;
begin
  Close;
  U := UniServerInstance;
  if Assigned(U) then U.Terminated := True;
end;

I've found it in the opened sources. Thank you! Source code is very useful.