FiveTech Software tech support forums

Code: Select all

REDEFINE FOLDER o:oFolder ID 1211 OF o:oDlg PROMPTS "Pestaña 1", "Pestaña 2", "Pestaña 3","Pestaña 4" DIALOGS "DLG_BOTE_01","DLG_BOTE_01","DLG_BOTE_01","DLG_BOTE_01"
 

Code: Select all

ACTIVATE DIALOG oDlg ;
   ON INIT oFolder:SetPrompts( { "Uno", "Dos", "Tres", "Cuatro" } )
 

Code: Select all

   o:oFolder := TFolder():ReDefine( 1211,,,o:oDlg,,,,, .F. )
   o:oFolder:AddItem( "Pestaña 01", "DLG_BOTE_01" )
   o:oFolder:AddItem( "Pestaña 02", "DLG_BOTE_01" )
   o:oFolder:AddItem( "Pestaña 03", "DLG_BOTE_01" )
   o:oFolder:AddItem( "Pestaña 04", "DLG_BOTE_01" )
 

Code: Select all

#include "FiveWin.ch"
#include "Folder.ch"

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oFld1, oFld2
   local cItem
   local aTabs := { "&Clipper", "&and", "&Windows", "&Magic" }
   local aDialog := { "Sub1", "Sub2" }

   SET _3DLOOK ON

   DEFINE DIALOG oDlg RESOURCE "Test"


   oFld1 = tFolder():Redefine( 110, aTabs, aDialog, oDlg ) 

   REDEFINE COMBOBOX cItem ITEMS { "One", "Two", "Three" } ;
      ID 105 OF oFld1:aDialogs[ 1 ]

   REDEFINE BUTTON ID 110 OF oFld1:aDialogs[ 1 ] ;  
      ACTION MsgInfo( "First Page" )                

   REDEFINE BUTTON ID 104 OF oFld1:aDialogs[ 2 ] ;   
      ACTION MsgInfo( "Second Page" )               

   REDEFINE FOLDER oFld2 ID 120 OF oDlg ;
      PROMPT "&The", "&beauty", "&and power", "&of xBase" ;
      DIALOGS "The", "Beauty"


   ACTIVATE DIALOG oDlg CENTERED

return nil

Code: Select all

#define IDC_CHECKBOX1   106
#define IDC_GROUPBOX1   107
#define DIALOG_2    2
#define DIALOG_1    1
#include "..\include\winapi.ch"

#ifdef __FLAT__
   1 24 "winxp\WindowsXP.Manifest"
#endif

#ifdef __64__
   1 24 "WinXP/WindowsXP.Manifest64"
#endif 


Test DIALOG 19, 22, 263, 202
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU | 4
CAPTION "FiveWin Folders Demo"
FONT 8, "Arial"
{
 CONTROL "", 110, FOLDER32, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 4, 5, 213, 93
 CONTROL "", 120, FOLDER32, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 4, 105, 213, 93
 PUSHBUTTON "&OK", 1, 222, 4, 37, 14
}


sub1 DIALOG 18, 18, 142, 67
STYLE WS_CHILD | 0x4
{
 COMBOBOX 105, 62, 15, 69, 37, CBS_DROPDOWNLIST | WS_CHILD | WS_VISIBLE | WS_TABSTOP
 PUSHBUTTON "&First", 110, 25, 47, 24, 14
 PUSHBUTTON "&SubDialog", 120, 54, 47, 43, 14
 CHECKBOX "Checkbox", IDC_CHECKBOX1, 35, 27, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP
 GROUPBOX "Group", IDC_GROUPBOX1, 8, 6, 129, 35, BS_GROUPBOX
}


sub2 DIALOG 18, 18, 142, 67
STYLE WS_CHILD | 0x4
{
 CONTROL "Text", 101, "BUTTON", BS_AUTORADIOBUTTON | WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP, 37, 30, 28, 12
 CONTROL "Text", 102, "BUTTON", BS_AUTORADIOBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 37, 41, 28, 12
 CONTROL "Text", 103, "BUTTON", BS_AUTORADIOBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 37, 52, 28, 12
 CONTROL "&Second", 104, "BUTTON", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 93, 26, 32, 12
}


the DIALOG 18, 18, 142, 67
STYLE WS_CHILD | 0x4
{
 CONTROL "Wellcome to the most", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE, 26, 13, 74, 8
 CONTROL "fascinating way of", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE, 27, 26, 62, 8
 CONTROL "developing software", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE, 26, 40, 74, 8
}


beauty DIALOG 18, 18, 142, 67
STYLE WS_CHILD | 0x4
{
 CONTROL "Now you have all the", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE, 26, 13, 74, 8
 CONTROL "productivity and power", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE, 27, 26, 78, 8
 CONTROL "you were looking for!", -1, "STATIC", SS_LEFT | WS_CHILD | WS_VISIBLE, 26, 40, 74, 8
}