ich fragte mich ob eine Static, auf der o:DrawingArea, als Parent für ein XbPart welcher genau so gross ist (überdeckt Parent komplett) dann noch o:Visible ist ?
ich hab nun mal probiert mit diesem Code
Code: Alles auswählen
#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
PROCEDURE AppSys
RETURN
PROCEDURE Main
LOCAL nEvent, mp1, mp2
LOCAL oDlg, oXbp, drawingArea, aEditControls := {}, oXbp1
oDlg := XbpDialog():new( AppDesktop(), , {0,0}, {320,200}, , .F.)
oDlg:taskList := .T.
oDlg:title := "Neues Formular"
oDlg:create()
drawingArea := oDlg:drawingArea
drawingArea:setColorBG( GRA_CLR_BACKGROUND )
drawingArea:setFontCompoundName( "8.Arial" )
oXbp1 := XbpStatic():new( drawingArea, , {40,40}, {80,80}, { { XBP_PP_BGCLR, GRA_CLR_GREEN } } )
oXbp1:caption := "Parent"
oXbp1:clipSiblings := .T.
oXbp1:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_CENTER
oXbp1:create()
oXbp := XbpStatic():new( oXbp1, , {0,0}, {80,80}, { { XBP_PP_BGCLR, GRA_CLR_BLUE } } )
oXbp:caption := "Child"
oXbp:clipSiblings := .T.
oXbp:options := XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_CENTER
oXbp:create()
oDlg:show()
CenterControl(oDlg)
SetAppFocus(oXbp)
Msgbox("Parent : "+IF(oXbp1:visible,"J","N")+CHR(13)+CHR(10)+;
" Child : "+IF(oXbp:visible,"J","N") )
nEvent := xbe_None
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
Frage : heisst o:Visible das es mit o:Show() angezeigt wurde oder wie ich es verstehe das es "sichtbar" ist ?