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

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

  #statusline "statgal"
  #make  "TestMark.vip"

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

CONST
  #include galnet.csc    // константы статус-строк Галактики
  #include fldcolor.inc  // цвета в Галактике
end;

#include galnet.ccm end;   // константы пользовательских команд

Interface ExamMark2 'Матценности'('Матценности',,sci178InsPM) Cyan;

  view as select * from KatMC;

  Browse B1;
    fields
      Name   'Наименование' : [40];
      BarKod 'Код'          : [35];
  end;

  HandleEvent
  cmMarkUnMark:
    begin
      Message('mark!!!!!!');
    end; 
  End; //HandleEvent
End.

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

  cmMarkUnMark     = 1221;
  cmSelectAll      = 1219;
  cmUnSelectAll    = 1220;
  cmInvertAll      = 1222;