mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Some fixes for bug [2691575] VFS не пашет.

Browse source
This commit is contained in:
Alexander Koblov 2009-07-05 11:07:37 +00:00
commit c8d82c237a
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/uwfxmodule.pas
View file

@ -433,7 +433,7 @@ begin
RT_Password:
begin
sReq:= 'RT_Password';
Result:= InputQuery(sCustomTitle, 'Password request', sReturnedText);
Result:= InputQuery(sCustomTitle, 'Password request', True, sReturnedText);
end;
RT_Account:
begin
@ -448,7 +448,7 @@ begin
RT_PasswordFirewall:
begin
sReq:= 'RT_PasswordFirewall';
Result:= InputQuery(sCustomTitle, 'Firewall password request', sReturnedText);
Result:= InputQuery(sCustomTitle, 'Firewall password request', True, sReturnedText);
end;
RT_TargetDir:
begin
@ -478,7 +478,8 @@ begin
end;
if Result then
begin
StrPCopy(ReturnedText, Copy(sReturnedText, 1, MaxLen));
if ReturnedText <> nil then
StrPCopy(ReturnedText, Copy(sReturnedText, 1, MaxLen));
end;
DebugLn('MainRequestProc ('+IntToStr(PluginNr)+','+sReq+','+CustomTitle+','+CustomText+','+ReturnedText+')', BoolToStr(Result, True));
end;
@ -1051,4 +1052,4 @@ initialization
finalization
if Assigned(WFXModuleList) then
FreeAndNil(WFXModuleList);
end.
end.