Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

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

revision 1.503 by genyakun, Sun Feb 20 14:43:38 2005 UTC revision 1.504 by h677, Thu Mar 17 14:54:43 2005 UTC
# Line 11636  procedure TGikoForm.OnGestureEnd(Sender: Line 11636  procedure TGikoForm.OnGestureEnd(Sender:
11636  var  var
11637          s: string;          s: string;
11638          Action: TAction;          Action: TAction;
11639            Comp : TComponent;
11640            P : TPoint;
11641  begin  begin
11642          s := MouseGesture.GetGestureStr;          s := MouseGesture.GetGestureStr;
11643          Action := GikoSys.Setting.Gestures.GetGestureAction(s);          Action := GikoSys.Setting.Gestures.GetGestureAction(s);
11644          if Action <> nil then          if Action <> nil then begin
11645                  Action.Execute;                  //マウス位置の取得
11646                    GetCursorPos(P);
11647            //コンポーネント名取得
11648            //ギコナビのフォーム外、もしくは、コンテキストメニュー上だとnilが返る
11649                    Comp := FindDragTarget(P, True);
11650            if (Comp <> nil) then
11651                            Action.Execute;
11652        end;
11653          StatusBar.Panels[1].Text := '';          StatusBar.Panels[1].Text := '';
11654  end;  end;
11655    

Legend:
Removed from v.1.503  
changed lines
  Added in v.1.504

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