Index: fsplitter.lfm
===================================================================
--- fsplitter.lfm	(revision 4107)
+++ fsplitter.lfm	(working copy)
@@ -9,6 +9,8 @@
   VertScrollBar.Range = 227
   ActiveControl = cmbxSize
   AutoSize = True
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsDialog
   Caption = 'Splitter'
   ChildSizing.LeftRightSpacing = 6
   ChildSizing.TopBottomSpacing = 6
@@ -210,8 +212,8 @@
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = btnCancel
     Left = 316
-    Height = 32
-    Top = 163
+    Height = 31
+    Top = 165
     Width = 75
     Anchors = [akRight, akBottom]
     BorderSpacing.Bottom = 6
@@ -227,8 +229,8 @@
     AnchorSideBottom.Control = grbxSize
     AnchorSideBottom.Side = asrBottom
     Left = 316
-    Height = 32
-    Top = 201
+    Height = 31
+    Top = 202
     Width = 75
     Anchors = [akLeft, akBottom]
     BorderSpacing.Left = 10
Index: fsplitter.pas
===================================================================
--- fsplitter.pas	(revision 4107)
+++ fsplitter.pas	(working copy)
@@ -180,7 +180,7 @@
 var
   sDir: string;
 begin
-  if SelectDirectory(rsSplitSelDir, '', sDir) then
+  if SelectDirectory(rsSplitSelDir, edDirTarget.Text, sDir) then
   // Select directory:
   // must change on linux!!!
   begin