Class TViewMailForm (unit Viewmail)

Inherits from

TForm

Constructors



Functions

procedure AttachListDrawItem(Control: TWinControl; Index: Integer; R: TRect; State: TOwnerDrawState);


procedure FormActivate(Sender: TObject);


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


procedure FormShow(Sender: TObject);


procedure MemoLink(Sender: TObject; link: String);

not used in this program

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


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


procedure ViewBtnClick(Sender: TObject);


procedure DeleteMessage;

finally quote the text

procedure NextMessage;

remove headers

procedure PreviousMessage;


procedure Reply;


procedure TransferMessage;


procedure MBVClose(var Msg: TMessage);


procedure MBVParent(var Msg: TMessage);


procedure MBVSetMessage(var Msg: TMessage);


procedure MBVUpdateInfo(var Msg: TMessage);


Properties

Events

Variables

AttachList : TListBox;


AttachmentPanel : TPanel;


Date : TLabel;


From : TLabel;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Memo : TStringsViewer;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


SaveBtn : TBitBtn;


Subject : TLabel;


ViewBtn : TBitBtn;


MailboxNumber : integer;


MessageNumber : integer;


ParentViewer : NMailboxViewer;


Resizing : Boolean;


StartY : integer;



Constructors


Functions


procedure AttachListDrawItem(Control: TWinControl; Index: Integer; R: TRect; State: TOwnerDrawState);


procedure FormActivate(Sender: TObject);


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


procedure FormShow(Sender: TObject);


procedure MemoLink(Sender: TObject; link: String);

not used in this program


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


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


procedure ViewBtnClick(Sender: TObject);


procedure DeleteMessage;

finally quote the text


procedure NextMessage;

remove headers


procedure PreviousMessage;


procedure Reply;


procedure TransferMessage;


procedure MBVClose(var Msg: TMessage);


procedure MBVParent(var Msg: TMessage);


procedure MBVSetMessage(var Msg: TMessage);


procedure MBVUpdateInfo(var Msg: TMessage);


Properties


Events


Variables


AttachList : TListBox;


AttachmentPanel : TPanel;


Date : TLabel;


From : TLabel;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Memo : TStringsViewer;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


SaveBtn : TBitBtn;


Subject : TLabel;


ViewBtn : TBitBtn;


MailboxNumber : integer;


MessageNumber : integer;


ParentViewer : NMailboxViewer;


Resizing : Boolean;


StartY : integer;