View Issue Details

IDProjectCategoryView StatusLast Update
0002141Far ManagerMacropublic2012-11-06 11:06
Reportermax rusov Assigned Tovskirdin  
PrioritynormalSeverityminorReproducibilityalways
Status closedResolutionfixed 
Summary0002141: Не работает $AKey в макросах на MsWheelUp/MsWheelDown
DescriptionНапример, после установки макроса:

<?xml version="1.0" encoding="UTF-8" ?>
<farconfig>
  <macros>
    <keymacros>
      <macro area="Shell" key="MsWheelUp"><text>$AKey</text></macro>
      <macro area="Shell" key="MsWheelDown"><text>$AKey</text></macro>
    </keymacros>
  </macros>
</farconfig>

Прокрутка колесиком мыши блокируется. Если заменить $AKey на MsWheelUp/MsWheelDown - то все работает.
TagsNo tags attached.
Build0

Activities

vskirdin

2012-08-09 15:09

administrator  

m2141.diff (665 bytes)   
Index: macro.cpp
===================================================================
--- macro.cpp	(revision 8306)
+++ macro.cpp	(working copy)
@@ -5327,7 +5327,8 @@
 				INPUT_RECORD *inRec=&Work.cRec;
 				if (!inRec->EventType)
 					inRec->EventType = KEY_EVENT;
-				if(inRec->EventType == KEY_EVENT || inRec->EventType == FARMACRO_KEY_EVENT)
+				if(inRec->EventType == KEY_EVENT || inRec->EventType == FARMACRO_KEY_EVENT ||
+					(inRec->EventType == MOUSE_EVENT && (inRec->Event.MouseEvent.dwEventFlags==MOUSE_WHEELED || inRec->Event.MouseEvent.dwEventFlags==MOUSE_HWHEELED)))
 					aKey=ShieldCalcKeyCode(inRec,FALSE,nullptr);
 			}
 			else
m2141.diff (665 bytes)   

vskirdin

2012-08-09 15:09

administrator   bugnote:0009468

см. m2141.diff

vskirdin

2012-09-04 17:25

administrator   bugnote:0009501

build 2793

vskirdin

2012-11-06 11:06

administrator   bugnote:0009705

неактуально

Issue History

Date Modified Username Field Change
2012-08-08 10:44 max rusov New Issue
2012-08-09 15:09 vskirdin File Added: m2141.diff
2012-08-09 15:09 vskirdin Note Added: 0009468
2012-09-04 17:25 vskirdin Note Added: 0009501
2012-09-04 17:25 vskirdin Assigned To => vskirdin
2012-09-04 17:25 vskirdin Status new => feedback
2012-11-06 11:06 vskirdin Build => 0
2012-11-06 11:06 vskirdin Note Added: 0009705
2012-11-06 11:06 vskirdin Status feedback => closed
2012-11-06 11:06 vskirdin Resolution open => fixed