Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

in CLASS des Fensters
   VAR stInfoEditShowStatus
   VAR pbEditShow
...
in INIT
   ::stInfoEditShowStatus     := XbpStatic():new( ::drawingArea, , , , { { XBP_PP_BGCLR, GRA_CLR_GREEN } } )
   ::stInfoEditShowStatus:clipParent := .T.
   ::stInfoEditShowStatus:clipSiblings := .T.
   ::pbEditShow       := XbpPushButton():new( ::drawingArea, ,  , , { { XBP_PP_FGCLR, GRA_CLR_BLACK } } )
   ::pbEditShow:caption := "zeigen"
   ::pbEditShow:clipParent := .T.
   ::pbEditShow:clipSiblings := .T.
   ::pbEditShow:tabStop := .T.
   ::pbEditShow:preSelect    := .F.
   ::pbEditShow:pointerFocus := .F.
*   ::pbEditShow:activate := {|| NIL }
... im Fenster, kann aber auch hier stehen
   ::pbEditShow:activate    := {|| ::EditShow() } // Methode des Fensters teile ich auf, da von mir nicht vom Painter Classcode
...
in CREATE
   ::stInfoEditShowStatus:create(, ,{nPosX-3,nPosY-3},;
                                    { nPBschmal+6, nPBHoehe+6 } ,;
                                    { { XBP_PP_BGCLR, GRA_CLR_GREEN } } )

   ::pbEditShow:create( , , {nPosX,nPosY}, { nPBschmal, nPBHoehe })
   
... im Fenster, kann aber auch bei diesem Code stehen

*---------------------------------------------------------------------------
METHOD ...:EditShow(lForce) 
   LOCAL nButton
   DEFAULT lForce to .F.  // .t. erzwingt das Ende ohne Speichern (meist bei Neterr())
   IF ::InEdit // steuert Anzeige oder Änderungsmodus
      ...
      ::InEdit := .F.
      ::stInfoEditShowStatus:setColorBG( GRA_CLR_GREEN )
      ::pbEditShow:setCaption("zeigen")
      aeval(::editControls , {|oXbp| oXbp:setEditable(.F.) } )
   ELSE
      IF ::RLockMaster()           // ist Sperre möglich ?
         ::InEdit := .T.
         ::stInfoEditShowStatus:setColorBG( GRA_CLR_RED )
         ::pbEditShow:setCaption("ändern")
         aeval(::editControls , {|oXbp| oXbp:setEditable(.T.) } )
      ENDIF * ansonsten wird nicht umgeschaltet
   ENDIF
   ::RefreshXbp()             // immer anzeigen
RETURN NIL