| Class TViewMailForm (unit Viewmail) |
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);
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;
procedure NextMessage;
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;