Folder Browser Dialog (PRIM_APPL.ICommonDialogFolderBrowse)
Windows folder browser dialog
Ancestors - None
Use the FolderBrowser dialog to enable the end-user to select a folder.
Using the Folder Browser.
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Theme(#SYS_THEME<2015Blue>) Clientwidth(551) Clientheight(301) Left(165) Top(204) Width(567)
Define_Com Class(#PRIM_PHBN) Name(#Pick) Caption('Pick a Folder') Displayposition(1) Left(16) Parent(#COM_OWNER) Tabposition(1) Top(16) Width(129)
Evtroutine Handling(#Pick.Click)
#Com_owner.PickaFile
Endroutine
Mthroutine Name(PickaFile)
Define_Com Class(#Prim_appl.ICommonDialogFolderBrowse) Name(#FileOpen) Reference(*Dynamic)
#FileOpen <= #sys_appln.CreateFolderBrowseDialog
If (#FileOpen.Show)
#Com_owner.Caption := #FileOpen.Folder
Endif
Endroutine
End_Com
| Name | Description |
|---|---|
| BrowseForComputers | Browse for computers |
| BrowseForPrinters | Browse for printers |
| Description | Caption to be shown in the title bar |
| Folder | The current folder shown |
| FolderImage | Folder Image |
| FolderName | Current Folder Name |
| ReturnOnlyFSDir | Only show File System folders |
| Name | Description |
|---|---|
| Show | Show as a modal dialog
FormOwner, OKPressed |
LANSA Version 15, April 2020