Unit WCustDlg

Renamed from CustDlg.pas 6/14/1998 Paul Rice to avoid conflicts with others' work. Custom Open Dialog Component -- Williams { Most of this code is taken from the standard open dialog component

Classes

TCustomOpenDialog -

Functions

Register -

Types

TCommandNotifyEvent
TFileEditStyle
TOpenNotifyEvent
TOpenOption
TOpenOptions
TShareNotifyEvent

Constants

Variables


Functions


procedure Register;


Types


TCommandNotifyEvent=procedure(Sender : TObject; Wnd,Parent : HWnd; cmd : Integer) of Object

TFileEditStyle = (fsEdit, fsComboBox);

TOpenNotifyEvent = procedure(Sender : TObject; Wnd,Parent : HWnd; nfy : POpenFilename ) of Object

TOpenOption = (ofReadOnly, ofOverwritePrompt, ofHideReadOnly,
    ofNoChangeDir, ofShowHelp, ofNoValidate, ofAllowMultiSelect,
    ofExtensionDifferent, ofPathMustExist, ofFileMustExist, ofCreatePrompt,
    ofShareAware, ofNoReadOnlyReturn, ofNoTestFileCreate, ofNoNetworkButton,
    ofNoLongNames, ofOldStyleDialog, ofNoDereferenceLinks);

TOpenOptions = set of TOpenOption

TShareNotifyEvent = procedure(Sender : TObject; Wnd,Parent : HWnd; nfy : POpenFilename; fn : String) of Object

Constants


Variables