Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Gesture.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 130 |
FLastTime := GetTickCount; |
FLastTime := GetTickCount; |
| 131 |
FLastPoint := Point(x, y); |
FLastPoint := Point(x, y); |
| 132 |
end; |
end; |
|
//マウスを再設定 |
|
|
if (hwnd <> 0) and (hwnd <> FHandle) then |
|
|
SetCapture(hwnd); |
|
|
|
|
| 133 |
Result := True; |
Result := True; |
| 134 |
end; |
end; |
| 135 |
end; |
end; |
| 136 |
WM_RBUTTONDOWN: begin |
WM_RBUTTONDOWN: begin |
| 137 |
if not FCancelMode then begin |
FBeginGesture := True; |
| 138 |
FBeginGesture := True; |
FLastTime := 0; |
| 139 |
FLastTime := 0; |
FLastPoint := Point(x, y); |
| 140 |
FLastPoint := Point(x, y); |
FStartPoint := Point(x, y); |
| 141 |
FStartPoint := Point(x, y); |
SetCapture(FHandle); |
|
CheckAction := True; |
|
|
SetCapture(FHandle); |
|
|
end; |
|
| 142 |
end; |
end; |
| 143 |
WM_RBUTTONUP: begin |
WM_RBUTTONUP: begin |
| 144 |
if FCancelMode then |
FBeginGesture := False; |
| 145 |
FCancelMode := False |
ReleaseCapture; |
| 146 |
else begin |
if FGestureItemList.Count <> 0 then begin |
| 147 |
FBeginGesture := False; |
if Assigned(FOnGestureEnd) then |
| 148 |
ReleaseCapture; |
FOnGestureEnd(Self); |
| 149 |
if FGestureItemList.Count <> 0 then begin |
ClearGesture; |
|
if Assigned(FOnGestureEnd) then |
|
|
FOnGestureEnd(Self); |
|
|
ClearGesture; |
|
|
end else begin |
|
|
FCancelMode := True; |
|
|
//ジェスチャーじゃなかった場合、マウスDOWN,UPをエミュレート |
|
|
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTDOWN, FStartPoint.X, FStartPoint.Y, 0, 0); |
|
|
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTUP, x, y, 0, 0); |
|
|
end; |
|
| 150 |
end; |
end; |
| 151 |
end; |
end; |
| 152 |
end; |
end; |
|
|
Legend:
| Removed from v.1.2 |
|
| changed lines |
| |
Added in v.1.3 |
|
|
| |