Class TfrmPOP3 (unit POP3Main)

Inherits from

TForm

Constructors



Functions

procedure btnBrowseClick(Sender: TObject);


procedure btnBrowseOtherClick(Sender: TObject);


procedure btnCheckClick(Sender: TObject);

no mails

procedure btnDeleteClick(Sender: TObject);


procedure btnUpdateClick(Sender: TObject);


procedure chkPlaySoundClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);

show priority info

procedure FormDestroy(Sender: TObject);


procedure imgIcon1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure lstHeadersClick(Sender: TObject);

POP3Status.

procedure POP1DocOutput(Sender: TObject; const DocOutput: DocOutput);

if (POP1.

procedure POP1Error(Sender: TObject; Number: Smallint; var Description: WideString; Scode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; var CancelDisplay: WordBool);

deletion

procedure POP1ProtocolStateChanged(Sender: TObject; ProtocolState: Smallint);


procedure POP1RefreshMessageCount(Sender: TObject; Number: Integer);


procedure POP1StateChanged(Sender: TObject; State: Smallint);

StatusBar.

procedure popAbout1Click(Sender: TObject);

nid.

procedure popChkMailClick(Sender: TObject);


procedure popCloseClick(Sender: TObject);


procedure popEnableClick(Sender: TObject);

POP1.

procedure popLaunchClick(Sender: TObject);

WinExec('C:\Program.

procedure popPreferencesClick(Sender: TObject);


procedure popTaskAboutClick(Sender: TObject);


procedure popTaskCheckeMailClick(Sender: TObject);


procedure popTaskCloseClick(Sender: TObject);


procedure popTaskDisableClick(Sender: TObject);


procedure popTaskLaunchMailClick(Sender: TObject);


procedure popTaskOptionsClick(Sender: TObject);


procedure radBeepClick(Sender: TObject);


procedure radWaveFileClick(Sender: TObject);


procedure ReadUserInfo(Sender: TObject);

icon Id

procedure Timer1Timer(Sender: TObject);


procedure tmrImageTimer(Sender: TObject);

change menu to enabled

procedure UpdateUserInfo(Sender: TObject) ;


procedure IconTray(var Msg: TMessage);

Public declarations

Properties

Events

Variables

Bevel1 : TBevel;


Bevel2 : TBevel;


Bevel3 : TBevel;


Bevel4 : TBevel;


Bevel5 : TBevel;


Bevel6 : TBevel;


Bevel7 : TBevel;


Bevel8 : TBevel;


btnBrowse : TButton;


btnBrowseOther : TButton;


btnCheck : TButton;


btnDelete : TBitBtn;


btnUpdate : TButton;


chkConfirmDelete : TCheckBox;


chkDate : TCheckBox;


chkDisplayAnimation : TCheckBox;


chkFrom : TCheckBox;


chkPlaySound : TCheckBox;


chkPriority : TCheckBox;


chkSavePassword : TCheckBox;


edtFrequency : TEdit;


edtOther : TEdit;


edtPassword : TEdit;


edtServerName : TEdit;


edtUser : TEdit;


edtWaveFileName : TEdit;


imgAnimate : TImage;


imgIcon1 : TImage;


imgIcon2 : TImage;


imgIcon3 : TImage;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


lblLastChecked : TLabel;


lblMessages : TLabel;


lstHeaders : TListBox;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


OpenWaveFileDialog : TOpenDialog;


PageControl : TPageControl;


PaintBox1 : TPaintBox;


POP1 : TPOP;


POP3PopupMenu : TPopupMenu;


POP3StatusBar : TStatusBar;


popAbout1 : TMenuItem;


popChkMail : TMenuItem;


popClose : TMenuItem;


popEnable : TMenuItem;


popLaunch : TMenuItem;


popPreferences : TMenuItem;


popTaskAbout : TMenuItem;


popTaskCheckeMail : TMenuItem;


popTaskClose : TMenuItem;


popTaskDisable : TMenuItem;


popTaskLaunchMail : TMenuItem;


popTaskOptions : TMenuItem;


PopupMenuTask : TPopupMenu;


radBeep : TRadioButton;


radWaveFile : TRadioButton;


tabAbout : TTabSheet;


tabApplications : TTabSheet;


tabHeaders : TTabSheet;


tabNotify : TTabSheet;


tabServerInfo : TTabSheet;


Timer1 : TTimer;


tmrImage : TTimer;


udFrequency : TUpDown;


xLabel : TLabel;


yLabel : TLabel;


bAskForPassword : Boolean ;


DelMsg : Integer ;


FMessageCount : Integer ;


HelperApplicationPath : String ;


iMsgDnloaded : Integer ;


IniFile : TIniFile;

Private declarations

iNumMessages : Integer ;


nid : TNotifyIconData ;


POPError : Boolean ;



Constructors


Functions


procedure btnBrowseClick(Sender: TObject);


procedure btnBrowseOtherClick(Sender: TObject);


procedure btnCheckClick(Sender: TObject);

no mails


procedure btnDeleteClick(Sender: TObject);


procedure btnUpdateClick(Sender: TObject);


procedure chkPlaySoundClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);

show priority info


procedure FormDestroy(Sender: TObject);


procedure imgIcon1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure lstHeadersClick(Sender: TObject);

POP3Status.Update ;


procedure POP1DocOutput(Sender: TObject; const DocOutput: DocOutput);

if (POP1.State = prcConnected) and (POP1.ProtocolState = popTransaction) then


procedure POP1Error(Sender: TObject; Number: Smallint; var Description: WideString; Scode: Integer; const Source, HelpFile: WideString; HelpContext: Integer; var CancelDisplay: WordBool);

deletion


procedure POP1ProtocolStateChanged(Sender: TObject; ProtocolState: Smallint);


procedure POP1RefreshMessageCount(Sender: TObject; Number: Integer);


procedure POP1StateChanged(Sender: TObject; State: Smallint);

StatusBar.Update ;


procedure popAbout1Click(Sender: TObject);

nid.szTip:= 'YAP Disabled ;


procedure popChkMailClick(Sender: TObject);


procedure popCloseClick(Sender: TObject);


procedure popEnableClick(Sender: TObject);

POP1.Delete(iMsgNum) ;


procedure popLaunchClick(Sender: TObject);

WinExec('C:\Program.exe', SW_SHOWNORMAL);


procedure popPreferencesClick(Sender: TObject);


procedure popTaskAboutClick(Sender: TObject);


procedure popTaskCheckeMailClick(Sender: TObject);


procedure popTaskCloseClick(Sender: TObject);


procedure popTaskDisableClick(Sender: TObject);


procedure popTaskLaunchMailClick(Sender: TObject);


procedure popTaskOptionsClick(Sender: TObject);


procedure radBeepClick(Sender: TObject);


procedure radWaveFileClick(Sender: TObject);


procedure ReadUserInfo(Sender: TObject);

icon Id


procedure Timer1Timer(Sender: TObject);


procedure tmrImageTimer(Sender: TObject);

change menu to enabled


procedure UpdateUserInfo(Sender: TObject) ;


procedure IconTray(var Msg: TMessage);

Public declarations


Properties


Events


Variables


Bevel1 : TBevel;


Bevel2 : TBevel;


Bevel3 : TBevel;


Bevel4 : TBevel;


Bevel5 : TBevel;


Bevel6 : TBevel;


Bevel7 : TBevel;


Bevel8 : TBevel;


btnBrowse : TButton;


btnBrowseOther : TButton;


btnCheck : TButton;


btnDelete : TBitBtn;


btnUpdate : TButton;


chkConfirmDelete : TCheckBox;


chkDate : TCheckBox;


chkDisplayAnimation : TCheckBox;


chkFrom : TCheckBox;


chkPlaySound : TCheckBox;


chkPriority : TCheckBox;


chkSavePassword : TCheckBox;


edtFrequency : TEdit;


edtOther : TEdit;


edtPassword : TEdit;


edtServerName : TEdit;


edtUser : TEdit;


edtWaveFileName : TEdit;


imgAnimate : TImage;


imgIcon1 : TImage;


imgIcon2 : TImage;


imgIcon3 : TImage;


Label1 : TLabel;


Label10 : TLabel;


Label11 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


Label9 : TLabel;


lblLastChecked : TLabel;


lblMessages : TLabel;


lstHeaders : TListBox;


N1 : TMenuItem;


N2 : TMenuItem;


N3 : TMenuItem;


N4 : TMenuItem;


OpenWaveFileDialog : TOpenDialog;


PageControl : TPageControl;


PaintBox1 : TPaintBox;


POP1 : TPOP;


POP3PopupMenu : TPopupMenu;


POP3StatusBar : TStatusBar;


popAbout1 : TMenuItem;


popChkMail : TMenuItem;


popClose : TMenuItem;


popEnable : TMenuItem;


popLaunch : TMenuItem;


popPreferences : TMenuItem;


popTaskAbout : TMenuItem;


popTaskCheckeMail : TMenuItem;


popTaskClose : TMenuItem;


popTaskDisable : TMenuItem;


popTaskLaunchMail : TMenuItem;


popTaskOptions : TMenuItem;


PopupMenuTask : TPopupMenu;


radBeep : TRadioButton;


radWaveFile : TRadioButton;


tabAbout : TTabSheet;


tabApplications : TTabSheet;


tabHeaders : TTabSheet;


tabNotify : TTabSheet;


tabServerInfo : TTabSheet;


Timer1 : TTimer;


tmrImage : TTimer;


udFrequency : TUpDown;


xLabel : TLabel;


yLabel : TLabel;


bAskForPassword : Boolean ;


DelMsg : Integer ;


FMessageCount : Integer ;


HelperApplicationPath : String ;


iMsgDnloaded : Integer ;


IniFile : TIniFile;

Private declarations


iNumMessages : Integer ;


nid : TNotifyIconData ;


POPError : Boolean ;