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

1 files changed, 10 insertions, 8 deletions

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;