Navigation:  Klassen > bBrowser >

bBrowser:SetInfo()

Diese Seite drucken    Vorherige SeiteZurück zum Anfang des KapitelsNächste Seite

Zweck

Setzt für einen bestimmten Zustand des bBrowser einen Text, ein Icon, eine Bitmap oder ein bCompoundValue als Info-Wert.

Klasse

bBrowser

Typ

Methode

Syntax

<oBrowser>:SetInfo(

<iInfoState>,

<uInfo>

) Æ lSuccess

Argumente

<iInfoState>Zustand, zu dem der Info-Wert gesetzt werden soll. Die folgende Tabelle listet die unterstützten Zustände auf:

 

Zustand

Beschreibung

BINFO_INREADPROCESS

Der bBrowser liest über eine langsame Verbindung Daten ein.

BINFO_NORECORDS

Der Datenserver, der mit dem Browser verknüpft ist, enthält keine Datensätze. Dieser Zustand tritt auch auf, wenn beispielsweise ein Filter oder eine selektive Relation keine Ergebnismenge hat.

BINFO_NOSERVER

Der Browser ist mit keinen Datenserver verknüpft.

BINFO_SERVERNOTUSED

Der Datenserver, der mit dem Browser verknüpft ist, ist nicht geöffnet.

 

Datentyp:Int

 

<uInfo>Wert, der zu dem Zustand gesetzt werden soll.
Datentyp:String | Icon | Bitmap | bCompoundValue

Rückgabewert

lSuccessLogischer Wert der definiert, ob der Info-Wert gesetzt werden konnte.
TRUEDer Info-Wert konnte gesetzt werden.
FALSEDer Info-Wert konnte nicht gesetzt werden.
Datentyp:Logic

Beschreibung

Im bBrowser gibt es mehrere Zustände, in denen dieser keine Daten anzeigen kann. Solch ein Zustand kann z.B. auftreten, wenn im verknüpften Datenserver eine Filterbedingung gesetzt ist, zu der keine Datensätze existieren. In diesem Fall kann ein Info-Wert (Text, Icon, Bitmap, bCompoundValue) im Datenbereich des bBrowser angezeigt werden.

 

INFOTEXT

 

Wenn für den Zustand BINFO_INREADPROCESS ein String übergeben wird, dann können in dem String die folgenden Variablen verwendet werden:

 

Variable

Beschreibung

%RecCount%

Die Variable wird mit dem Wert aus dem Zugriff bInfoInReadProcess:RecCount ersetzt.

%RecPos%

Die Variable wird mit dem Wert aus dem Zugriff bInfoInReadProcess:RecPos ersetzt.

 

Die Variablen werden beim Lesen der Daten automatisch vom bBrowser mit den entsprechenden Werten ersetzt. Hierdurch kann eine Fortschrittsanzeige beim Lesen der Daten implementiert werden. Zusätzlich zu dem Info-Wert muss in diesem Fall noch ein Objekt der Klasse bInfoInReadProcess mit der Methode bBrowser:SetInfoData() definiert werden. Das Objekt definiert unter anderem das Intervall, in dem die Fortschrittsanzeige aktualisiert wird. Wenn dieses Objekt nicht gesetzt wird, dann erfolgt auch keine Fortschrittsanzeige.

 

InfoText2

 

Mit dem Zugriff bBrowser:InfoView kann die Anzeige des Info-Wertes formatiert werden. Bei einem Text als Info-Wert kann z.B. die Schriftart und die Vorder- bzw. Hintergrundfarbe definiert werden.

 

Damit der gesetzte Info-Wert auch im bBrowser angezeigt wird, muss dieser über die Methode bBrowser:Redraw() neu gezeichnet werden.

Beispiele

In dem folgenden Beispiel werden für alle unterstützten Zustände Texte als Info-Werte gesetzt.

 

// Datenserver öffnen

odbsCUSTOMER := DBServer{"CUSTOMER"}

IF odbsCUSTOMER:Used

 // Browser erzeugen

 oBrowser := bBrowser{oOwner,;

                                                 1000,;

                                                 Point{0, 0},;

                                                 Dimension{300, 250}}

 

 // ViewStyle für die Info-Werte setzen

 oBrowser:InfoView:Grid := bGrid{BGRID_NONE, 4, 8, 4, 8}

 oBrowser:InfoView:Foreground := Color{COLORWHITE}

 oBrowser:InfoView:Background := Brush{Color{COLORBLUE}}

 

 // Texte als Info-Werte setzen

 oBrowser:SetInfo(BINFO_NOSERVER, "Es ist kein Server gesetzt.")

 oBrowser:SetInfo(BINFO_SERVERNOTUSED, "Server ist nicht geöffnet.")

 oBrowser:SetInfo(BINFO_NORECORDS, "Es sind keine Datensätze in der Auswahl.")

 

 oBrowser:SetInfo(BINFO_INREADPROCESS, "Daten werden geladen. Bitte warten..." + CRLF + "Lade Datensatz %RecPos% von %RecCount%")

 oInfoInReadProcess := bInfoInReadProcess{300, True}

 oBrowser:SetInfoData(BINFO_INREADPROCESS, oInfoInReadProcess)

 

 // Datenserver mit Browser verknüpfen und Browser anzeigen

 oBrowser:Use(odbsCUSTOMER)

 oBrowser:Show()

ENDIF

Siehe auch

bBrowser:DrawInfo()

bBrowser:GetInfo()

bBrowser:InfoView

bBrowser:IsInfoVisible()

bBrowser:SetInfoData()

bBrowser:SetInfoHeight()

bBrowser:SetInfoView()

bInfoInReadProcess

 


Page url: http://www.YOURSERVER.com/index.html?bbrowser_setinfo.htm