FiveTech Support Forums

 

#define TCS_BUTTONS  256

@ 2, 2 TABCONTROL oTabs PROMPTS { "One", "Two", "Three" } ;
      OPTION 2 ACTION { || MsgInfo( oTabs:nOption ) } ;
      SIZE 205, 80 OF oWnd
   
    oTabs:nStyle := nOR( WS_CHILD, WS_VISIBLE, TCS_BUTTONS ,TCS_VERTICAL , WS_TABSTOP )

#define GWL_STYLE        (-16) 

   SetWindowLong( oTabs:hWnd, GWL_STYLE,; 
                  nOr( GetWindowLong( oTabs:hWnd, GWL_STYLE ), WS_CHILD, WS_VISIBLE, TCS_BUTTONS ,TCS_VERTICAL , WS_TABSTOP ) )

#include "FWCE.ch"

function Main()

   local oWnd
   
   DEFINE WINDOW oWnd TITLE "TabControl"
   
   @ 2, 2 TABCONTROL oTabs PROMPTS { "One", "Two", "Three" } ;
      OPTION 2 ACTION oWnd:Say( 10, 4, oTabs:nOption ) ;
      SIZE 205, 80 OF oWnd

   #define GWL_STYLE        (-16) 
   #define TCS_BUTTONS     0x0100

   SetWindowLong( oTabs:hWnd, GWL_STYLE,; 
                  nOr( GetWindowLong( oTabs:hWnd, GWL_STYLE ), TCS_BUTTONS ) ) 
   
   ACTIVATE WINDOW oWnd ;
      ON CLICK MsgInfo( "Click!" )
   
return nil