diff options
Diffstat (limited to 'plugins/ImportTXT/FileDlgs.pas')
-rw-r--r-- | plugins/ImportTXT/FileDlgs.pas | 18 |
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;
|