From 8b8845c8e142c2e70bc0c2785ddf3a91ad3f84bd Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Tue, 3 Jul 2012 07:22:09 +0000
Subject: New core adaptation (Delphi 7 normal compilation) API headers update

git-svn-id: http://svn.miranda-ng.org/main/trunk@731 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/ImportTXT/FileDlgs.pas | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

(limited to 'plugins/ImportTXT/FileDlgs.pas')

diff --git a/plugins/ImportTXT/FileDlgs.pas b/plugins/ImportTXT/FileDlgs.pas
index 2257a7ab5e..59e65895b1 100644
--- a/plugins/ImportTXT/FileDlgs.pas
+++ b/plugins/ImportTXT/FileDlgs.pas
@@ -12,10 +12,11 @@ implementation
 uses shlobj, activex, SysUtils, CommDlg;
 
 function OpenDialogExecute(hDlg:hWnd; flg:cardinal; var nFO:integer; const DefExt:string):WideString;  //Диалог открытия файла
-var OpenFilename:TOpenFilenameW;
-    TempFilename:WideString;
-    Temp1,Temp2:WideString;
-    res:bool;
+var
+  OpenFilename:TOpenFilenameW;
+  TempFilename:WideString;
+  Temp1,Temp2:WideString;
+  res:bool;
 begin
  nFO:=0;
  FillChar(OpenFileName, SizeOf(OpenFileName), 0);
@@ -37,11 +38,12 @@ begin
   end;
   res:=GetOpenFileNameW(OpenFileName);
   if res then
-   begin
+  begin
     Result:=TempFilename;
     nFO:=OpenFilename.nFileOffset;
-   end
-    else Result:='';
+  end
+  else
+    Result:='';
 end;
 
 //***Awkward - author of this procedures************
@@ -106,7 +108,7 @@ var
   tpwc:PWideChar;
   tws:WideString;
 begin
- if SelectDirectory(PWideChar(TranslateWideString('Select folder for import...')),tpwc,hdlg,true) then
+ if SelectDirectory(TranslateW('Select folder for import...'),tpwc,hdlg,true) then
   begin
    result:=tpwc;
    result:=result+#0;
-- 
cgit v1.2.3