TBeCbMailServerConfigFrame
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
CODE
//##############################################################################
//##############################################################################
// 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
- TBeCbCustomConfigFrame
- TBeCbMailAccountConfigFrame
- TBeCbAvailableMailAccountConfigFrame
- TBeCbOutlookSyncAccountConfigFrame
- TBeCbAvailableOutlookSyncAccountConfigFrame