Win_spisok_Create(_Win),

!.

%END Task Window, id_spisok

7. Запрограммируйте нажатие кнопки ADD в окне Spisok для добавления нового элемента в список. Для этого вызовите окно Dialog and Window Expert (кнопка Code Expert) и в списке окон выберите Spisok. Выберите пункт Control в списке Event Type и выделите строку pb: idc_add (имя кнопки ADD). Нажмите кнопку Add Clause, а затем Edit Clause (рис.26).

рис.26. Созданное окно Spisok

Откроется окно редактора для файла Spisok.pro, в который добавлено предложение:

%BEGIN spisok, idc_add _CtlInfo

win_spisok_eh(_Win,e_Control(idc_add,_CtrlType,_CtrlWin,

_CtlInfo),0):-!,

!.

%END spisok, idc_add _CtlInfo

Допишите необходимые команды. В результате должно получиться:

%BEGIN spisok, idc_add _CtlInfo

win_spisok_eh(_Win,e_Control(idc_add,_CtrlType,_CtrlWin,

_CtlInfo),0):-!,

LBOXWIN = win_GetCtlHandle(_Win,id_list_box),

E_WINDOW = win_GetCtlHandle(_Win,idc_edit),

EDIT_STRING= win_GetText(E_WINDOW),

EDIT_STRING<>"",