summaryrefslogtreecommitdiff
path: root/UCore.pas
diff options
context:
space:
mode:
Diffstat (limited to 'UCore.pas')
-rw-r--r--UCore.pas3
1 files changed, 3 insertions, 0 deletions
diff --git a/UCore.pas b/UCore.pas
index b69b055..416bd45 100644
--- a/UCore.pas
+++ b/UCore.pas
@@ -2186,6 +2186,8 @@ begin
Result := False;
try
AFSymlink := TFSymlink.Create(Application.MainForm);
+ AFSymLink.FileName := FileName;
+ AFSymLink.PossibleNewName := PossibleNewName;
AFSymlink.FromEntry.Text := StrToUTF8(FileName);
AFSymlink.ToEntry.Text := StrToUTF8(PossibleNewName);
AFSymlink.ToEntry.SetFocus;
@@ -2261,6 +2263,7 @@ begin
AFSymlink.FromEntry.Enabled := False;
AFSymlink.ToEntry.Text := StrToUTF8(Data^.LnkPointTo);
AFSymlink.ToEntry.SelectAll;
+ AFSymLink.RelativeCheckButton.Visible := False;
if AFSymlink.Run = mbOK then Result := HandleEditSymlink(UTF8ToStr(AFSymlink.FromEntry.Text), UTF8ToStr(AFSymlink.ToEntry.Text));
finally
AFSymlink.Free;