Raymundo,
Partamos de un ejemplo que podamos probar todos
![Smile :-)](./images/smilies/icon_smile.gif)
test.prg // de momento sin usar multiples líneas de tabs en el folder interior
Code: Select all | Expand
#include "FiveWin.ch"
function Main()
local oDlg, oFld1, oFld2
DEFINE DIALOG oDlg RESOURCE "Test"
REDEFINE FOLDER oFld1 ;
PROMPTS "One", "Two", "three" ;
DIALOGS "Another", "Two", "Three" ;
ID 100 OF oDlg
REDEFINE FOLDER oFld2 ;
PROMPTS "One", "Two", "three" ;
DIALOGS "One", "Two", "Three" ;
ID 200 OF oFld1:aDialogs[ 1 ]
ACTIVATE DIALOG oDlg CENTERED
return nil
test.rc
Code: Select all | Expand
#ifdef __FLAT__
1 24 "WindowsXP.Manifest"
#endif
test DIALOG 17, 36, 185, 200
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
FONT 8, "MS Sans Serif"
{
CONTROL "", 100, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 6, 175, 170
DEFPUSHBUTTON "OK", 1, 67, 180, 50, 14
}
another DIALOG 6, 15, 175, 117
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "MS Sans Serif"
{
CONTROL "", 200, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 6, 162, 140
}
one DIALOG 6, 15, 175, 117
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "MS Sans Serif"
{
PUSHBUTTON "Test", 10, 5, 5, 148, 115
}
two DIALOG 6, 15, 175, 117
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "MS Sans Serif"
{
}
three DIALOG 6, 15, 175, 117
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "MS Sans Serif"
{
}
Se ve asi:
![Image](http://img52.imageshack.us/img52/4959/34859289.png)
Ahora probemos con multiples líneas de pestañas...