Показать сообщение отдельно
  #70  
Старый 08.12.2012, 02:17
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

3. Удобство использования битмапом - загрузка/выгрузка из/в файл(а), связь с канвасом и его примитавами для отрисовки.
4.
Код:
    WM_KEYDOWN:
    begin
      if GetKeyState(VK_CONTROL) < 0 then
      case (LOWORD(wParam)) of
        ord('B'), ord('b') : SendMessage(Wnd, WM_COMMAND, mnuSound, 0);
        ord('M'), ord('m') : SendMessage(Wnd, WM_COMMAND, mnuOwnerDraw, 0);
        ord('O'), ord('o') : SendMessage(Wnd, WM_COMMAND, mnuOpen, 0);
        ord('S'), ord('s') : SendMessage(Wnd, WM_COMMAND, mnuSave, 0);
      end
      else
      case (LOWORD(wParam)) of
        VK_F2	: SendMessage(Wnd, WM_COMMAND, mnuNew, 0);
        VK_F4	: SendMessage(Wnd, WM_COMMAND, mnuPlace, 0);
      end;
    end;
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием