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.4 by h677, Wed Dec 14 17:04:56 2005 UTC revision 1.5 by h677, Tue Feb 21 15:35:49 2006 UTC
# Line 106  var Line 106  var
106          dp: TPoint;          dp: TPoint;
107          sp: TPoint;          sp: TPoint;
108          hwnd: THandle;          hwnd: THandle;
109            r: LongBool;
110  begin  begin
111          Result := False;          Result := False;
112          case Message of          case Message of
# Line 146  begin Line 147  begin
147                  WM_RBUTTONUP: begin                  WM_RBUTTONUP: begin
148                          if FCancelMode then                          if FCancelMode then
149                                  FCancelMode := False                                  FCancelMode := False
150                          else begin                          else if (FBeginGesture) then begin
151                                  FBeginGesture := False;                                  FBeginGesture := False;
152                                  ReleaseCapture;                                  ReleaseCapture;
153                                  if FGestureItemList.Count <> 0 then begin                                  if FGestureItemList.Count <> 0 then begin

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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