Skip to main content
Skip table of contents

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




JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.