Jump to content
uniGUI Discussion Forums

Marlon Nardi

uniGUI Subscriber
  • Content Count

  • Joined

  • Last visited

  • Days Won


Marlon Nardi last won the day on October 28

Marlon Nardi had the most liked content!

Community Reputation

77 Excellent

About Marlon Nardi

Contact Methods

  • MSN
  • Website URL
  • Skype

Profile Information

  • Gender
  • Location
    Nova Mutum - MT - Brasil

Recent Profile Visitors

1227 profile views
  1. Marlon Nardi

    RAD Studio 10.3

    what ? uniGUI has not yet been released to Rad Studio 10.3, how are you having this problem?
  2. Marlon Nardi

    Rad Studio 10.3 avaliable

    Site: https://www.embarcadero.com/ Overview: https://www.embarcadero.com/products/rad-studio Community: https://www.embarcadero.com/products/delphi/starter Wiki: http://docwiki.embarcadero.com/RADStudio/Rio/en/Main_Page News: http://docwiki.embarcadero.com/RADStudio/Rio/en/What's_New YouTube:
  3. Marlon Nardi

    Rad Studio 10.3 - IDE Clean

    I really liked the new IDE https://community.embarcadero.com/blogs/entry/new-in-10-3-ide-ui-improvements-in-the-main-window
  4. Marlon Nardi

    ClientInfo on Mobile Form

    class function TSistema.GetNavegador: string; var C : TUniClientInfos; begin C := UniApplication.ClientInfo; if ciIE in C then Result := 'IE' else if ciFireFox in C then Result := 'FireFox' else if ciOpera in C then Result := 'Opera' else if ciSafari in C then Result := 'Safari' else if ciChrome in C then Result := 'Chrome' else Result := 'Other'; //(or and) you can use it with userAgent and add browsers according to your need .. if UniSession.UserAgent <> EmptyStr then begin if (Pos('chrome',LowerCase(UniSession.UserAgent))> 0) then Result := 'Chrome'; if (Pos('chrome',LowerCase(UniSession.UserAgent))> 0) and (Pos('opr',LowerCase(UniSession.UserAgent))> 0) then Result := 'Opera'; if (Pos('chrome',LowerCase(UniSession.UserAgent))> 0) and (Pos('edge',LowerCase(UniSession.UserAgent))> 0) then Result := 'Edge'; end; end;
  5. Marlon Nardi

    Campos da Unigrid Reajustar conforme tamanho da tela

    Na grid marque a opção ForceFit, você também pode ajustar para cada coluna informando o Flex, 0, 1, 2 etc..
  6. Marlon Nardi


    Corrigido, favor entrar no site https://store.falconsistemas.com.br e baixar novamente. -- Fixed, please enter the site https://store.falconsistemas.com.br and download again.
  7. Marlon Nardi


    Hello rtalmeida I checked it here, and actually this component is not working for this 1480 version, the previous versions are ok. I'll fix it and make it available for everyone to download this fix. when it is corrected, I will communicate again. -- Olá rtalmeida, eu verifiquei aqui, e realmente este componente não está funcionando para esta versão 1480, as versões anteriores estão ok. Vou corrigir e disponibilizar para todos baixarem esse fix. quando estiver corrigido, volto a comunicar. https://store.falconsistemas.com.br
  8. Marlon Nardi

    how to reduce fonts on unitreemenu

    .x-treelist-nav .x-treelist-item-text { font-size: 14px !important; } or update the margin .x-treelist-nav .x-treelist-item-text { margin-right: 0px !important; }
  9. Marlon Nardi

    Update to UniGUI Add-on Theme Pack 1

    Congratulations GerhardV! You are doing a great job, this greatly enriches our uniGUI community.
  10. Marlon Nardi

    How do I get all the active sections in Hyper Server?

    Farshad, If it were possible , my dream code would be this one. A mega challenge, however, would benefit many projects . var HS: THyperServer; S : TUniGUISessions; U : TUniGUISession; vI, vII: Integer; MyClassOrVar: TMyClassOrVar; begin if NodeZero then begin HS := THyperServer.Create; HS.Lock; try for vI := 0 to HS.Nodes.Count -1 do begin S := HS.Nodes[vI].SessionManager.Sessions; for vII := 0 to S.SessionList.Count - 1 do begin U := S.SessionList[vII]; MyClassOrVar.Add(TUniMainModule(U.UniMainModule).MyClassOrVar.Name); end; end; finally HS.UnLock; HS.Free; end; end; end;
  11. Marlon Nardi

    How do I get all the active sections in Hyper Server?

    Exactly, I did just to get an idea of what it would be like, the CDS would be the DB (example)
  12. Marlon Nardi

    How do I get all the active sections in Hyper Server?

    Simple sample: procedure TUniMainModule.UniGUIMainModuleCreate(Sender: TObject); begin CDS.FileName := UniServerModule.StartPath + '\dados.dat'; CDS.CreateDataSet; CDS.LoadFromFile(CDS.FileName); CDS.Open; CDS.Insert; CDS.FieldByName('SessionID').AsString := UniSession.SessionId; CDS.FieldByName('IP').AsString := UniSession.RemoteIP;; CDS.Post; end; procedure TUniMainModule.UniGUIMainModuleDestroy(Sender: TObject); begin CDS.Locate('SessionID',UniSession.SessionId,[loCaseInsensitive]); CDS.First; while not CDS.Eof do CDS.Delete; end;
  13. Marlon Nardi

    How do I get all the active sections in Hyper Server?

    for now we have this. http://www.unigui.com/resources/online-documentation/developer-manual " Sessions Another important difference from classical model is that in classical model your application is able to access all available session objects while in HyperServer each Node can only access sessions which are created by that specific Node. Needless to say that each Node holds a set of sessions which are isolated from other Nodes. If you need to query all of the sessions then you need to use different methods such as saving session information in a database table. You can simply create a row in the table when session is created and remove it when session is freed. "
  14. Marlon Nardi

    fontawesome icon color

    Hi @hph download this example, it has the example you need. http://forums.unigui.com/index.php?/topic/10949-how-to-include-a-fontawesome-icon-in-unidbgrid/?p=57847
  15. Marlon Nardi

    How to include a FontAwesome Icon in UniDbgrid?

    HI Cristiano, I made this example for you, using FontAwesome, may help you. FontAwesome.rar