TBeCbMailServerConfigFrame
Eigenschaften
|
Eigenschaft |
Beschreibung |
|---|---|
|
Align:N |
|
|
AlignWithMargins:L |
|
|
Anchors:N |
|
|
AutoScroll:L |
|
|
AutoSize:L |
|
|
BiDiMode:N |
|
|
CbAccountDesc_Visibility:N |
Sichtbarkeit der Bezeichnung |
|
CbConnectionType_Visibility:N |
Sichtbarkeit der Verbindungs-Typs |
|
CbDefaultOAuthFlow_Visibility:N |
|
|
CbDefaultOAuth_Visibility:N |
|
|
CbEncryptionMode_Visibility:N |
Sichtbarkeit der Verschlüsselung |
|
CbHostname_Visibility:N |
Sichtbarkeit des Servers |
|
CbKey1:C |
|
|
CbKey2:C |
|
|
CbOAuth2_Visibility:N |
|
|
CbPort_Visibility:N |
Sichtbarkeit des Ports |
|
CbReadOnly:L |
|
|
CbTenant_Visibility:N |
|
|
CbTimeout_Visibility:N |
Sichtbarkeit des Timeout |
|
Color:N |
|
|
Constraints:O |
|
|
Ctl3D:L |
|
|
Cursor:N |
|
|
CustomHint:O |
|
|
DockSite:L |
|
|
DoubleBuffered:L |
|
|
DoubleBufferedMode:N |
|
|
DragCursor:N |
|
|
DragKind:N |
|
|
DragMode:N |
|
|
Enabled:L |
|
|
Font:O |
|
|
Height:N |
|
|
HelpContext:N |
|
|
HelpKeyword:C |
|
|
HelpType:N |
|
|
Hint:C |
|
|
HorzScrollBar:O |
|
|
Left:N |
|
|
Margins:O |
|
|
Name:C |
|
|
Padding:O |
|
|
ParentBackground:L |
|
|
ParentBiDiMode:L |
|
|
ParentColor:L |
|
|
ParentCtl3D:L |
|
|
ParentCustomHint:L |
|
|
ParentDoubleBuffered:L |
|
|
ParentFont:L |
|
|
ParentShowHint:L |
|
|
PopupMenu:O |
|
|
ShowHint:L |
|
|
StyleElements:N |
|
|
StyleName:C |
|
|
TabOrder:N |
|
|
TabStop:L |
|
|
Tag:N |
|
|
Top:N |
|
|
Touch:O |
|
|
VertScrollBar:O |
|
|
Visible:L |
|
|
Width:N |
|
Methoden
|
Methode |
Beschreibung |
|---|---|
|
CbInitFrame() |
|
|
CbBeginUpdate() |
|
|
CbEndUpdate() |
|
|
CbIsUpdate():L |
|
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,