Tabs em el Top da Dialog ???

[Ale SB]

Estoy colocando minha tab no Top da dialog, mas ela esta ficando como se estivessi no Bottom, veja:



E no assim, como el exemplo em samples:



Meu Prg :

Code: Select all  Expand view

DEFINE DIALOG oDlg RESOURCE 1004 OF oWndChild 
   
      REDEFINE PAGES oPag ID 102 OF oDlg ;           
               DIALOGS 1005, 1005                 
               
      REDEFINE TABS oTabs ID 101 OF oDlg ;
             PROMPT "&Em Abertas", "&Recebidas" ;
             ACTION {oPag:setoption(oTabs:nOption)}

             oDlg:oTop = oTabs


como resolver isto ???

Saluds Ale

[Antonio Linares]

Ale,

Prueba con:

oTabs:nOrientation = 1

[Ale SB]

Maestro, no deu certo.

Saluds Ale

[Antonio Linares]

Funcionó ? Sí ó no ?

[Ale SB]

Funcionó ? Sí ó no ?

No

Saluds Ale

[Antonio Linares]

Aqui tienes un ejemplo funcionando:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oTabs

   DEFINE DIALOG oDlg RESOURCE "Test"

   REDEFINE TABS oTabs PROMPTS "One", "Two", "Three" ID 100 OF oDlg

   oDlg:oTop = oTabs

   ACTIVATE DIALOG oDlg CENTERED

return nil


test.rc

Code: Select all  Expand view

test DIALOG 78, 72, 194, 119
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
FONT 8, "MS Sans Serif"
{
CONTROL "", 100, "TTabs", 0 | WS_CHILD | WS_VISIBLE, 0, 1, 193, 17
DEFPUSHBUTTON "OK", IDOK, 12, 96, 50, 14
PUSHBUTTON "Cancel", IDCANCEL, 72, 96, 50, 14
PUSHBUTTON "Help", IDHELP, 132, 96, 50, 14
}


[Ale SB]

Gracias Maestro,

My .Rc estava errado.

Ejemplo Perfect !!!

Saluds ale