Olá a todos!
Estou programando em xharbour e usando fiveWin.
Como crio abas usando o fivewin?
Obrigado :D

Moderador: Moderadores
// Two folders at a time! Wow!
// New, much, much simpler!!!
#include "FiveWin.ch"
#include "Folder.ch"
//----------------------------------------------------------------------------//
function Main()
local oDlg, oFld1, oFld2
local cItem
SET _3DLOOK ON
DEFINE DIALOG oDlg RESOURCE "Test"
REDEFINE FOLDER oFld1 ID 110 OF oDlg ;
PROMPT "&Clipper", "&and", "&Windows", "&Magic" ;
DIALOGS "Sub1", "Sub2"
REDEFINE COMBOBOX cItem ITEMS { "One", "Two", "Three" } ;
ID 105 OF oFld1:aDialogs[ 1 ]
REDEFINE BUTTON ID 110 OF oFld1:aDialogs[ 1 ] ; // Redefining a child
ACTION MsgInfo( "First Page" ) // control !!!
REDEFINE BUTTON ID 104 OF oFld1:aDialogs[ 2 ] ; // Redefining a child
ACTION MsgInfo( "Second Page" ) // control !!!
REDEFINE FOLDER oFld2 ID 120 OF oDlg ;
PROMPT "&The", "&beauty", "&and power", "&of xBase" ;
DIALOGS "The", "Beauty"
oDlg:aControls[ 2 ]:aDialogs[ 1 ]:bRClicked = ;
{ || MsgInfo( oDlg:aControls[ 2 ]:aDialogs[ 1 ]:hWnd ) }
ACTIVATE DIALOG oDlg CENTERED
return nil
procedure AppSys // XBase++ requirement
return
//----------------------------------------------------------------------------//
Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes