Class TfrmMail (unit MailForm) |
Inherits from
TForm
procedure BtnAttachClick(Sender: TObject);
procedure btnCCClick(Sender: TObject);
procedure btnCheckNamesClick(Sender: TObject);
procedure btnDeleteAttachClick(Sender: TObject);
procedure btnRecipClick(Sender: TObject);
btnSend.
procedure btnSendClick(Sender: TObject);
procedure chkAcknowledgeClick(Sender: TObject);
-------------------------------------------------------------------------
procedure Font1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
-------------------------------------------------------------------------
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure lvAttachmentsClick(Sender: TObject);
procedure lvAttachmentsExit(Sender: TObject);
procedure pnlVSplitMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Set the minimum positions and sizes
procedure PopupMenu1Popup(Sender: TObject);
-------------------------------------------------------------------------
procedure SpeedButton1Click(Sender: TObject);
procedure txtRecipientEnter(Sender: TObject);
-------------------------------------------------------------------------
procedure txtRecipientExit(Sender: TObject);
procedure ErrorMsg(S: string);
Private declarations
procedure LookupRecipients;
function MailLogon: boolean;
procedure MaximizeFix(var Msg: TWMGETMINMAXINFO);
procedure ParseRecipients(Recipients: string; List: TStrings);
-------------------------------------------------------------------------
procedure ResetMailForm;
function UnParseRecipients(List: TStrings): string;
BtnAttach : TSpeedButton;
btnCC : TButton;
btnCheckNames : TSpeedButton;
btnDeleteAttach : TSpeedButton;
btnRecip : TButton;
btnSend : TSpeedButton;
chkAcknowledge : TCheckBox;
Copy1 : TMenuItem;
Cut1 : TMenuItem;
Email1 : TEmail;
Font1 : TMenuItem;
FontDialog1 : TFontDialog;
ImageList1 : TImageList;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
lvAttachments : TListView;
MessageText : TRichEdit;
N1 : TMenuItem;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
Panel2 : TPanel;
Paste1 : TMenuItem;
pbxInfo : TPaintBox;
PnlInfo : TPanel;
PnlToolbar : TPanel;
pnlVSplit : TPanel;
PopupMenu1 : TPopupMenu;
SpeedButton1 : TSpeedButton;
txtCC : TEdit;
txtRecipient : TEdit;
txtSubject : TEdit;
procedure BtnAttachClick(Sender: TObject);
procedure btnCCClick(Sender: TObject);
procedure btnCheckNamesClick(Sender: TObject);
procedure btnDeleteAttachClick(Sender: TObject);
procedure btnRecipClick(Sender: TObject);
btnSend.Enabled := (txtRecipient.Text <> EmptyStr) or (txtCC.Text <> EmptyStr);
procedure btnSendClick(Sender: TObject);
procedure chkAcknowledgeClick(Sender: TObject);
-------------------------------------------------------------------------
procedure Font1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
-------------------------------------------------------------------------
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure lvAttachmentsClick(Sender: TObject);
procedure lvAttachmentsExit(Sender: TObject);
procedure pnlVSplitMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Set the minimum positions and sizes
procedure PopupMenu1Popup(Sender: TObject);
-------------------------------------------------------------------------
procedure SpeedButton1Click(Sender: TObject);
procedure txtRecipientEnter(Sender: TObject);
-------------------------------------------------------------------------
procedure txtRecipientExit(Sender: TObject);
procedure ErrorMsg(S: string);
Private declarations
procedure LookupRecipients;
function MailLogon: boolean;
procedure MaximizeFix(var Msg: TWMGETMINMAXINFO);
procedure ParseRecipients(Recipients: string; List: TStrings);
-------------------------------------------------------------------------
procedure ResetMailForm;
function UnParseRecipients(List: TStrings): string;
BtnAttach : TSpeedButton;
btnCC : TButton;
btnCheckNames : TSpeedButton;
btnDeleteAttach : TSpeedButton;
btnRecip : TButton;
btnSend : TSpeedButton;
chkAcknowledge : TCheckBox;
Copy1 : TMenuItem;
Cut1 : TMenuItem;
Email1 : TEmail;
Font1 : TMenuItem;
FontDialog1 : TFontDialog;
ImageList1 : TImageList;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
lvAttachments : TListView;
MessageText : TRichEdit;
N1 : TMenuItem;
OpenDialog1 : TOpenDialog;
Panel1 : TPanel;
Panel2 : TPanel;
Paste1 : TMenuItem;
pbxInfo : TPaintBox;
PnlInfo : TPanel;
PnlToolbar : TPanel;
pnlVSplit : TPanel;
PopupMenu1 : TPopupMenu;
SpeedButton1 : TSpeedButton;
txtCC : TEdit;
txtRecipient : TEdit;
txtSubject : TEdit;