o:Visible ... Bedeutung ?

Grafische Primitive, XbaseParts und Darstellungsfragen allgemein.

Moderator: Moderatoren

Antworten
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

o:Visible ... Bedeutung ?

Beitrag von AUGE_OHR »

hi,

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
und bin etwas verwundert ...

Frage : heisst o:Visible das es mit o:Show() angezeigt wurde oder wie ich es verstehe das es "sichtbar" ist ?
gruss by OHR
Jimmy
Antworten