Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|