Error Tabs

[Dorneles]

What is wrong with this tab, use left when it becomes distorted.

Code: Select all

*****--- Windows MDICHILD ---***************************************************
  DEFINE WINDOW oWndChild MDICHILD TITLE "Contas a Receber"

*****--- DIALOG PRINCIPAL ---***************************************************    
    DEFINE DIALOG oDlg RESOURCE 1004 OF oWndChild  
    oDlg:oFont:=ArialBR1
    
*****--- PAGES / TABS - DIALOG 1004 PRINCIPAL ---*******************************    
		REDEFINE PAGES oPag ID 102 OF oDlg ;            
               DIALOGS 1005, 1005
				 
		REDEFINE TABS oTabs ID 104 OF oDlg ;
             PROMPT "&Abertas", "&Recebidas" ;	
				 ACTION {oPag:setoption(oTabs:nOption)}                 
             oDlg:oLeft = oTabs

*****--- DIALOG 1005 Opcao 1 do oTabs (Em Abertas) ---**************************
		REDEFINE PAGES oPag1 ID 102 OF oPag:aDialogs[ 1 ] ;            
               DIALOGS 1007,1010, 1011

					
		REDEFINE TABS oTabs1 ID 101 OF oPag:aDialogs[ 1 ] ;
               PROMPTS "Nome do Cliente", "Número do Titulo", "Data de Emissão/Vcto" ;
               ACTION {oPag1:setoption(oTabs1:nOption)} 
               oPag:aDialogs[ 1 ]:oTop = oTabs1

[Dorneles]

I made it up to solve the problem, but now the tabs does not meet until the end of dialog.

[Antonio Linares]

Dorneles,

> I made it up to solve the problem

What have you changed in your code ?

samples\TestTabs.prg works fine on all sides.

[Dorneles]

Antonio, where the "DEFINE WINDOW oWndChild MDICHILD" is created, the tabs, get the value: nHeight, but when the windows are maximized "ACTIVATE WINDOW oWndChild maximized" to not resize the tabs: nHeight.

Code: Select all

METHOD Paint() CLASS TTabs


      case ::nOrientation == OR_LEFT
         hOldBmp = SelectObject( hDCMem, hBmpBackV )
         StretchBlt( ::hDC, ::nWidth -1, 0, -::nWidth, ::nHeight, hDCMem, 0, 0, nBmpWidth( 

hBmpBackV ), nBmpHeight( hBmpBackV ), SRCCOPY )