METHOD Paint() CLASS TTabs

[Otto]

Hello friends,
I’m not sure whether this is still inside the TTabs class, but this seems to prevent changing the height.

Code: Select all | Expand

METHOD Paint() CLASS TTabs

   local aInfo := ::DispBegin()
   local n, nLastPrmpt
   local hDC := ::hDC
   local lNeedButtons := .f.
   local hDCMem, hOldBmp
   local nBarwidth

   local nOrient  := ::nOrientation

   ::nOrientation = If( ::oWnd:oTop == Self, OR_TOP, ;
                     If( ::oWnd:oBottom == Self, OR_BOTTOM, ;
                     If( ::oWnd:oLeft == Self, OR_LEFT, ;
                     If( ::oWnd:oRight == Self, OR_RIGHT, ;
                     OR_BOTTOM ))))

   if nOrient != ::nOrientation
      if ::nOrientation > OR_BOTTOM
         ::nWidth  = BARHEIGHT
      else
         ::nHeight = BARHEIGHT
      endif
   endif

Best regards,
Otto

[Antonio Linares]

Dear Otto,

Height is hardcoded as Class TTabs uses bitmaps for drawing, so it requires new bitmaps and also to modify the class code.