Zweck
bViewStyle-Objekt, für die Darstellung der Spaltenwerte.
Klasse
Typ
Access / Assign
Datentyp
Beschreibung
Über die DataView kann die grafische Darstellung der Spaltenwerte beeinflußt werden. Es kann die Schriftart, die Ausrichtung, die Vorder- und Hintergrundfarbe, das Grid und weitere Optionen für die Formatierung definiert werden.
Zusätzlich kann für jede einzelne Datenspalte eine DataView definiert werden. In diesem Fall werden beim Zeichnen der Spaltenwerte die Einstellungen beider DataView-Objekte gemischt, wobei die Einstellungen der DataView aus den Datenspalten die höhere Priorität haben.
Damit Änderungen, die in der DataView vorgenommen wurden, auch im bBrowser angezeigt werden, muss dieser über die Methode bBrowser:Refresh() aktualisiert werden.
Wichtiger Hinweis!
Nach dem Erzeugen eines bBrowser-Objekts enthält der Zugriff bereits ein bViewStyle-Objekt, in dem das Grid definiert ist.
Beispiele
In dem folgenden Beispiel wird ein Browser erzeugt, in dem alle Datenspalten mit einem roten Vorder- und einen gelben Hintergrund dargestellt werden. Nur die 2. Spalte wird mit einem blauen Hintergrund angezeigt.
LOCAL odbsCUSTOMER AS DBServer
LOCAL oBrowser AS bBrowser
LOCAL oColumn AS bDataColumn
// Browser erzeugen und anzeigen
odbsCUSTOMER := DBServer{"CUSTOMER"}
oBrowser := bBrowser{oOwner,;
1000,;
Point{0, 0},;
Dimension{300, 250}}
oBrowser:Use(odbsCUSTOMER)
oBrowser:Show()
// alle Spalten mit roten Text auf gelben Hintergrund
IF oBrowser:DataView=NULL_OBJECT
oBrowser:DataView := bViewStyle{Color{COLORRED},;
Brush{Color{COLORYELLOW}}}
ELSE
oBrowser:DataView:Foreground := Color{COLORRED}
oBrowser:DataView:Background := Brush{Color{COLORYELLOW}}
ENDIF
// 2. Spalte mit blauen Hintergrund
oColum := oBrowser:GetOpenColumn(2)
oColumn:DataView := bViewStyle{ , Brush{Color{COLORBLUE}}}
// wichtig!!!
// -> Daten neu einlesen und Browser zeichnen
oBrowser:Refresh()
In dem folgenden Beispiel wird ein Browser erzeugt, in dem der Hintegrund, der nicht von Datenspalten verdeckt wird, in der Standard-Hintergrundfarbe von Windows angezeigt wird.
Hinweis:
Dieses Beispiel bezieht sich zwar nicht auf die Verwendung eines DataView-Obektes aber es paßt von der Problemstellung sehr gut an diese Stelle.
LOCAL odbsCUSTOMER AS DBServer
LOCAL oBrowser AS bBrowser
LOCAL iColor AS DWORD
LOCAL iRed, iGreen, iBlue AS DWORD
LOCAL oBrush AS Brush
// Browser erzeugen und anzeigen
odbsCUSTOMER := DBServer{"CUSTOMER"}
oBrowser := bBrowser{oOwner,;
1000,;
Point{0, 0},;
Dimension{300, 250}}
oBrowser:Use(odbsCUSTOMER)
oBrowser:Show()
// Standard-Hintergrundfarbe von Windows ermitteln
iColor := GetSysColor(COLOR_3DFACE)
// Hintergrundfarbe in ein Brush-Objekt konvertieren
iRed := GetRValue(iColor)
iGreen := GetGValue(iColor)
iBlue := GetBValue(iColor)
oBrush := Brush{Color{iRed, iGreen, iBlue}}
// Hintergrundfarbe des Browsers setzen
oBrowser:Background := oBrush
Siehe auch
Page url: http://www.YOURSERVER.com/index.html?bbrowser_dataview.htm