Class TExpNoteForm (unit expnoteu) |
Inherits from
TTrayIconForm
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);
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;
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);
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;