Форум » GUI » Как вызвать стандартное окно "Выбор директории" с показом файлов ? » Ответить
Как вызвать стандартное окно "Выбор директории" с показом файлов ?
Andrey: Как вызвать стандартное окно "Выбор директории" с показом файлов определенного типа ? На Дельфи нашел: sDestFolder:="c:\MyLastSelectedFolder" bSelFolder:=SelectDirectory('Select folder with *.FR3', '', sDestFolder); результат в sDestFolder А как на МиниГуи ? GetFolder ( [<cTitle>],[<initial folder>] )--> cSelectedFolderName - имеет 2 параметра по справке....
Ответов - 2
alex_II: вот пример выбора zip-архива: @ 10,20 TEXTBOX TextBox_nameArch WIDTH 520 VALUE archName HEIGHT 26 ; ON CHANGE archName := Form_rest.TextBox_nameArch.Value @ 10,540 BUTTON Button_21 WIDTH 26 HEIGHT 26 ; PICTURE 'open16' ; ACTION (archName := Getfile({{'zip', nazFile+'*.zip'}}, ; 'Выберите архив', Path_Arch, .F., .T.), ; IF(!Empty(archName), Form_rest.TextBox_nameArch.Value := archName,))
Andrey: alex_II пишет: Getfile({{'zip', nazFile+'*.zip'}}, 'Выберите архив', Path_Arch, .F., .T.), Это я знаю !!! Мне нужно стандартное окно "Выбор директории" с маской файла !!! Нашел в \MiniGUI\SOURCE\h_dialogs.prg функцию: Function BrowseForFolder( nfolder, nflag ) // Contributed By Ryszard Rylko Return C_BrowseForFolder( NIL, NIL, nflag, nfolder, NIL ) Я в Си не силен, что туда передавать не знаю. Кто подскажет ? И еще нашел \MiniGUI\SAMPLES\Advanced\BrowseForFolder Только другую функцию, не совсем подходящую: Function BrowseForFolder( nfolder, nflag, cTitle, cInitPath, lCenter ) Return HB_BrowseForFolder( NIL, cTitle, nflag, nfolder, cInitPath, lCenter ) Только она показывает все файлы.... А мне нужно, только с одним расширением....
полная версия страницы