Class TsBrowseFolderDialog (unit sBrowseFolder)

Inherits from

TsCustomDialog

TBrowseFolder

Constructors


constructor Create(AOwner: TComponent);

TsBrowseFolderDialog} //--------------------------------------------------------------------------------------------------------//


Functions

procedure EnableOK( const Value: Boolean);

--------------------------------------------------------------------------------------------------------// {Use this function to enable/disable the OK button of the browse dialog from within one of the TsBrowseFolderDialog event handlers

function Execute: Boolean;

Use this function to show the browse dialog.

procedure SetSelectionPath( const Path: String);

--------------------------------------------------------------------------------------------------------// {Use this function to set the selection of the browse dialog manually from within one of the TsBrowseFolderDialog event handlers

procedure SetSelectionPIDL( const ItemIDList: PItemIDList);

--------------------------------------------------------------------------------------------------------// {Use this function to set the selection of the browse dialog manually from within one of the TsBrowseFolderDialog event handlers

procedure SetStatusText( const StatusText: String);

--------------------------------------------------------------------------------------------------------// {Use this function to set the status text of the browse dialog from within one of the TsBrowseFolderDialog event handlers

function GetDirectory: String;

--------------------------------------------------------------------------------------------------------//

procedure SetDirectory(Value: String);

--------------------------------------------------------------------------------------------------------//

procedure SetFolder( Value: TSHFolders);

--------------------------------------------------------------------------------------------------------//

Properties

property CallbackParam : LPARAM


property Directory : String


property Folder : TSHFolders


property Options : TBrowseInfoOptionSet


property ShowFullPath : Boolean


property Title : String


property BrowseDialogShowing : Boolean


property DisplayName : String


property hwnd : HWND


property ImageIndex : Integer


Events

event OnInitialized : TBrowserInitializedEvent


event OnSelectionChanged : TSelectionChangedEvent


Variables

FBrowseDialogShowing : Boolean;


FCallbackParam : LPARAM;


FDirectory : String;


FDisplayName : String;


FFolder : TSHFolders;


Fhwnd : HWND;


FImageIndex : Integer;


FOnInitialized : TBrowserInitializedEvent;


FOnSelectionChanged : TSelectionChangedEvent;


FOptions : TBrowseInfoOptionSet;


FShowPathInStatusArea : Boolean;


FTitle : String;



Constructors


constructor Create(AOwner: TComponent);

TsBrowseFolderDialog} //--------------------------------------------------------------------------------------------------------//


Functions


procedure EnableOK( const Value: Boolean);

--------------------------------------------------------------------------------------------------------// {Use this function to enable/disable the OK button of the browse dialog from within one of the TsBrowseFolderDialog event handlers


function Execute: Boolean;

Use this function to show the browse dialog. While a browse dialog is showing, the program cannot show another. If for some reason you try to show another dialog while one is already showing, this function returns an EBrowseDialogAlreadyShowing exception. This shouldn't be a problem unless you try to show the dialog from several independant threads


procedure SetSelectionPath( const Path: String);

--------------------------------------------------------------------------------------------------------// {Use this function to set the selection of the browse dialog manually from within one of the TsBrowseFolderDialog event handlers


procedure SetSelectionPIDL( const ItemIDList: PItemIDList);

--------------------------------------------------------------------------------------------------------// {Use this function to set the selection of the browse dialog manually from within one of the TsBrowseFolderDialog event handlers


procedure SetStatusText( const StatusText: String);

--------------------------------------------------------------------------------------------------------// {Use this function to set the status text of the browse dialog from within one of the TsBrowseFolderDialog event handlers


function GetDirectory: String;

--------------------------------------------------------------------------------------------------------//


procedure SetDirectory(Value: String);

--------------------------------------------------------------------------------------------------------//


procedure SetFolder( Value: TSHFolders);

--------------------------------------------------------------------------------------------------------//


Properties


property CallbackParam : LPARAM


property Directory : String


property Folder : TSHFolders


property Options : TBrowseInfoOptionSet


property ShowFullPath : Boolean


property Title : String


property BrowseDialogShowing : Boolean


property DisplayName : String


property hwnd : HWND


property ImageIndex : Integer


Events


event OnInitialized : TBrowserInitializedEvent


event OnSelectionChanged : TSelectionChangedEvent


Variables


FBrowseDialogShowing : Boolean;


FCallbackParam : LPARAM;


FDirectory : String;


FDisplayName : String;


FFolder : TSHFolders;


Fhwnd : HWND;


FImageIndex : Integer;


FOnInitialized : TBrowserInitializedEvent;


FOnSelectionChanged : TSelectionChangedEvent;


FOptions : TBrowseInfoOptionSet;


FShowPathInStatusArea : Boolean;


FTitle : String;