TBeCbMailServerConfigFrame

//##############################################################################
//##############################################################################
// 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,