Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Gesture.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by h677, Mon Jul 18 03:55:14 2005 UTC revision 1.3 by h677, Wed Dec 14 15:14:42 2005 UTC
# Line 130  begin Line 130  begin
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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26