harbour-core/contrib/gtwvw/tests/cb1.prg

/* Copyright 2005 Budyanto Dj. <budyanto@centrin.net.id>
   A simple example on how to make use of GTWVW's combobox. */

#require "gtwvw"

#include "inkey.ch"
#include "setcurs.ch"

STATIC s_cQuestion := "Quick survey: What do you think about GTWVW?"
STATIC s_cHint     := "Hint: Please be positive..."

STATIC s_aAnswers  := { "1-GTWVW is a great library!", ;
      "2-GT who? I never heard about him", ;
      "3-Sorry, I don't like it" }

STATIC s_cYourAnswer := "Your response is:"
STATIC s_cThankYou := "Thanks for participating in our survey :-)"

#define _SECRET_KEY  101010

ANNOUNCE HB_NOSTARTUPWINDOW

PROCEDURE Main()

   LOCAL nMaxWidth, nCBid, nPBid, nPos
   LOCAL ch, ncursor

#if defined( __HBSCRIPT__HBSHELL ) .AND. defined( __PLATFORM__WINDOWS )
   hbshell_gtSelect( "GTWVW" )
#endif

   SetColor( "N/W" )
   wvw_SetTitle( NIL, "Quick Survey" )
   wvw_NoClose( NIL )
   wvw_SetAltF4Close( .F. )
   wvw_SetLineSpacing( NIL, 4 )
#if 0
   wvw_SetLSpaceColor( NIL, 7 )
#endif
   wvw_cbSetFont( NIL, "Arial", 16 )
   wvw_pbSetFont( NIL, "Arial", 16 )

   nMaxWidth := 0
   AEval( s_aAnswers, {| x | nMaxWIdth := Max( nMaxWidth, Len( x ) ) } )

   SetMode( 11, nMaxWidth + 1 + 10 + 2 )

   CLS
   nCursor := SetCursor( SC_NONE )
   @ 1, 1 SAY s_cQuestion
   @ 2, 1 SAY s_cHint
   nCBid := wvw_cbCreate( NIL, 4, 1, nMaxWidth, s_aAnswers, ;
      {| nWinNum, nId, nEvent, nIndex | ;
      CBhandler( nWinNum, nId, nEvent, nIndex, nPBid ) } )

   nPBid := wvw_pbCreate( NIL, 4, 1 + nMaxWidth + 1, 4, 1 + nMaxWidth + 1 + 10 - 1, "OK", NIL, ;
      {|| hb_keyPut( _SECRET_KEY ) }, { 0, 0, + 2, 0 } )

   wvw_cbSetFocus( NIL, nCBid )

   wvw_ShowWindow()

   nPos := 1
   DO WHILE ( ch := Inkey( 0 ) ) != _SECRET_KEY
      DO CASE
      CASE ch == K_TAB .OR. ch == K_ENTER
         IF nPos == 2 .AND. ch == K_ENTER .AND. wvw_pbEnable( NIL, nPBid )
            hb_keyPut( _SECRET_KEY )
            LOOP
         ELSE
            nPos++
         ENDIF
      CASE ch == K_SH_TAB
         nPos--
      ENDCASE
      IF nPos > 2
         nPos := 1
      ELSEIF nPos < 1
         nPos := 2
      ENDIF
      DO CASE
      CASE nPos == 1
         wvw_cbSetFocus( NIL, nCBid )
      CASE nPos == 2
         wvw_pbSetFocus( NIL, nPBid )
         wvw_pbSetStyle( NIL, nPBid, 1 ) // BS_DEFPUSHBUTTON
      ENDCASE
   ENDDO

   wvw_cbEnable( NIL, nCBid, .F. )
   wvw_pbEnable( NIL, nPBid, .F. )
   @ 6, 1 SAY "Your response is:"
   @ 7, 1 SAY wvw_cbGetCurText( NIL, nCBid )
   @ 9, 1 SAY s_cThankYou
   Inkey( 0 )
   SetCursor( nCursor )

   RETURN  // main

STATIC FUNCTION CBhandler( nWinNum, nId, nEvent, nIndex, nPBid )

   DO CASE
   CASE nEvent == 3 // CBN_SETFOCUS
      // none
   CASE nEvent == 4 // CBN_KILLFOCUS
      // none
      IF nIndex == 0
         wvw_pbEnable( nWinNum, nPBid, .T. )
      ELSE
         wvw_pbEnable( nWinNum, nPBid, .F. )
      ENDIF
   CASE nEvent == 1 // CBN_SELCHANGE
      IF ! wvw_cbIsDropped( nWinNum, nId )
         // nIndex is 0-based
         IF nIndex == 0
            wvw_pbEnable( nWinNum, nPBid, .T. )
         ELSE
            wvw_pbEnable( nWinNum, nPBid, .F. )
         ENDIF
         wvw_cbSetFocus( nWinNum, nId )
      ENDIF
   ENDCASE

   RETURN NIL