Галактика в вопросах и ответах

Код: Выделить всё

browse br_Head;
show(,,74,17);
Table xxxxx;

Fields
  xxxxx.Type 'Тип':[10]     ,Protect;
end;

Screen bt_Button;
 show(,18,,22);
 noTableNavigation;
 fields
   [Filter] _Filter:NoProtect;
 buttons
	  cmExit      ,[doubleLine] ;
<<

 [.] Чекбокс - который надо отловить`

<.  Выход  .>
>>
end;

Код: Выделить всё

HandleEvent
 cmPick:
  {
   case CurField of
     #Filter:
      {
       message(_Filter);
      }
   end;
  }