mainform.h

关于书籍《Borland c++Builder工程实践》的源代码

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Menus.hpp>
#include <NMpop3.hpp>
#include <Psock.hpp>
#include <ToolWin.hpp>
#include <Registry.hpp>
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published:	// IDE-managed Components
    TToolBar *ToolBar1;
    TSpeedButton *SPeedButton2;
    TSpeedButton *SPeedButton3;
    TSpeedButton *SPeedButton4;
    TSpeedButton *SPeedButton5;
    TNMPOP3 *NMPOP31;
    TPanel *Panel2;
    TMemo *txtBody;
    TStatusBar *StatusBar1;
    TPanel *Panel1;
    TSplitter *Splitter1;
    TSpeedButton *SpeedButton1;
    TListView *lstmail;
    TSpeedButton *SPeedButton6;
    TMainMenu *MainMenu1;
    TMenuItem *mnuFile;
    TMenuItem *mnuSetting;
    TMenuItem *N1;
    TMenuItem *mnuExit;
    TMenuItem *mnuMail;
    TMenuItem *mnuWrite;
    TMenuItem *mnuReceive;
    TMenuItem *mnuDelete;
    TMenuItem *mnuReply;
    TMenuItem *mnuForward;
    void __fastcall mnuSettingClick(TObject *Sender);
    void __fastcall mnuExitClick(TObject *Sender);
    void __fastcall mnuDeleteMailClick(TObject *Sender);
    void __fastcall mnuWriteClick(TObject *Sender);
    void __fastcall mnuReceiveClick(TObject *Sender);
    void __fastcall NMPOP31Connect(TObject *Sender);
    void __fastcall NMPOP31ConnectionFailed(TObject *Sender);
    void __fastcall NMPOP31ConnectionRequired(bool &Handled);
    void __fastcall NMPOP31DecodeEnd(TObject *Sender);
    void __fastcall NMPOP31DecodeStart(AnsiString &FileName);
    void __fastcall NMPOP31Disconnect(TObject *Sender);
    void __fastcall NMPOP31Failure(TObject *Sender);
    void __fastcall NMPOP31HostResolved(TComponent *Sender);
    void __fastcall NMPOP31InvalidHost(bool &Handled);
    void __fastcall NMPOP31Status(TComponent *Sender, AnsiString Status);
    void __fastcall NMPOP31Success(TObject *Sender);
    void __fastcall mnuReplyClick(TObject *Sender);
    void __fastcall mnuForwardClick(TObject *Sender);
    void __fastcall FormShow(TObject *Sender);
    void __fastcall lstmailChange(TObject *Sender, TListItem *Item,
          TItemChange Change);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    
   
private:	// User declarations
public:		// User declarations
    __fastcall TMainForm(TComponent* Owner);
    void __fastcall  GetMail(int i);
    TRegistry *Registry;
    TListItem *NewItems;
    int FindRealtMailNo(int i);    //搜索真实邮件编号
    int MailLeft;                  //剩余邮件总数
    DynamicArray<int>MailList;     //记录邮件删除标记 0为已删除
    
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif