| Class TNMailBox (unit NMailBox) |
TComponent
| Constructors |
constructor Create(Parent: TComponent);| Functions |
procedure AddMail;
procedure Compress;
procedure CreateMailBox(name: string);
procedure DeleteMail;
procedure EmptyMailbox(num: integer);
procedure LoadMail;
function MailboxFile(i: integer): string;
function MailboxName(i: integer): string;
function RegisterNotify(Control: TMailboxViewerControl;MailboxName: MBName): Boolean;
procedure TransferTo(name: string);
procedure UnregisterNotify(Control: TMailboxViewerControl);
procedure UpdateFlag(c: char);
destructor Destroy;
procedure InitIndex;
procedure Notify(MB: MBName;Event: TMailboxNotification;Item: integer);
procedure SetCMBName(name: string);
procedure SetCMBNumber(number: integer);
procedure SetDirectory(directory: string);
procedure SetMail(s: TStrings);
procedure SetMailBoxes(s: TStrings);
procedure SetMsgNum(n: integer);| Properties |
property CurrentMailBoxMessages : integer
property CurrentMailBoxName : string
property CurrentMailBoxNumber : integer
property CurrentNMailBoxSize : Longint
property CurrentNMailBoxTrash : Longint
property MailBoxDirectory : string
property MailBoxes : TStrings
property Msg_AttachEnd : LongInt
property Msg_AttachStart : LongInt
property Msg_Date : string
property Msg_Flag : char
property Msg_From : string
property Msg_Lines : LongInt
property Msg_Number : integer
property Msg_Part : integer
property Msg_Size : LongInt
property Msg_Subject : string
property Msg_Text : TStrings
property Msg_To : string| Events |
| Variables |
a1 : LongInt;
a2 : LongInt;
CMBName : string;
CMBNum : integer;
DumInt : integer;
DumLint : LongInt;
FDate : string;
FDirectory : string;
FFlag : char;
FFrom : string;
FLines : LongInt;
FMail : TStrings;
FMailBoxes : TStrings;
FMBSize : LongInt;
FMBtrsize : LongInt;
FMsgCnt : integer;
FMsgNum : integer;
FPart : integer;
Fsize : LongInt;
FSub : string;
Fto : string;
Notifications : array[1..256] of TMBVNotifications;| Constructors |
constructor Create(Parent: TComponent);| Functions |
procedure AddMail;
procedure Compress;
procedure CreateMailBox(name: string);
procedure DeleteMail;
procedure EmptyMailbox(num: integer);
procedure LoadMail;
function MailboxFile(i: integer): string;
function MailboxName(i: integer): string;
function RegisterNotify(Control: TMailboxViewerControl;MailboxName: MBName): Boolean;notification functions. use at your own risk, intended for NMailboxViewer component
MailboxViewerControl notification functions
procedure TransferTo(name: string);
procedure UnregisterNotify(Control: TMailboxViewerControl);
procedure UpdateFlag(c: char);
destructor Destroy;
procedure InitIndex;
procedure Notify(MB: MBName;Event: TMailboxNotification;Item: integer);
procedure SetCMBName(name: string);
procedure SetCMBNumber(number: integer);msgcnt
procedure SetDirectory(directory: string);End Notifications
procedure SetMail(s: TStrings);
procedure SetMailBoxes(s: TStrings);
procedure SetMsgNum(n: integer);| Properties |
property CurrentMailBoxMessages : integer
property CurrentMailBoxName : string
property CurrentMailBoxNumber : integer
property CurrentNMailBoxSize : Longint
property CurrentNMailBoxTrash : Longint
property MailBoxDirectory : string
property MailBoxes : TStrings
property Msg_AttachEnd : LongInt
property Msg_AttachStart : LongInt
property Msg_Date : string
property Msg_Flag : char
property Msg_From : string
property Msg_Lines : LongInt
property Msg_Number : integer
property Msg_Part : integer
property Msg_Size : LongInt
property Msg_Subject : string
property Msg_Text : TStrings
property Msg_To : string| Events |
| Variables |
a1 : LongInt;
a2 : LongInt;
CMBName : string;
CMBNum : integer;
DumInt : integer;
DumLint : LongInt;
FDate : string;
FDirectory : string;
FFlag : char;
FFrom : string;
FLines : LongInt;
FMail : TStrings;
FMailBoxes : TStrings;
FMBSize : LongInt;
FMBtrsize : LongInt;
FMsgCnt : integer;
FMsgNum : integer;
FPart : integer;
Fsize : LongInt;
FSub : string;
Fto : string;
Notifications : array[1..256] of TMBVNotifications;Notifications