Klasse TFMailOptionen

Unit

uFMailoptionen

Deklaration

type TFMailOptionen = class(TForm)

Beschreibung

Hierarchie

• TForm
• TFMailOptionen

Übersicht

Felder

	EditName: TLabeledEdit;
	EditEmail: TLabeledEdit;
	EditPOP: TLabeledEdit;
	EditSMTP: TLabeledEdit;
	EditKennwort: TLabeledEdit;
	EditAnmeldename: TLabeledEdit;
	CBPopVorSMTP: TCheckBox;
	BtnTest: TButton;
	BtnOk: TButton;
	BtnAbbrechen: TButton;
	BtnHilfe: TButton;
	EditPOPPort: TLabeledEdit;
	EditSMTPPort: TLabeledEdit;
	SMTP: TIdSMTP;
	POP3: TIdPOP3;
	ThreadTestConnection: TJvThread;
	PanelUnten: TPanel;
	PageControlMail: TPageControl;
	TabVerbindung: TTabSheet;
	TabEinstellungen: TTabSheet;
	CBMailspeichern: TCheckBox;
	CBBlindkopie: TCheckBox;
	CBEmpfangen: TCheckBox;
	CBVerschluesseln: TCheckBox;
	GroupBox1: TGroupBox;
	RBtnKein: TRadioButton;
	RBtnSSL: TRadioButton;
	RBtnTLS: TRadioButton;

Methoden

	procedure BtnOkClick(Sender: TObject);
	procedure FormActivate(Sender: TObject);
	procedure BtnAbbrechenClick(Sender: TObject);
	procedure BtnTestClick(Sender: TObject);
	procedure BtnHilfeClick(Sender: TObject);
	procedure ThreadTestConnectionExecute(Sender: TObject; Params: Pointer);
	procedure ThreadTestConnectionBegin(Sender: TObject);
	procedure ThreadTestConnectionFinish(Sender: TObject);
	procedure CBMailspeichernClick(Sender: TObject);
	procedure RBtnKeinClick(Sender: TObject);
	procedure RBtnSSLClick(Sender: TObject);
	procedure RBtnTLSClick(Sender: TObject);
	procedure SetMaileinstellungen(var p_xmlMail : pMailOptionen);
	procedure SetProjektPfad(p_strPfad : string);
	function HasChanged : boolean;

Beschreibung

Felder

	EditName: TLabeledEdit;

	EditEmail: TLabeledEdit;

	EditPOP: TLabeledEdit;

	EditSMTP: TLabeledEdit;

	EditKennwort: TLabeledEdit;

	EditAnmeldename: TLabeledEdit;

	CBPopVorSMTP: TCheckBox;

	BtnTest: TButton;

	BtnOk: TButton;

	BtnAbbrechen: TButton;

	BtnHilfe: TButton;

	EditPOPPort: TLabeledEdit;

	EditSMTPPort: TLabeledEdit;

	SMTP: TIdSMTP;

	POP3: TIdPOP3;

	ThreadTestConnection: TJvThread;

	PanelUnten: TPanel;

	PageControlMail: TPageControl;

	TabVerbindung: TTabSheet;

	TabEinstellungen: TTabSheet;

	CBMailspeichern: TCheckBox;

	CBBlindkopie: TCheckBox;

	CBEmpfangen: TCheckBox;

	CBVerschluesseln: TCheckBox;

	GroupBox1: TGroupBox;

	RBtnKein: TRadioButton;

	RBtnSSL: TRadioButton;

	RBtnTLS: TRadioButton;

Methoden

	procedure BtnOkClick(Sender: TObject);

	procedure FormActivate(Sender: TObject);

	procedure BtnAbbrechenClick(Sender: TObject);

	procedure BtnTestClick(Sender: TObject);

	procedure BtnHilfeClick(Sender: TObject);

	procedure ThreadTestConnectionExecute(Sender: TObject; Params: Pointer);

	procedure ThreadTestConnectionBegin(Sender: TObject);

	procedure ThreadTestConnectionFinish(Sender: TObject);

	procedure CBMailspeichernClick(Sender: TObject);

	procedure RBtnKeinClick(Sender: TObject);

	procedure RBtnSSLClick(Sender: TObject);

	procedure RBtnTLSClick(Sender: TObject);

	procedure SetMaileinstellungen(var p_xmlMail : pMailOptionen);
Public-Deklarationen

	procedure SetProjektPfad(p_strPfad : string);

	function HasChanged : boolean;