TBeCbMailServerConfigFrame
Oberflächen-Konfigurationsbereich für E-Mail-Server.
|
Eigenschaften
|
|
|
CbAccountDesc_Visibility:N |
Sichtbarkeit der Bezeichnung |
|
CbConnectionType_Visibility:N |
Sichtbarkeit der Verbindungs-Typs |
|
CbHostname_Visibility:N |
Sichtbarkeit des Servers |
|
CbEncryptionMode_Visibility:N |
Sichtbarkeit der Verschlüsselung |
|
CbPort_Visibility:N |
Sichtbarkeit des Ports |
|
CbTimeout_Visibility:N |
Sichtbarkeit des Timeout |
|
Funktionen und Methoden
|
|
|
(siehe TBeCbCustomConfigFrame) |
|
Beispiel
//##############################################################################
//##############################################################################
// Beschreibung: Codeblock-Beispiel für die Klasse TBeCbMailAccountConfigFrame
//##############################################################################
//##############################################################################
| m_oForm, m_oFrame, m_nSettingsType |
//##############################################################################
//##############################################################################
// Konstanten
//##############################################################################
//##############################################################################
m_nSettingsType := 5200,
//##############################################################################
//##############################################################################
// Funktionen
//##############################################################################
//##############################################################################
//******************************************************************************
// Setzen der Standardeinstellungen
// @Result: null
//******************************************************************************
function SetDefaults()
// Sichtbarkeiten der Oberflächen Controls
m_oFrame.CbConnectionType_Visibility := 1,
m_oFrame.CbHostname_Visibility := 1,
m_oFrame.CbEncryptionMode_Visibility := 2,
m_oFrame.CbPort_Visibility := 2,
m_oFrame.CbTimeout_Visibility := 2,
end,
//##############################################################################
//##############################################################################
// Oberflächen-Funktionen
//##############################################################################
//##############################################################################
//******************************************************************************
// LoadGUI lädt sämtliche Komponenten die für die Oberfläche benötigt werden
// @Result: null
//******************************************************************************
function LoadGUI()
| oQuery |
startseq
m_oForm := CreateObject('TFormEx'),
m_oFrame := CreateObject('TBeCbMailServerConfigFrame',,
m_oForm, m_oForm),
m_oForm.Height := 600,
m_oForm.Width := 500,
m_oFrame.Align := alClient,
// Gültiges E-Mail-Konto ermitteln
if not (Eof(oQuery) and Bof(oQuery)) then
m_oFrame.CbKey1 := oQuery:KEY1,
endif,
m_oFrame.CbInitFrame(),
onerror
DestroyObject(m_oForm),
SetError('Fehler beim Laden der Oberfläche' + crlf + GetErrorText()),
stopseq
end,
//##############################################################################
//##############################################################################
// Hauptprogramm
//##############################################################################
//##############################################################################
startseq
LoadGUI(),
SetDefaults(),
ShowModal(m_oForm),
onerror
MessageDlg('Fehler im Programm ' + ProgName() + GetErrorText(), mtError),
stopseq,
Weitere Verknüpfungen