From d7b0d653bd0e9120db1fe92cd36d1db128c447d2 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Tue, 9 Oct 2012 20:10:07 +0000
Subject: compilation fix for ImportTXT
git-svn-id: http://svn.miranda-ng.org/main/trunk@1850 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
plugins/ImportTXT/FileDlgs.pas | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
(limited to 'plugins/ImportTXT')
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
--
cgit v1.2.3