Class TsDirectoryEdit (unit sToolsEdit)

Inherits from

TsFileDirEdit

Constructors


constructor Create(AOwner: TComponent);

TsDirectoryEdit


Functions

destructor Destroy;


procedure ButtonClick;


function GetDefaultBitmap(var DestroyNeeded: Boolean): TBitmap;


procedure ReceptFileDir(const AFileName: string);


function GetDialogOptions: TBrowseInfoOptionSet;


function GetDialogTitle: string;


function GetFolder: TSHFolders;


function IsCustomTitle: Boolean;


procedure SetDialogOptions( Value: TBrowseInfoOptionSet);


procedure SetDialogTitle(Value: String);


procedure SetFolder( Value: TSHFolders);


Properties

property AutoSelect :


property BorderStyle :


property ButtonHint :


property ButtonShowHint :


property CharCase :


property ClickKey :


property Color :


property Ctl3D :


property DefaultDraw :


property DialogOptions : TBrowseInfoOptionSet


property DialogTitle : string


property DisabledFont :


property DragCursor :


property DragMode :


property Enabled :


property Flat :


property Folder : TSHFolders


property Font :


property Glyph :


property GlyphKind :


property GlyphsNumber :


property InitialDir : string


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property Path :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


Events

event OnChange :


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

FDialog : TsBrowseFolderDialog;


FInitialDir : string;



Constructors


constructor Create(AOwner: TComponent);

TsDirectoryEdit


Functions


destructor Destroy;


procedure ButtonClick;


function GetDefaultBitmap(var DestroyNeeded: Boolean): TBitmap;


procedure ReceptFileDir(const AFileName: string);


function GetDialogOptions: TBrowseInfoOptionSet;


function GetDialogTitle: string;


function GetFolder: TSHFolders;


function IsCustomTitle: Boolean;


procedure SetDialogOptions( Value: TBrowseInfoOptionSet);


procedure SetDialogTitle(Value: String);


procedure SetFolder( Value: TSHFolders);


Properties


property AutoSelect :


property BorderStyle :


property ButtonHint :


property ButtonShowHint :


property CharCase :


property ClickKey :


property Color :


property Ctl3D :


property DefaultDraw :


property DialogOptions : TBrowseInfoOptionSet


property DialogTitle : string


property DisabledFont :


property DragCursor :


property DragMode :


property Enabled :


property Flat :


property Folder : TSHFolders


property Font :


property Glyph :


property GlyphKind :


property GlyphsNumber :


property InitialDir : string


property ParentColor :


property ParentCtl3D :


property ParentFont :


property ParentShowHint :


property Path :


property PopupMenu :


property ReadOnly :


property ShowHint :


property TabOrder :


property TabStop :


property Visible :


Events


event OnChange :


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnEnter :


event OnExit :


event OnKeyDown :


event OnKeyPress :


event OnKeyUp :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


FDialog : TsBrowseFolderDialog;


FInitialDir : string;