Changeset 141

Timestamp:

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

Author:

chronos

Message:

• Fixed: Wrap main menu on small screens.

Location:

trunk

Files:

• Modules/ZdechovNET/UModuleZdechovNET.pas (modified) (4 diffs)
• Modules/ZdechovNET/UVoIPPage.pas (modified) (2 diffs)
• Packages/Common/UCommon.pas (modified) (1 diff)
• Style/Basic/Style.css (modified) (2 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;

trunk/Modules/ZdechovNET/UVoIPPage.pas

@@ -42 +42 @@
       ' A v rámci sítě a těch co mají v obci VoIP od stejného operátora dokonce zdarma. <br/>' +
       '<br/>' +
-      'Doporučujueme: <a href="http://www.odorik.cz/">VoIP Odorik</a>' +
+      'Doporučujueme: <a href="httpshttps://www.odorik.cz/ceny.htmlwww.odorik.cz/">VoIP Odorik</a>' +
       '<ul><li>Zřízení zdarma</li>' +
       '<li>Měsíční paušál: 0 Kč</li>' +
@@ -53 +53 @@
       '</ul>' +
       '<br/>' +
-      '<a href="http://www.odorik.cz/ceny.html">Ceník</a><br/>' +
+      '<a href="https://www.odorik.cz/ceny.html">Ceník</a><br/>' +
       '<br/>';
     end;

trunk/Packages/Common/UCommon.pas

@@ -321 +321 @@
   for I := 0 to List.Count - 1 do begin
     Result := Result + List[I];
-    if I > 0 then Result := Result + Separator;
+    if I < List.Count - 1 then Result := Result + Separator;
   end;
 end;

trunk/Style/Basic/Style.css

@@ -58 +58 @@
 .MenuItem
 {
-  float: left;
+  /*float: left;*/
   display: inline;
   padding: 0px 0px 0px 0px;
@@ -66 +66 @@
 .MenuItem li
 {
-  display: inline;
+  display: inline-block;
   padding: 0px 5px 0px 5px;
 }