Class Tsmdlg (unit Smdialog)

Inherits from

TForm

Constructors



Functions

procedure cancelClick(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure PaintBox1Paint(Sender: TObject);


procedure SendMailMailInfo(Sender: TObject; info: SendMailInfo;addinfo: String);


procedure TimerTimer(Sender: TObject);

Sendmail dialog form code

procedure MailDone(Sender: TObject);


procedure StartUp(var Msg: TMsg);


Properties

Events

Variables

cancel : TButton;


counter : TLabel;


PaintBox1 : TPaintBox;


Panel1 : TPanel;


SendMail : SendMail;


Status : TLabel;


Timer : TTimer;


c1 : TColor;


c2 : TColor;


FDemo : Boolean;


OnMailInfo : TSendMailInfoEvent;


OnNextMessage : TNotifyEvent;


tattach : string;


tcancel : string;


tconnected : string;


tconnecting : string;


toi : word;


trecpt : string;


tsend : string;


UpdateInfoCallBack : TUpdateCallbackProc;


done : Longint;


todo : Longint;



Constructors


Functions


procedure cancelClick(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure PaintBox1Paint(Sender: TObject);


procedure SendMailMailInfo(Sender: TObject; info: SendMailInfo;addinfo: String);


procedure TimerTimer(Sender: TObject);

Sendmail dialog form code


procedure MailDone(Sender: TObject);


procedure StartUp(var Msg: TMsg);


Properties


Events


Variables


cancel : TButton;


counter : TLabel;


PaintBox1 : TPaintBox;


Panel1 : TPanel;


SendMail : SendMail;


Status : TLabel;


Timer : TTimer;


c1 : TColor;


c2 : TColor;


FDemo : Boolean;


OnMailInfo : TSendMailInfoEvent;


OnNextMessage : TNotifyEvent;


tattach : string;


tcancel : string;


tconnected : string;


tconnecting : string;


toi : word;


trecpt : string;


tsend : string;


UpdateInfoCallBack : TUpdateCallbackProc;


done : Longint;


todo : Longint;