[Log SessionID and IP]

Try modify this code

var i : Integer;

    ASessionList: TList;

    ASession : TUniGUISession;

    s: string;

    iActiveSession: Integer;

begin

    lstSessions.Clear;

    ASessionList:=UniServerModule.SessionManager.Sessions.SessionList.LockList;

    try

       for i := 0 to ASessionList.Count-1 do begin

          ASession := TUniGUISession(ASessionList);

          if not ASession.IsTerminated then begin

               s:=TUniGUISession(ASessionList).UniApplication.UniSession.SessionID+' ('+

                  TUniGUISession(ASessionList).UniApplication.RemoteAddress+

                  ', browser '+TUniGUISession(ASessionList).UniApplication.ClientInfoRec.BrowserType+

                  TUniGUISession(ASessionList).UniApplication.ClientInfoRec.BrowserVersion.ToString+')' ;

               if Pos(UniSession.SessionID,s)<>0 then begin

                  s:='<b>'+s+' - Current session!</b>';

                  iActiveSession:=i;

               end;

               s:='<img src="images/domain_template.png" align="left"/> <p style="font-size:11px"/>'+s;

               lstSessions.Items.Add(s);

          end;

       end;

       lstSessions.ItemIndex:=iActiveSession;

       btnSessionClose.Enabled:=False;

       if lstSessions.Items.Count=1 then btnCloseAllSessions.Enabled:=False

       else btnCloseAllSessions.Enabled:=True;

    finally

       UniServerModule.SessionManager.Sessions.SessionList.UnlockList;

    end;

 

This code from my project, untreated. So my apologies

 

[Is it possible to change UniMainModule.BrowserOptions at runtime]

Thanks

[How to get the browser name and it's version?]

var ClientInfo : TUniClientInfoRec;

      BrowserType: string;

      BrowserVersion: string;

begin

     ClientInfo:=UniApplication.ClientInfoRec;

     BrowserType:=ClientInfo.BrowserType;

    BrowserVersion:= ClientInfo.BrowserVersion;

end;

[Пример добавления кнопок в заголовок формы]

Delphi xe2

Build 0.96.1065

Win 8

 

Криво работает, пробовали на последнем билде??

Первый раз кликаю на иконку в UniFormAjaxEvent падаю внутрь события, все нормально.

При повторном клике уже не проваливаюсь!!! и через некоторое время отвал сессии.

Не, на последнем билде еще не пробовал.

Спс за информацию

[Пример добавления кнопок в заголовок формы]

http://forums.unigui.com/index.php?/topic/3206-simple-tip-tools-usage-demo/?hl=tooltip&do=findComment&comment=20369

[uniGUI Mobile for Sencha Touch]

Yeaah! Very good!

[Progress Bar Pager Extension]

Thanks

[Form border color change]

ldb68

 

Hi,

See attached demo

 

Regards

FormBorder.zip

[Simple Desktop]

Hi!

 

I use

Delphi XE4 

Ext 4.2

last UniGui comps

 

 

and I have problem with compiling project in part:

 

 Name := StringReplace(Form.WebForm.JSWindow.Id,'_id','',[rfReplaceAll] +[rfIgnoreCase]);

     Form.Script.Add(Name +'.on('+#39+'minimize'+#39+',function(w){w.toggleCollapse();w.setVisible(!w.isVisible());});');

 

I got error

 

'TUniJSForm' doest not contain a member named 'ExtWindow'

 

How I can fix it to compile project?

Hi

Try code from http://forums.unigui.com/index.php?/topic/2909-simple-desktop/?p=16894

 

Regards

[Simple Desktop]

ola , aqui apresentou o seguinte erro no exemplo desktop2 

 

alguem sabe como solucionar ? 

Hi

Simple delete acPNG from Uses

[UniNoty! A Notification -> Smart, Full Customizable and Callbacks]

Thanks!

Very promising

[Form border color change]

 

 

Hi Semper. 

 

You can so, one operator without adding customCSS

 

UniSession.AddJS(WebForm.JSName + '.el.setStyle({"border": "solid 3px red"});');

 

Thanks

[Form border color change]

Hi,

How change form border color dynamically? 

 

I tried following, but not works   

UniSession.AddJS('myformname.addCls('borderred');');

...

UniSession.AddJS('myformname.removeCls('borderred';);

 

Regards

 

This code works:

UniSession.AddJS(WebForm.JSName + '.addCls(''borderred'');');
...
UniSession.AddJS(WebForm.JSName + '.removeCls(''borderred'');');

[Form border color change]

Hi,

How change form border color dynamically? 

 

I tried following, but not works   

UniSession.AddJS('myformname.addCls('borderred');');

...
UniSession.AddJS('myformname.removeCls('borderred';');

 

Regards

[ServerModule.LoadingMessage]

If you mean loading animation -  this is UniServerModule.Loading Message property.

 

 

 

 

 

[ServerModule.LoadingMessage]

Sorry, but I can't found "Loading..." box.

Maybe you mean "Please wait..." box?
If so, this is YourComponentName.ScreenMask.Message property.

[UniRadiogroup multi column]

Hi rullomare,

 

Very useful, thanks!

 

Regards

 

[UniRadiogroup multi column]

Thanks!

Solution for version 0.93 it would be desirable too.

 

Regards

[Demo desktop revisited]

Tried to add "FULL SCREEN MODE" using js but does not go!  If someone can help ...

See js code in   uniServerModule CustomMeta  (https://xparkmedia.com/blog/enter-fullscreen-mode-javascript/)

 

Maybe it helps http://forums.unigui.com/index.php?/topic/964-how-can-display-full-screen-browser-like-pressed-f11/?hl=full+screen

 

Regards

[Demo desktop revisited]

Thanks for sharing!

[Simple Desktop]

Demo update for UniGUI version 0.94 build 1013 (main post see http://forums.unigui.com/index.php?/topic/2909-simple-desktop/?p=14108)

Desktop3.zip

[unidygraphs]

Thanks!

[WebCmd: Start a command line / console app in Browser - interactive]

Good sample. Thanks!

[Icon combobox]

First post has been modified

 

Успехов

Regards

Thanks! 

 

[Icon combobox]

Hi!

Sorry, I did not understand how to insert icons into the iconcombo.

Any sample, please.

 

Regards.