Last fixes for release 1.8.0.

fredvs · Jul 11, 2018 · a1e0002 · a1e0002
1 parent 54763a3
commit a1e0002
Show file tree

Hide file tree

Showing 8 changed files with 601 additions and 467 deletions.
diff --git a/src/filelistform.pas b/src/filelistform.pas
@@ -90,7 +90,7 @@ procedure tfilelistfo.formcreated(const Sender: TObject);
    if trim(historyfn.Value) = '' then
    begin
     hasinit := 1;
-    historyfn.Value := ordir + 'sound' + directoryseparator + 'song'  ;
+    historyfn.Value := ordir + 'sound' + directoryseparator + 'song' + directoryseparator  ;
     onchangpath(Sender);
     end;
 

diff --git a/src/main.mfm b/src/main.mfm
@@ -17,9 +17,9 @@ object mainfo: tmainfo
   bounds_y = 91
   bounds_cx = 454
   bounds_cy = 139
-  bounds_cxmin = 442
+  bounds_cxmin = 454
   bounds_cymin = 40
-  bounds_cxmax = 454
+  bounds_cxmax = 468
   bounds_cymax = 700
   container.frame.framei_left = 0
   container.frame.framei_top = 0