topic-46343

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

METHOD Paint() CLASS TTabs
Posted: Mon Feb 16, 2026 11:26 AM

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 Collapse

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: METHOD Paint() CLASS TTabs
Posted: Mon Feb 16, 2026 01:07 PM

Dear Otto,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion