Changeset 141 for trunk/Packages

Timestamp:

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

Author:

chronos

Message:

• Fixed: Wrap main menu on small screens.

File:

• trunk/Packages/Common/UCommon.pas (modified) (1 diff)

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;