Apresenta uma janela para seleção de arquivos da estação de trabalho em uso pelo SmartClient. Na minha opinião ficou ótimo a tela, finalmente evoluiram! Antes: Depois:
Nome | Tipo | Descrição |
cMascara | Carácter | Indica a máscara de arquivos, ex: ret := TFileDialog("All files (*) | All Text files (*.txt)", ... |
cTitulo | Carácter | Indica o título da janela. Caso o parâmetro não seja especificado, o título padrão será apresentado. |
nParam3 | Numérico | Compatibilidade |
cDirInicial | Carácter | Indica o diretório inicial. |
lSalvar | Lógico | Se .T. (true) indica que é um "save dialog" se .F. (false) indica que é um "open dialog". |
nOpcoes | Numérico | Caso parâmetro não seja preenchido será possível selecionar apenas um arquivo, ex: ret := TFileDialog("All(*)",'Arquivos',0,"/tmp",.F.)Caso utilizado o parâmetro GETF_MULTISELECT será possível selecionar múltiplos arquivos, ex: ret := TFileDialog("All(*)",'Arquivos',0,"/tmp",.F.,GETF_MULTISELECT)Caso utilizado o parâmetro GETF_RETDIRECTORY será possível selecionar apenas diretórios, ex: ret := TFileDialog("All(*)",'Arquivos',0,"/tmp",.F.,GETF_RETDIRECTORY) |
#include "Totvs.ch" User Function Seleciona() local cTmp := getTempPath() local cArquivo := tFileDialog( "Todos os arquivo (*.*) | Arquivos texto (*.txt) ", 'Selecao de Arquivos',, tmp, .F., GETF_MULTISELECT ) MsgInfo(cArquivo) ReturnAtenção: