9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
132 lines
3.2 KiB
Plaintext
132 lines
3.2 KiB
Plaintext
/*
|
|
Copyright 2005 Budyanto Dj. <budyanto@centrin.net.id>
|
|
|
|
A simple example on how to make use of GTWVW's combobox.
|
|
|
|
This program requires GTWVW.LIB.
|
|
|
|
Compile: bldwvw cbtest1
|
|
*/
|
|
|
|
#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
|