topic-20903

Posts: 883

Joined: Thu Dec 24, 2009 12:46 AM

TABS.PRG ERROR
Posted: Tue Feb 15, 2011 12:59 AM

Hi, I found a error in this class that prevents it from changing the nHeight of the Tabs even from it's definition:

METHOD Paint() CLASS TTabs  //FWH10.2

.....

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

:: nHeight = BARHEIGHT prevents the class from taking the value given by

SIZE nWidth, nHeight at definition and

oTabs:nHeight := 25 from code

Also oTabs:SetFont(oFont1) is not used in the focused tab....(only in the other tabs)

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Bayron

Posts: 883

Joined: Thu Dec 24, 2009 12:46 AM

Re: TABS.PRG ERROR
Posted: Tue Feb 15, 2011 01:23 AM

To reproduce the error:

Code (fw): Select all Collapse

#include "fivewin.ch"

function Main()
   DEFINE FONT oFont1 NAME "Arial" SIZE 0, -16
   
   define window oWnd1 
      @ 0,0 TABS otabs;
        PROMPT "One", "Two";
        SIZE 100,40;
        PIXEL;
        OF oWnd1
        
      //oTabs:nHeight := 30 
      oTabs:SetFont(oFont1)

      oWnd1:oTop := oTabs

    
   activate window oWnd1 maximized

   oFont1:End()

Return NIL

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

FiveTech Support Forums

Continue the discussion