Changeset 141 for trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

Timestamp:

Sep 10, 2022, 12:42:38 AM (2 years ago)

Author:

chronos

Message:

• Fixed: Wrap main menu on small screens.

File:

• trunk/Modules/ZdechovNET/UModuleZdechovNET.pas (modified) (4 diffs)

trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

@@ -39 +39 @@
     Raw: Boolean;
     constructor Create(Owner: TComponent); override;
-    destructor Destroy; override;
     procedure Start; override;
     procedure Stop; override;
     procedure Install; override;
     procedure Uninstall; override;
-    procedure Upgrade; override;
   end;
 
@@ -65 +63 @@
   Dependencies.Add('User');
   Dependencies.Add('Base');
-end;
-
-destructor TModuleZdechovNET.Destroy;
-begin
-  inherited;
 end;
 
@@ -262 +255 @@
 end;
 
-procedure TModuleZdechovNET.Upgrade;
-begin
-  inherited;
-end;
-
 procedure TModuleZdechovNET.Footer(Session: TWebSession);
 var
@@ -334 +322 @@
           '<li>' + MakeLink('Profil', NavigationLink('/uzivatel/profil/')) + '</li>';
       end;
-    end else Text := Text + '</ul><ul class="MenuItem2">&nbsp;';
+    end else Text := Text + '</ul><ul class="MenuItem2">';
     Text := Text + '</ul></div>';
   end;