Class TfrmMail (unit MailForm)

Inherits from

TForm

Constructors



Functions

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;


Properties

Events

Variables

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;



Constructors


Functions


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;


Properties


Events


Variables


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;