Class TExpNoteForm (unit expnoteu)

Inherits from

TTrayIconForm

Constructors



Functions

procedure BtnAboutClick(Sender: TObject);

If the key is non-empty and doesn't represent an existing file or directory, it's NOT OK!

procedure BtnFindNoteClick(Sender: TObject);


procedure BtnHelpClick(Sender: TObject);


procedure BtnPruneClick(Sender: TObject);


procedure FindDialog1Find(Sender: TObject);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

Allow shutdown if Windows is shutting down

procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

By observation, this bit indicates the state of the Explorer View Option "Display the full MS-DOS path.

procedure FormShow(Sender: TObject);


procedure Open1Click(Sender: TObject);

left edge

procedure Timer1Timer(Sender: TObject);


procedure wmEndSession(VAR Msg: TWMEndSession);

Register so we get notified of ACTUAL end-session

procedure wmQueryEndSession(VAR Msg: TWMQueryEndSession);

Don't terminate on close; just minimize

procedure wmSyscommand(VAR Msg: TWMSysCommand);


Properties

Events

Variables

About1 : TMenuItem;


BtnAbout : TSpeedButton;


BtnFind : TSpeedButton;


BtnHelp : TSpeedButton;


BtnPrune : TSpeedButton;


FindDialog1 : TFindDialog;


Image1 : TImage;


Open1 : TMenuItem;


PopupMenu1 : TPopupMenu;


Timer1 : TTimer;


fFoundItem : String;


fFoundNote : String;


fNoteToFind : String;


holdMap : THandle;

Private declarations

ReallyClose : Boolean;



Constructors


Functions


procedure BtnAboutClick(Sender: TObject);

If the key is non-empty and doesn't represent an existing file or directory, it's NOT OK!


procedure BtnFindNoteClick(Sender: TObject);


procedure BtnHelpClick(Sender: TObject);


procedure BtnPruneClick(Sender: TObject);


procedure FindDialog1Find(Sender: TObject);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

Allow shutdown if Windows is shutting down


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

By observation, this bit indicates the state of the Explorer View Option "Display the full MS-DOS path..."


procedure FormShow(Sender: TObject);


procedure Open1Click(Sender: TObject);

left edge


procedure Timer1Timer(Sender: TObject);


procedure wmEndSession(VAR Msg: TWMEndSession);

Register so we get notified of ACTUAL end-session


procedure wmQueryEndSession(VAR Msg: TWMQueryEndSession);

Don't terminate on close; just minimize


procedure wmSyscommand(VAR Msg: TWMSysCommand);


Properties


Events


Variables


About1 : TMenuItem;


BtnAbout : TSpeedButton;


BtnFind : TSpeedButton;


BtnHelp : TSpeedButton;


BtnPrune : TSpeedButton;


FindDialog1 : TFindDialog;


Image1 : TImage;


Open1 : TMenuItem;


PopupMenu1 : TPopupMenu;


Timer1 : TTimer;


fFoundItem : String;


fFoundNote : String;


fNoteToFind : String;


holdMap : THandle;

Private declarations


ReallyClose : Boolean;