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: Select all text when open "Make directory" dialog

Browse source
This commit is contained in:
Alexander Koblov 2011-08-20 05:21:39 +00:00
commit 6965bb1aaa
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/fmkdir.pas
View file

@ -61,8 +61,11 @@ begin
}
// with TfrmMkDir.Create(Application) do
try
If (sPath <> '..') then cbMkDir.Text := sPath
else cbMkDir.Text := ''; // передаем имя из фокуса панели в строку ввода, если не фокус не в '..'
if (sPath <> '..') then
cbMkDir.Text := sPath
else
cbMkDir.Text := ''; // передаем имя из фокуса панели в строку ввода, если не фокус не в '..'
cbMkDir.SelectAll;
Result:= (ShowModal = mrOK); // отображение окна
sPath:=cbMkDir.Text;
{