crDialog

erweiterte XbpDialog Klasse, der alle XbpDialog Methoden und Instanzvariablen vererbt wurden.




Konfiguration:

: close vererbt von XbpDialog, mit gleicher Funktionalität und
für Auswertung der Instanzvariable :closeMethod zuständig.
:closeMethod

Array oder auch Zeichenkette die bei einer xbeP_Close Nachricht automatisch eine vordefinierte interne Klassenmethode zum schließen des Fensters ausführt.

:closeMethod := {"APPQUIT", <cTiltle>, <cMessage>}
erzeugt vor beenden der Anwendung eine confirmbox mit JA/NEIN zum beenden,
ansonsten wie APPCLOSE.

:closeMethod := "APPCLOSE"
schließt erst alle offenen Workareas und beendet die Anwendung.

:closeMethod := "DLGCLOSE"
schließt das Fenster.

Bei allen 3 optionen wird vor beenden/schließen
die Instanzvariable :checkBeforeClose ausgewertet.

:checkBeforeClose

Zeichenkette die auf eine Funktion verweißt die vor beenden des Dialog ausgeführt wird.
Für das beenden muss die Funktion Numerisch 0 zurückgeben.
:autoSize Logische Instanzvariable, wird hier .T. hinterlegt, dann wird hier automaisch die Größe des Fensters in Abhängigkeit des Desktops nach Aufruf der Methode :create berechnet.
(für SDI und MDI-Elternfenster gedacht)

 

 

Methoden:

:statusBar()

Die Methode gibt ein crStatusbar-Objekt zurück,
das innerhalb des Dialogfensters verwaltet wird.

Die Klasse crStatusBar ist zwar verfügbar, aber ohne crDialog nicht verwendbar.

:addItem({ xCaption, nXPos, [bAction, cTooltip, nId]})
fügt ein Element in der Statusbar hinzu.

Seperator => oStatusbar:addItem({ NIL, 57 })
:toolBar()

Die Methode gibt ein crToolbar-Objekt zurück,
das innerhalb des Dialogfensters verwaltet wird.

Die Klasse crToolBar ist zwar verfügbar, aber ohne crDialog nicht verwendbar.


:addItem({ xCaption, nXPos, [bAction, cTooltip, nId]})
fügt ein Element in der Toolbar hinzu.

Seperator => oToolbar:addItem({ NIL, 65})

:rearrange() errechnet die drawingArea in Abhängigkeit von Titlebar,
Menübar, Toolbar und Statusbar neu.

 

die nachfolgenden 3Methoden richten sich nach den
Instazvariablen XRePos, YRePos, XReSize, YReSize aus der Abstracten Klasse crAbstract()

:childReposAndResize(<aOldSize>, <aNewSize>) :childRepos() und :childResize in einer Methode.
:childRepos(<aOldSize>, <aNewSize>) positioniert die Kinderelemente der drawingArea in Abhängigkeit des Eltenfensters neu.
:childResize(<aOldSize>, <aNewSize>) ändert die Größe der Kinderelemente der drawingArea in Abhängigkeit des Eltenfensters.