| Class NMailboxViewer (unit NMailBox) |
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure DeleteSelectedMessages;
procedure EnableMessageViewerManager(MessageViewerFormClass: TFormClass);
function IndexToMessageNumber(n: integer): integer;
procedure NextMessage(h: Thandle);
procedure PreviousMessage(h: THandle);
procedure SetHeaderSize(x,s: integer);
procedure TransferSelectedMessages(TargetMailboxNumber: integer);
procedure ViewSelectedMessages;
destructor Destroy;
procedure Loaded;
procedure LoadItems;
procedure Notify(Event: TMailboxNotification; Item: integer);
function FindFormWithMessage(msg: integer): THandle;
function GetABM: TBitmap;
function GetDragEnabled: Boolean;
function GetDropEnabled: Boolean;
function GetIndex: integer;
function GetQBM: TBitmap;
function GetSBM: TBitmap;
function GetSections: TStrings;
function GetSelected(Index: integer):Boolean;
function GetUBM: TBitmap;
function GetVBM: TBitmap;
procedure HeaderSized(Sender: TObject;s,x:integer);
procedure HMouseDown(Sender:TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure HMouseUp(Sender:TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ListboxClick(Sender: TObject);
procedure ListboxDblClick(Sender: TObject);
procedure Refresh;
procedure SetABM(b: TBitmap);
procedure SetDragEnabled(s: Boolean);
procedure SetDropEnabled(s: Boolean);
procedure SetFont(f: TFont);
procedure SetIndex(i: integer);
procedure SetMB(mbx: TNMailbox);
procedure SetMBNum(n: integer);
procedure SetNewTop(b: Boolean);
procedure SetQBM(b: TBitmap);
procedure SetSBM(b: TBitmap);
procedure SetSections(s: TStrings);
procedure SetUBM(b: TBitmap);
procedure SetVBM(b: TBitmap);| Properties |
property Align :
property AttachmentBitmap : TBitmap
property DragEnabled : Boolean
property DropEnabled : Boolean
property Font : TFont
property ItemIndex : integer
property Mailbox : TNMailbox
property MailboxNumber : Integer
property NewMessageTop : Boolean
property QueuedBitmap : TBitmap
property ReadBitmap : TBitmap
property RepliedBitmap : TBitmap
property SectionNames : TStrings
property UnreadBitmap : TBitmap
property NumMessages : integer
property Selected : Boolean| Events |
event OnChange : TNotifyEvent
event OnMessageClick : TMBClickEvent
event OnMessageDoubleClick : TMBClickEvent| Variables |
CMBName : MBName;
DDEnabled : Boolean;
FFont : TFont;
FMain : TForm;
FNewTop : Boolean;
FNumMessages : integer;
FOnChange : TNotifyEvent;
FOnClick : TMBClickEvent;
FOnDblCLick : TMBClickEvent;
Header : TMBHeader;
Initialized : Boolean;
integer : array[1..10000] of TMailboxViewerRecordPtr;
ListBox : TMBCustomListBox;
MB : TNMailbox;
MBNum : integer;
MinW : array[1..5] of integer;
SX : integer;
SY : integer;
VFClass : TFormClass;
Viewers : array[1..256] of TViewerInfo;
WMgr : Boolean;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure DeleteSelectedMessages;
procedure EnableMessageViewerManager(MessageViewerFormClass: TFormClass);
function IndexToMessageNumber(n: integer): integer;
procedure NextMessage(h: Thandle);
procedure PreviousMessage(h: THandle);last message
procedure SetHeaderSize(x,s: integer);
procedure TransferSelectedMessages(TargetMailboxNumber: integer);
procedure ViewSelectedMessages;
destructor Destroy;
procedure Loaded;
procedure LoadItems;
procedure Notify(Event: TMailboxNotification; Item: integer);
function FindFormWithMessage(msg: integer): THandle;first message
function GetABM: TBitmap;
function GetDragEnabled: Boolean;
function GetDropEnabled: Boolean;close all open viewmail forms
function GetIndex: integer;
function GetQBM: TBitmap;
function GetSBM: TBitmap;
function GetSections: TStrings;
function GetSelected(Index: integer):Boolean;
function GetUBM: TBitmap;
function GetVBM: TBitmap;
procedure HeaderSized(Sender: TObject;s,x:integer);
procedure HMouseDown(Sender:TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure HMouseUp(Sender:TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ListboxClick(Sender: TObject);
procedure ListboxDblClick(Sender: TObject);find Main form
procedure Refresh;
procedure SetABM(b: TBitmap);
procedure SetDragEnabled(s: Boolean);
procedure SetDropEnabled(s: Boolean);
procedure SetFont(f: TFont);
procedure SetIndex(i: integer);
procedure SetMB(mbx: TNMailbox);
procedure SetMBNum(n: integer);
procedure SetNewTop(b: Boolean);
procedure SetQBM(b: TBitmap);
procedure SetSBM(b: TBitmap);
procedure SetSections(s: TStrings);
procedure SetUBM(b: TBitmap);
procedure SetVBM(b: TBitmap);| Properties |
property Align :
property AttachmentBitmap : TBitmap
property DragEnabled : Boolean
property DropEnabled : Boolean
property Font : TFont
property ItemIndex : integer
property Mailbox : TNMailbox
property MailboxNumber : Integer
property NewMessageTop : Boolean
property QueuedBitmap : TBitmap
property ReadBitmap : TBitmap
property RepliedBitmap : TBitmap
property SectionNames : TStrings
property UnreadBitmap : TBitmap
property NumMessages : integer
property Selected : Boolean| Events |
event OnChange : TNotifyEvent
event OnMessageClick : TMBClickEvent
event OnMessageDoubleClick : TMBClickEvent| Variables |
CMBName : MBName;
DDEnabled : Boolean;
FFont : TFont;
FMain : TForm;
FNewTop : Boolean;
FNumMessages : integer;
FOnChange : TNotifyEvent;
FOnClick : TMBClickEvent;
FOnDblCLick : TMBClickEvent;
Header : TMBHeader;
Initialized : Boolean;
integer : array[1..10000] of TMailboxViewerRecordPtr;
ListBox : TMBCustomListBox;
MB : TNMailbox;
MBNum : integer;
MinW : array[1..5] of integer;
SX : integer;
SY : integer;
VFClass : TFormClass;
Viewers : array[1..256] of TViewerInfo;
WMgr : Boolean;