Class NMailboxViewer (unit NMailBox)

Inherits from

TMailboxViewerControl

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;



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;