Jons Desktop system lacks on one small thing. You get confused by the buttons if you have more than a bunch of icons. The attached unit has a slim side menu which tries to solve that issue.

The usage is quite simple:

var FToolbar := TQTXSideMenuList.Create( self, procedure (Toolbar: TQTXSideMenuList)
      begin
        Toolbar.RightMenu := true;
        Toolbar.Add(false, 'fa-chart-simple', 'Auswertungen', nil);
        Toolbar.Add(false, 'fa-tv', 'Alle Sender', nil);
        Toolbar.Add(false, 'fa-cube', 'Paketübersicht', nil);
        Toolbar.Add(false, 'fa-home', 'Haushaltsverwaltung', nil);

        Toolbar.Add(false, 'fa-user-group', 'Gruppenverwaltung', nil);
        Toolbar.Add(false, 'fa-globe', 'Netzwerke verwalten', nil);
        Toolbar.Add(false, 'fa-cogs', ' Portal-Benutzerverwaltung', nil);
        Toolbar.Add(false, 'fa-house-signal', 'Aktive Verbindungen', nil);

        Toolbar.Add(false, 'fa-users', 'Kundenaktivitäten', nil);
        Toolbar.Add(false, 'fa-film', 'Apps verwalten', nil);
        Toolbar.Add(false, 'fa-info', 'Änderungsprotokoll', nil);
        Toolbar.Add(false, 'fa-newspaper', 'Nachrichtenverwaltung', nil);

        Toolbar.Add(true, 'fa-power-off', 'Abmelden', nil);
      end);