Пишу теперь по схожему вопросу.
В исходнике(внизу) не могу определить какая кнопка нажата.
Подправте исходник пожалуйста !!!
Заранее спасибо.
/***************************************************************************
* Модуль : проба
* Автор/Дата : Верченко А.Г. 20-08-07 30195@mail.ru
* Назначение : радиокнопка и радиогруппа
****************************************************************************/
#include 'inkey.ch'
#include "getexit.ch"
//
FUNCTION MAIN ()
LOCAL nVar := 1, lButton0, lButton1, lButton2, lButton3, lQuit := .T.
LOCAL aGroup := { } , GetList := { }
LOCAL cButtonClr := "15/3,0/12,4/15,12/3"
LOCAL nExitState := GE_ESCAPE
CLEAR SCREEN
//подключаем мышку
SET( _SET_EVENTMASK, INKEY_ALL )
SETCOLOR( "1/15,0/15,1/15,4/15,5/15,3/1,10/1,1/2" )
@ 0,0 SAY " ESC-выход "
AADD( aGroup, RADIOBUTTON( 11, 11, '&Выбор1', '1111' ) )
AADD( aGroup, RADIOBUTTON( 12, 11, 'В&ыбор2', '2222' ) )
AADD( aGroup, RADIOBUTTON( 13, 11, 'Вы&бор3', '3222' ) )
AADD( aGroup, RADIOBUTTON( 14, 11, 'Выб&ор4', '4444' ) )
DO WHILE lQuit
@ 10, 10, 15, 30 GET nVar RADIOGROUP aGroup MESSAGE 'Ваш выбор'
@ 21, 12 GET lButton0 PUSHBUTTON CAPTION ' &Просмотр ' ;
MESSAGE 'Просмотреть форму' ;
STATE { || GetActive():exitState := GE_WRITE } ;
WHEN { || nExitState := GE_WRITE, .t. } ;
COLOR cButtonClr
@ 21, 29 GET lButton1 PUSHBUTTON CAPTION ' &Печать ' ;
MESSAGE 'Приступить к формированию отчета' ;
STATE { || GetActive():exitState := GE_WRITE } ;
WHEN { || nExitState := GE_WRITE, .t. } ;
COLOR cButtonClr
@ 21, 44 GET lButton2 PUSHBUTTON CAPTION ' &Шаблон ' ;
MESSAGE 'Редактирование шаблона отчета' ;
STATE { || GetActive():exitState := GE_WRITE } ;
WHEN { || nExitState := GE_WRITE, .t. } ;
COLOR cButtonClr
@ 21, 59 GET lButton3 PUSHBUTTON CAPTION ' &Выход ' ;
MESSAGE 'Выход' ;
STATE { || GetActive():exitState := GE_ESCAPE } ;
WHEN { || nExitState := GE_ESCAPE, .t. } ;
COLOR cButtonClr
READ MSG At 23, 10, 70 MSG COLOR '4/15'
//возвращается номер элемента массива на котором был сделан
@ MAXROW()-2, 0 SAY ""
? nVar, lButton0, lButton1, lButton2, lButton3
? nExitState, LastKey()
IF LASTKEY() == K_ESC
lQuit := .F.
ENDIF
ENDDO
RETURN NIL
// End of Function