Error Tabs

[Dorneles]

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

Code: Select all  Expand view

*****--- 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  Expand view

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 )