Активизация Ctrl+P в своем интерфейсе

[Sheinina]

Проблема в следующем:
Нужно напечатать "карточку организации" (типа там название, адрес, всякие ИНН-ы и т.п.). Из интерфейса "редактирование организации" печати нет, из списка организаций печатается полный список... Стало быть, надо писать свой интерфейс просмотра с реакцией на Ctrl+P (чтобы пользователю привычно было).
С самим интерфейсом проблемы нет, только вот не знаю - какую константу статуса надо подцепить и как событие называется (cm???).

[MarinaE]

Событие называется cmprintdoc,
кажется, вызывается во всех стандартных контекстах, с контекстом sci178inspm точно работает

[Vek]

http://www.tyumbit.ru/gal_forum/viewtop ... en&start=0


вот тут Maverick выложил статусы

[oiko]

Можно и без Ctrl+P, если в фейсе нарисовать кнопочку "напечатать" и повесить на нее свое событие с любым именем.

[Sheinina]

Спасибо всем!
to oiko
Про кнопочку нарисовать я знаю, но не хотелось... Стандартное все же симпатичнее и пользователям привычнее:)

[Sheinina]

У меня голова кругом
Пишу:

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

Interface Client_Kart_Choice ('Выберите организацию',, sci13EnEsc) DoAccept, EscClose, Cyan;
...
browse b1;
...
HandleEvent
  cmInit:...
  cmPrintDoc: message('Печать');
  ...
end;
end.

Нажимаю Cnrl+P, и тишина...
Помогите!!!

[dp]

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

browse b1 (,,sci178inspm); 

в смыле надо контекст указать где ctrl-P есть.
признаком наличия его в контексте окажется наличие символа принтера в панеле инструментов

[Sheinina]

Символ принтера на панели инструментов есть... Но реакции на Ctrl+P нет
Может быть, значение константы изменилось?
В имеющемся у меня cmconst.inc прописано cmPrintDoc = 3011;

[san]

cmPrintDoc = 3440;

[Sheinina]

Спасибо!!!!