FiveTech Support Forums

#include "fivewin.ch"
#include "tselex.ch"

function Main()

   local oWnd
   local oSelex
   local nOption1 := 1
   local nOption2 := 3
   local nOption3 := 2
   
   define window oWnd 
   
   @ 10, 10 SELEX oSelex VAR nOption1 SIZE 350, 50 PIXEL;
                  ON CHANGE MsgInfo( "Current: " + StrTran( oSelex:aOptions[ nOption ], "&", "" ) + CRLF + ;
                                     "Last   : " + StrTran( oSelex:aOptions[ nOldOption ], "&", "" ))
   
   @ 70, 10 SELEX nOption2 SIZE 250, 50 PIXEL;
            ITEMS "Launch &Dialog", "Option &2", "Option &3";
            GRADIENT OUTTRACK { { 1/2, nRGB( 219, 230, 244 ), nRGB( 207-50, 221-25, 255 ) }, ;
                                { 1/2, nRGB( 201-50, 217-25, 255 ), nRGB( 231, 242, 255 ) } };
            GRADIENT INTRACK  { { 1/3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
                                { 2/3, nRGB( 255, 215,  84 ), nRGB( 255, 233, 162 ) } };
            LINECOLORS nRGB( 237, 242, 248 ), nRGB( 141, 178, 227 );
            COLORTEXT  CLR_BLACK, CLR_RED ;
            THUMBSIZE 40 ROUNDSIZE 20;
            ACTION( If( nOption == 1, LaunchDialog(), ) )
            
   @ 130, 10 SELEX nOption3 SIZE 450, 50 PIXEL;
             ITEMS "&FiveWin", "&Power", "&Amazing", "&IPhone";
             THUMBSIZE 40, 30 ROUNDSIZE 0
       
   activate window oWnd
   
return nil

function LaunchDialog()

   local oDlg, nOption3 := 1
   
   define dialog oDlg resource "selex"
   
   REDEFINE SELEX nOption3 OF oDlg ID 100;
             ITEMS "&FiveWin", "&Power", "&Amazing", "&Exit";
             THUMBSIZE 40, 30 ROUNDSIZE 5 ;
             ACTION( If( nOption == 4, oDlg:End(), ) );
             COLOR THUMB CLR_WHITE
             
   
   activate dialog oDlg
   
return nil