Автор | Сообщение |
|
| постоянный участник
|
Пост N: 1092
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.02.10 04:01. Заголовок: Как вызвать стандартное окно "Выбор директории" с показом файлов ?
Как вызвать стандартное окно "Выбор директории" с показом файлов определенного типа ? На Дельфи нашел: sDestFolder:="c:\MyLastSelectedFolder" bSelFolder:=SelectDirectory('Select folder with *.FR3', '', sDestFolder); результат в sDestFolder А как на МиниГуи ? GetFolder ( [<cTitle>],[<initial folder>] )--> cSelectedFolderName - имеет 2 параметра по справке....
|
|
|
Ответов - 2
[только новые]
|
|
|
| |
Пост N: 40
Зарегистрирован: 12.07.06
|
|
Отправлено: 08.02.10 05:54. Заголовок: вот пример выбора zi..
вот пример выбора 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,))
|
|
|
|
| постоянный участник
|
Пост N: 1094
Зарегистрирован: 12.09.06
|
|
Отправлено: 08.02.10 06:41. Заголовок: alex_II пишет: Getf..
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 ) Только она показывает все файлы.... А мне нужно, только с одним расширением....
|
|
|
|