Class TBrowseForFolder (unit foldbrws)

Inherits from

TComponent

Constructors


constructor Create( anOwner :TComponent );

Public declarations


Functions

destructor Destroy;


function Execute :Boolean;


procedure SetFunction(tF:TFNBFFCallBack);


procedure SetLParam(Param:LParam);


procedure SetRoot(Root:PItemIdList);


procedure DefineProperties( Filer :TFiler );

Protected declarations

function GetFlags :TBrowseFlags;


function GetOperFlag( F :Cardinal ) :Boolean;


procedure ReadData( Reader :TReader );

Private declarations

procedure SetFlags( Value :TBrowseFlags );


procedure SetOperFlag( F :Cardinal; V :Boolean );


procedure WriteData( Writer :TWriter );


Properties

property DisplayName : String

Published declarations

property Flags : TBrowseFlags


property FolderName : String


property Root : TBrowseLocation


property Title : String


Events

Variables

FBrowseInfo : TBrowseInfo;


FDisplayName : String;


FFolderName : String;


FORoot : TBrowseLocation;


FRoot : PItemIDList;


FTitle : String;



Constructors


constructor Create( anOwner :TComponent );

Public declarations


Functions


destructor Destroy;


function Execute :Boolean;


procedure SetFunction(tF:TFNBFFCallBack);


procedure SetLParam(Param:LParam);


procedure SetRoot(Root:PItemIdList);


procedure DefineProperties( Filer :TFiler );

Protected declarations


function GetFlags :TBrowseFlags;


function GetOperFlag( F :Cardinal ) :Boolean;


procedure ReadData( Reader :TReader );

Private declarations


procedure SetFlags( Value :TBrowseFlags );


procedure SetOperFlag( F :Cardinal; V :Boolean );


procedure WriteData( Writer :TWriter );


Properties


property DisplayName : String

Published declarations


property Flags : TBrowseFlags


property FolderName : String


property Root : TBrowseLocation


property Title : String


Events


Variables


FBrowseInfo : TBrowseInfo;


FDisplayName : String;


FFolderName : String;


FORoot : TBrowseLocation;


FRoot : PItemIDList;


FTitle : String;