compilation fix for ImportTXT

git-svn-id: http://svn.miranda-ng.org/main/trunk@1850 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 4 insertions, 4 deletions

diff --git a/plugins/ImportTXT/FileDlgs.pas b/plugins/ImportTXT/FileDlgs.pas
index 59e65895b1..e05edf5fb5 100644
--- a/plugins/ImportTXT/FileDlgs.pas
+++ b/plugins/ImportTXT/FileDlgs.pas
@@ -13,7 +13,7 @@ uses shlobj, activex, SysUtils, CommDlg;
 

 function OpenDialogExecute(hDlg:hWnd; flg:cardinal; var nFO:integer; const DefExt:string):WideString;  //Диалог открытия файла

 var

-  OpenFilename:TOpenFilenameW;

+  OpenFilename:OpenFilenameW;

   TempFilename:WideString;

   Temp1,Temp2:WideString;

   res:bool;

@@ -36,7 +36,7 @@ begin
    lpstrTitle:=PWideChar(Temp2);

    Flags:=flg or OFN_EXPLORER or OFN_ENABLESIZING or OFN_PATHMUSTEXIST or OFN_FILEMUSTEXIST or OFN_NOCHANGEDIR;

   end;

-  res:=GetOpenFileNameW(OpenFileName);

+  res:=GetOpenFileNameW(@OpenFileName);

   if res then

   begin

     Result:=TempFilename;

@@ -65,7 +65,7 @@ end;
 function SelectDirectory(Caption:PWideChar;var Directory:PWideChar;

          Parent:HWND=0;newstyle:bool=false):Boolean;

 var

-  BrowseInfo:TBrowseInfoW;

+  BrowseInfo:BrowseInfoW;

   Buffer:array [0..MAX_PATH-1] of WideChar;

   ItemIDList:PItemIDList;

   ShellMalloc:IMalloc;

@@ -85,7 +85,7 @@ begin
       if CoInitializeEx(nil,COINIT_APARTMENTTHREADED)<>RPC_E_CHANGED_MODE then

         BrowseInfo.ulFlags:=BrowseInfo.ulFlags or BIF_NEWDIALOGSTYLE;

     try

-      ItemIDList:=ShBrowseForFolderW(BrowseInfo);

+      ItemIDList:=ShBrowseForFolderW(@BrowseInfo);

       Result:=ItemIDList<>nil;

       if Result then

       begin