FiveTech Software tech support forums

Code: Select all

        REDEFINE FolderEx oFld ID 100 PROMPT "&Generales",;
                                                        "&Condiciones" OF oDlg ;
            DIALOGS "UpdOdc01",;
                        "UpdOdc02"
 

Code: Select all

   aGrad := { { 0.30, CLR_CYAN, CLR_HCYAN },{ 0.70, CLR_HCYAN, CLR_CYAN } }


   // En el controle del folder -> Use: "TFolderex"
   DEFINE DIALOG oDlg RESOURCE "FOLDER_CONTATO" OF oWndChild GRADIENT aGrad

   oDlg:lHelpIcon := .F.

   REDEFINE FOLDEREX oFld ID 101 OF oDlg UPDATE                  ;
            PROMPTS OemToAnsi( "&Or‡amento"   ),                 ;
                    OemToAnsi( "&Continua‡Æo" )                  ;
            BITMAPS "Agenda1", "Agenda2"                         ;
            DIALOGS "FLD_ORCA_GENERICO","FLD_ORCA_GENERICO_CONT" ;
            TAB HEIGHT 25 ROUND 5                                ;
            FONT oFont COLOR CLR_HCYAN TOP ALIGN

   oFld:SetOption( 1 )
   oFld:aEnable = { .T., .T., .F. }  // ó mas abas.
   oFld:Show()
 

Code: Select all

UPDODC DIALOG DISCARDABLE 5, 15, 610, 360
STYLE WS_POPUP|WS_THICKFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Datos de nuestra empresa"
FONT 8, "MS Sans Serif"
{
  CONTROL "", 100, "SysTabControl32", WS_TABSTOP, 5, 36, 600, 315
  CONTROL "", 25, "Static", SS_BITMAP|SS_CENTERIMAGE|WS_BORDER, 0, 0, 610, 36
}
 

Code: Select all

#include "FiveWin.ch"
//----------------------------------------------------------------------------//

function Main()

   local oDlg, oFld1, oFld2
   local cItem
   local oUrlLink1, oUrlLink2
   Fw_SetUnicode( .T. )

   DEFINE DIALOG oDlg RESOURCE "Test"

   REDEFINE FOLDEREX 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 FOLDEREX oFld2 ID 120 OF oDlg ;
      PROMPT "&The", "&beauty", "&and power", "&of xBase" ;
      DIALOGS "The", "Beauty"
   oFld2:SetColor( CLR_BLUE, CLR_WHITE )

   //AEVal( oFld2:aDialogs, { | o | o:SetColor( CLR_BLUE, CLR_WHITE ) } )
   //oDlg:aControls[ 2 ]:aDialogs[ 1 ]:bRClicked = ;
   //    { || MsgInfo( oDlg:aControls[ 2 ]:aDialogs[ 1 ]:hWnd ) }

   oUrlLink1 := TUrlLink():Redefine( 1001, oFld2:aDialogs[1],,, "www.fivetechsoft.com",, CLR_BLACK, CLR_RED, CLR_YELLOW, .T. )
   oUrlLink1:bAction = { || MsgInfo( "click" ) }
   oUrlLink2 := TUrlLink():Redefine( 1002, oFld2:aDialogs[1],,, "www.fivetechsoft.com",, CLR_BLACK, CLR_RED, CLR_YELLOW, .T. )
   oUrlLink2:bAction = { || MsgInfo( "click" ) }

   ACTIVATE DIALOG oDlg CENTERED //ON INIT Hazcontrols( oFld2 )

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"
{
//0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP
// CONTROL "", 110, FOLDER32, 0x00000000, 4, 5, 213, 93
// CONTROL "", 120, FOLDER32, 0x00000000, 4, 105, 213, 93
  CONTROL       "", 110, "TFOLDEREX", 0x50010000, 4, 5, 213, 93, 0x00000000
  CONTROL       "", 120, "TFOLDEREX", 0x50010000, 5, 105, 213, 93, 0x00000000
 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 DISCARDABLE 1, 1, 142, 67
STYLE WS_CHILD | 0x4
FONT 8, "Arial"
{
 CONTROL "", 1001, "Static", WS_TABSTOP, 26, 13, 74, 8
 CONTROL "", 1002, "STATIC", WS_TABSTOP, 27, 26, 62, 8
 //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
}