
08.12.2012, 02:17
|
 |
.
|
|
Регистрация: 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 в.д.
|