bb.donnay-software.com

Code: Select all

oMyTab1 := XBPTABPAGE() :new(...)
...
oMyTab1:DrawMode := XBP_DRAW_OWNER 
oMyTab1:create()
oMyTab1:Draw := { | o, a, s | DrawTab( o, a, s, self ) }

FUNCTION DrawTab( oPS, aInfo, oSelf, oParent )
LOCAL lHeader
LOCAL cCaption
LOCAL AreaAttrs := ARRAY( GRA_AA_COUNT )
LOCAL TextAttrs := ARRAY( GRA_AS_COUNT )
LOCAL lReturn   := .F.
LOCAL nItem     := aInfo[ XBP_DRAWINFO_ITEM ]               
LOCAL nAction   := aInfo[ XBP_DRAWINFO_ACTION ]             // Aktion, die die Nachricht xbeP_Draw auslöste
LOCAL nState    := aInfo[ XBP_DRAWINFO_STATE ]              // Aktueller Anzeigestatus des TabPage-Objekts
LOCAL aRect     := aInfo[ XBP_DRAWINFO_RECT ]               // Ausgaberechteck für die Zeichenoperation
LOCAL oFont     := oParent:GetActiveFont()

   cCaption := oSelf:Caption

   lHeader := BAnd( aInfo[ XBP_DRAWINFO_STATE ], XBP_DRAWSTATE_HEADER ) == XBP_DRAWSTATE_HEADER

   IF lHeader == .T.

      IF BAnd( aInfo[ XBP_DRAWINFO_ACTION ], XBP_DRAWACTION_DRAWFG ) == XBP_DRAWACTION_DRAWFG

         IF BAnd( aInfo[ XBP_DRAWINFO_STATE ], XBP_DRAWSTATE_SELECTED ) == XBP_DRAWSTATE_SELECTED
            AreaAttrs[ GRA_AA_COLOR ] := GRA_CLR_BLACK
            TextAttrs[ GRA_AS_COLOR ] := GRA_CLR_CYAN
         ELSE
            AreaAttrs[ GRA_AA_COLOR ] := GRA_CLR_BLACK
            TextAttrs[ GRA_AS_COLOR ] := GRA_CLR_PALEGRAY
         ENDIF
         GraSetAttrArea( oPS, AreaAttrs )

         GraBox( oPS, { aInfo[ XBP_DRAWINFO_RECT ] [ 1 ], aInfo[ XBP_DRAWINFO_RECT ] [ 2 ] }, ;
                      { aInfo[ XBP_DRAWINFO_RECT ] [ 3 ], aInfo[ XBP_DRAWINFO_RECT ] [ 4 ] }, ;
                        GRA_OUTLINEFILL )
        
        // Hier den Font auswählen
         GraSetFont( oPS, oFont )

         GRASETATTRSTRING( oPS, TextAttrs )
         IF VALTYPE( cCaption ) = "C"
            GraCaptionStr( oPS, aInfo[ XBP_DRAWINFO_RECT ], { aInfo[ XBP_DRAWINFO_RECT, 3 ], aInfo[ XBP_DRAWINFO_RECT, 4 ] }, ;
                    cCaption, XBPALIGN_VCENTER + XBPALIGN_HCENTER )
         ENDIF

         IF BAnd( aInfo[ XBP_DRAWINFO_STATE ], XBP_DRAWSTATE_FOCUS ) == XBP_DRAWSTATE_FOCUS
            GraFocusRect( oPS )
         ENDIF
      ENDIF
   ENDIF

RETURN lReturn