Fixed opening files in Open dialog.

2015-08-05 19:39:54 +03:00
parent efa1081a60
commit c901976e1a
8 changed files with 15 additions and 11 deletions
--- a/usettings.pas
+++ b/usettings.pas
@@ -64,8 +64,8 @@ const

 { TSettings }

-procedure TSettings.AddToSendTo(Delete: Boolean);
 {$IFDEF windows}
+procedure TSettings.AddToSendTo(Delete: Boolean);
 var
  path: string;
 begin
@@ -76,12 +76,8 @@ begin
  end
  else
    FCreateSendtoShortcut;
-{$ELSE}
-begin
-{$ENDIF}
 end;

-{$IFDEF windows}
 function TSettings.FGetSendtoShortcutPath: WideString;
 var
  PIDL: PItemIDList;