hi,
wie kann ich abfragen ob XBP_ORIGIN_TOPLEFT gesetzt wurde ?
XBP_ORIGIN_TOPLEFT gesetzt ?
Moderator: Moderatoren
- brandelh
- Foren-Moderator
- Beiträge: 15706
- Registriert: Mo, 23. Jan 2006 20:54
- Wohnort: Germersheim
- Hat sich bedankt: 70 Mal
- Danksagung erhalten: 34 Mal
- Kontaktdaten:
Re: XBP_ORIGIN_TOPLEFT gesetzt ?
mit der Methode :setPresParam() kann man die Presentation-Parameter abfragen oder bestimmen !
Gruß
Hubert
Hubert
- brandelh
- Foren-Moderator
- Beiträge: 15706
- Registriert: Mo, 23. Jan 2006 20:54
- Wohnort: Germersheim
- Hat sich bedankt: 70 Mal
- Danksagung erhalten: 34 Mal
- Kontaktdaten:
Re: XBP_ORIGIN_TOPLEFT gesetzt ?
@ TOM
nein,
nein,
während die von Jimmy angesprochene Definition festlegt ob {0,0} oben links oder unten links im Fenster ist.ie Instanzvariable : origin definiert den Bezugspunkt für den Parameter <aPos> , der bei der Methode :new() angegeben werden kann. Das ist der Ursprung des Koordinatensystems, auf das sich <aPos> bezieht. Für : origin können nur #define-Konstanten aus XBP.CH eingesetzt werden, die in der folgenden Tabelle aufgeführt sind:
Konstanten für den Bezugspunkt eines Dialogfensters
Konstante Beschreibung
XBPDLG_ORIGIN_OWNER *) Bezugspunkt ist {0,0} vom Owner Fenster
XBPDLG_ORIGIN_SCREEN Bezugspunkt ist {0,0} vom Desktop Fenster
XBPDLG_ORIGIN_MOUSE Bezugspunkt ist die aktuelle Mausposition
*) Standardwert
Gruß
Hubert
Hubert
- AUGE_OHR
- Marvin
- Beiträge: 12913
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: XBP_ORIGIN_TOPLEFT gesetzt ?
kam gerade wieder auf das Thema.
habe diese Lösung im Einsatz :Frage : gibt es eine einfachere Lösung "wie" man feststellen kann das XBP_ORIGIN_TOPLEFT gewünscht wird ?
habe diese Lösung im Einsatz :
Code: Alles auswählen
FUNCTION IsOriginTopLeft( oXbp )
LOCAL lRet := .F.
LOCAL oDesktop := APPDESKTOP()
LOCAL aPP
LOCAL nPos
DO WHILE oXbp <> oDesktop
aPP := oXbp:setPresParam()
nPos := ASCAN( aPP, { | a | a[ 1 ] == XBP_PP_ORIGIN } )
IF aPP[ nPos ] [ 2 ] <> NIL
IF aPP[ nPos ] [ 2 ] == XBP_ORIGIN_TOPLEFT
lRet := .T.
ENDIF
EXIT
ENDIF
oXbp := oXbp:setParent()
ENDDO
RETURN lRet
gruss by OHR
Jimmy
Jimmy