TBeInfoPanel

Panel Klasse zum Anzeigen von Informationen, Warnungen und Fehlern.

Die Textfarbe wird immer der Hintergrundfarbe entsprechend berechnet.

Eigenschaften

Eigenschaft	Beschreibung
Alignment:N	Ausrichtung des Infotextes
Anchors:N	Gibt an, woran sich der Seitenabstand des Controls nicht verändert wenn sich z.B. die Größe des Parents verändert
AutoSize:L	(default) true= Größe wird automatisch bestimmt. Selbst wählen der Größe nur möglich, wenn `AutoSize' auf false gesetzt ist.
BorderColor:N	Farbe der Umrandung; Wird automatisch gesetzt.
BorderWidth:N	Breite der Umrandung
Caption:C	Der angezeigte Text.
Color:N	Hintergrundfarbe des Panels; Wird automatisch gesetzt.
ColorMode:N	Auswahlmöglichkeit zwischen Vordefinierten Farbschemata: ipcmWarning= Panel erscheint in einem hellen Orange ipcmError= helles Rot ipcmOk= helles Grün (default) ipcmInfo= helles Beige
Font:C	Der Schriftgrad / -stil etc. wird automatisch der Hintergrundfarbe entsprechend gesetzt.
Padding:N	Innenabstand mit folgenden Submembern: left, right, top, bottom;
PanelHover:L	Wenn die Eigenschaft auf `true' gesetzt wurde, ist der Hover-Effekt auch bei nicht zugewiesenem OnClick-Event aktiv. (default) false
ShowHint:L	(default) false= Tooltip wird nicht angezeigt. Zeigt bei true einen durch `Hint' gesetzten Tooltip an, wenn man den Cursor über das Control hält.
Visible:L	(default )true= Panel ist sichtbar. false= Panel ist nicht sichtbar.
WordWrap:L	(default) true= Der Text wird bei Überlänge umgebrochen und in die nächste Zeile geschrieben.

Aktive Eigenschaften (Methoden)

Eigenschaft	Beschreibung
OnClick	Führt das zugewiesene Event bei Mauklick aus.
OnMouseEnter OnMouseLeave OnMouseMove	Führt das zugewiesene Event beim Betreten / Verlassen bzw. Bewegen der Maus aus. Außerdem ändert sich die Farbe des Panels bei Betreten des Panels mit dem Cursor.
OnMouseDown OnMouseUp	Führt das zugewiesene Event beim Drücken (gedrückt lassen) bzw. Loslassen einer Maustaste aus. Bei einem Klick ändert sich ebenfalls die Farbe des Panels. Dieser Effekt tritt nur bei zugewiesenem OnClick-Event auf.

Beispiel

CODE

//******************************************************************************
// Beschreibung: Dieses CodeBlock-Programm dient zur
//               Demonstration der Klasse TBeInfoPanel
//******************************************************************************

| oForm, oInfoPanel, oLabel |

//##############################################################################
//##############################################################################
// Events
//##############################################################################
//##############################################################################

//******************************************************************************
// Wenn auf das Panel geklickt wird
//******************************************************************************
function InfoPanelClick(sender)
   oLabel.Caption := 'Das TBeInfoPanel <' + Sender.Caption + '> wurde angeklickt!',
end,

//##############################################################################
//##############################################################################
// Initialisierung
//##############################################################################
//##############################################################################

oForm           := CreateObject('TFormEx'),
oForm.Font.Name := 'Segoe UI',
oLabel          := CreateObject('TLabel',, oForm, oForm),

oForm.OrigCapt               := 'TBeInfoPanel-Demo',
oForm.Height                 := 250,
oForm.Width                  := 450,

oInfoPanel                   := CreateObject('TBeInfoPanel',, oForm, oForm),
oInfoPanel.Caption           := 'ColorMode = ipcmOK',
oInfoPanel.Align             := alTop,
oInfoPanel.Hint              := 'Dies ist ein TBeInfoPanel',
oInfoPanel.ShowHint          := true,
oInfoPanel.VerticalAlignment := true,
oInfoPanel.ColorMode         := ipcmOK,
AssignEvent(oInfoPanel, 'OnClick', 'InfoPanelClick'),

oInfoPanel                   := CreateObject('TBeInfoPanel',, oForm, oForm),
oInfoPanel.Caption           := 'ColorMode = ipcmWarning',
oInfoPanel.Align             := alTop,
oInfoPanel.Hint              := 'Dies ist ein TBeInfoPanel',
oInfoPanel.ShowHint          := true,
oInfoPanel.VerticalAlignment := true,
oInfoPanel.ColorMode         := ipcmWarning,
AssignEvent(oInfoPanel, 'OnClick', 'InfoPanelClick'),

oInfoPanel                   := CreateObject('TBeInfoPanel',, oForm, oForm),
oInfoPanel.Caption           := 'ColorMode = ipcmError. [kein OnClick-Event zugewiesen]',
oInfoPanel.Align             := alTop,
oInfoPanel.Hint              := 'Dies ist ein TBeInfoPanel',
oInfoPanel.ShowHint          := true,
oInfoPanel.VerticalAlignment := true,
oInfoPanel.ColorMode         := ipcmError,

oInfoPanel                   := CreateObject('TBeInfoPanel',, oForm, oForm),
oInfoPanel.Caption           := 'ColorMode = ipcmInfo' + crlf
                                + '[Info-Panels unterstützen AutoSize und WordWrap-Funktionalität]',
oInfoPanel.Align             := alTop,
oInfoPanel.Hint              := 'Dies ist ein TBeInfoPanel.',
oInfoPanel.ShowHint          := true,
oInfoPanel.VerticalAlignment := true,
oInfoPanel.ColorMode         := ipcmInfo,
AssignEvent(oInfoPanel, 'OnClick', 'InfoPanelClick'),

oLabel.Caption         := '',
oLabel.Align           := alBottom,
oLabel.Alignment       := taCenter,
oLabel.AutoSize        := false,
oLabel.Height          := 50,
oLabel.WordWrap        := true,
oLabel.Font.Color      := GetBeDesignColor(dcbOrange, dcgLevel4),
oLabel.Font.Style      := fsBold,

ShowModal(oForm),