Moderator: Moderatoren
Code: Alles auswählen
::drawingarea:scrollbars := XBP_SCROLLBAR_VERTich habe es in der Init-Methode freigeschaltet. Danach wird create ausgeführt und erst dann die restlichen Objekte eingefügt.brandelh hat geschrieben:Hallo,
hast du diese VOR dem Create oder danach freigeschaltet ?
Wenn danach, dann muss man vielleicht ein configure nachschieben ?
Eine direkte Antwort hab ich nicht, aber :andreas hat geschrieben: Mein Problem ist, dass ich manuell mit der Maus die Fenstergrösse
ändern muss, damit die Scrollbars erscheinen. Erst dann kann ich
im Fenster scrollen und die anderen Objekte sehen.
Was kann das sein und wie könnte ich es lösen?
Code: Alles auswählen
PostAppEvent(xbeP_Resize,oDlg:CurrentSize(),oDlg:CurrentSize(),oDlg)
:setSize() bringt's -- wenn die Größe dabei tatsächlich geändert wird.Ich muss immer noch die Fenstergrösse manuell ändern, damit die Leisten erscheinen.
Code: Alles auswählen
aSize := oDlg:currentSize()
oDlg:setSize( { aSize[1]+1, aSize[2]+1 } )
oDlg:setSize( aSize )Hallo Günter,Günter Beyes hat geschrieben:Hallo Andreas,
:setSize() bringt's -- wenn die Größe dabei tatsächlich geändert wird.
Code: Alles auswählen
aSize := oDlg:currentSize() oDlg:setSize( { aSize[1]+1, aSize[2]+1 } ) oDlg:setSize( aSize )
Viele Grüße,
Günter
Code: Alles auswählen
#include "Appevent.ch"
#include "Xbp.ch"
#include "common.ch"
PROCEDURE Main
LOCAL nEvent := 0, mp1, mp2, oXbp
LOCAL oDlg
oDlg := CreateDialog()
oDlg:show()
setappwindow( oDlg )
setappfocus( oDlg )
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
PROC AppSys() ; return
PROC DBESys() ; return
FUNCTION CreateDialog()
LOCAL oDlg, oSle, oXbp, aPos, aSize
LOCAL nXsize := 240
LOCAL nYsize := 180
aSize := AppDesktop():currentSize()
aPos := { ( aSize[1]-nXsize )/2, ( aSize[2]-nYsize ) / 2 }
oDlg := XbpDialog():new( AppDesktop(),, aPos, {nXsize,nYsize}, , FALSE )
oDlg:title := "Standard-Dialog"
oDlg:drawingArea:scrollbars := XBP_SCROLLBAR_HORIZ+XBP_SCROLLBAR_VERT
oDlg:taskList := .T.
oDlg:create()
aSize := oDlg:drawingArea:currentSize()
aPos := { 12, ( aSize[2] - 20 ) / 2 }
oSle := XbpSle():new( oDlg:drawingArea,, aPos, { aSize[1] - 24, 20 } )
oSle:TabStop := .T.
oSle:create()
aPos := { ( aSize[1]-72 ) / 2, 12 }
oXbp := XbpPushbutton():new( oDlg:drawingArea, , aPos, {72,24} )
oXbp:caption := "OK"
oXbp:TabStop := .T.
oXbp:activate := {|| PostAppEvent( xbeP_Close,,, oDlg ) }
oXbp:create()
oXbp := XbpPushbutton():new( oDlg:drawingArea, , { 300, aPos[2] }, {72,24} )
oXbp:caption := "Tut nix"
oXbp:TabStop := .T.
oXbp:create()
aSize := oDlg:currentSize()
oDlg:setSize( { aSize[1]+1, aSize[2]+1 } )
oDlg:setSize( aSize )
RETURN oDlg
Code: Alles auswählen
#define WM_VSCROLL 0x0115
#define SB_TOP 6
SendMessageA( oDlg:drawingArea:getHWND(), WM_VSCROLL, SB_TOP, 0 )
DLLFUNCTION SendMessageA( hWnd, nMsg, wparam, lparam ) ;
USING STDCALL FROM user32.dllHallo Jan,Jan hat geschrieben:Nur mal 'ne Vermutung: Geht das vielleicht auch, indem man zwangsweise den Fokus auf einen Xbp ganz oben setzt? Um den dann aktiv anzuzeigen muß doch das Formular nach oben gescrollt werden, oder?
Jan
Jan hat geschrieben:Geht das vielleicht auch, indem man zwangsweise den Fokus auf einen Xbp ganz oben setzt? Um den dann aktiv anzuzeigen muß doch das Formular nach oben gescrollt werden, oder?
Code: Alles auswählen
IF ! AllChildrenOnScreen( oDlg:drawingArea )
aSize := oDlg:currentSize()
oDlg:setSize( { aSize[1]+1, aSize[2]+1 } )
oDlg:setSize( aSize )
SendMessageA( oDlg:drawingArea:getHWND(), WM_VSCROLL, SB_TOP, 0 )
ENDIF
FUNCTION AllChildrenOnScreen( oParent )
LOCAL lOK := TRUE
LOCAL aChildren := oParent:childList()
LOCAL i, aPos, aSize
LOCAL aParentSize := oParent:currentSize()
FOR i := 1 TO len( aChildren )
aPos := aChildren[i]:currentPos()
IF aPos[1] < 0 .or. aPos[2] < 0
lOK := FALSE
EXIT
ENDIF
aSize := aChildren[i]:currentSize()
IF aPos[1] + aSize[1] > aParentSize[1] .or. ;
aPos[2] + aSize[2] > aParentSize[2]
lOK := FALSE
EXIT
ENDIF
NEXT
RETURN lOKCode: Alles auswählen
#define WM_VSCROLL 0x0115
#define SB_TOP 6
DLLFUNCTION SendMessageA( hWnd, nMsg, wparam, lparam ) ;
USING STDCALL FROM user32.dll
**Scrollbalken im Fenster nach Oben scrollen.
**Überprüfen, ob alle Objekte ins Fenster passen, wenn nicht dann nach Oben scrollen
FUNCTION ScrollTop( oDlg )
LOCAL lOK := TRUE
LOCAL aChildren := oDlg:drawingarea:childList()
LOCAL i, aPos, aSize
LOCAL aParentSize := oDlg:drawingarea:currentSize()
FOR i := 1 TO len( aChildren )
aPos := aChildren[i]:currentPos()
IF aPos[1] < 0 .or. aPos[2] < 0
lOK := FALSE
EXIT
ENDIF
aSize := aChildren[i]:currentSize()
IF aPos[1] + aSize[1] > aParentSize[1] .or. ;
aPos[2] + aSize[2] > aParentSize[2]
lOK := FALSE
EXIT
ENDIF
NEXT
IF ! lOk
aSize := oDlg:currentSize()
oDlg:setSize( { aSize[1]+1, aSize[2]+1 } )
oDlg:setSize( aSize )
SendMessageA( oDlg:drawingArea:getHWND(), WM_VSCROLL, SB_TOP, 0 )
ENDIF
RETURN nilgrundsätzlich geht das ja über "o:wheel()" welche den Eventandreas hat geschrieben: Gibt es bei einem Fenster die Möglichkeit auf Scrollrad der Maus zu reagieren und Drawingarea zu scrollen und wenn ja, wie kann ich es lösen?
Code: Alles auswählen
oDlg:DrawingArea:wheel := {|aPos,aWheel,obj| DlgWheel (aWheel,aoChild,aoDisplay) }
Code: Alles auswählen
PROCEDURE DlgWheel(aWheel,aoChild,aoDisplay)
IF aWheel[2] < 0
aoChild[CH_BAR]:setData( aoChild[CH_BAR]:getData()+1 )
Scroll2bar( aoChild[CH_BAR]:getData(), XBPSB_NEXTPOS, aoChild[CH_WMP], aoChild[CH_BAR], aoDisplay[PA_POSI], aoChild[CH_STATBAR], aoChild[CH_STATBAR]:oLauf)
ELSE
aoChild[CH_BAR]:setData( aoChild[CH_BAR]:getData()-1 )
Scroll2bar( aoChild[CH_BAR]:getData(), XBPSB_PREVPOS, aoChild[CH_WMP], aoChild[CH_BAR], aoDisplay[PA_POSI], aoChild[CH_STATBAR], aoChild[CH_STATBAR]:oLauf)
ENDIF
RETURN
Code: Alles auswählen
FUNCTION Scroll2bar( nScrlPos,nCommand, ...)
...
DO CASE
CASE nCommand == XBPSB_ENDTRACK // must be 1st (!)
CASE nCommand == XBPSB_PREVPOS
...
CASE nCommand == XBPSB_NEXTPOS
...
CASE nCommand == XBPSB_PREVPAGE
CASE nCommand == XBPSB_NEXTPAGE
CASE nCommand == XBPSB_SLIDERTRACK
...
CASE nCommand == XBPSB_ENDSCROLL
ENDCASE
RETURN NIL