AFsoft WebSite (AFsoft.JP)

Delphi2010　ジェスチャ(1)　2010/11/24

　
前回は、[Touch]カテゴリ内のタッチキーボード(TouchKeyboard；仮想キーボード・ソフトキーボード)について見てみました。今回は、ジェスチャについて見ていきます。ジェスチャとは、タッチディスプレイ等（マウスも可）を使った操作でイベントやアクションが起きる仕組みの事ですが、どういう操作があるのかって辺りでしょうか？
　
ジェスチャには２種類あって、１つは「標準ジェスチャ」でこれは操作それぞれ単機能なものを指すもので、もう１つは「対話型ジェスチャ」でこちらはWindows7対応・タッチディスプレイ専用のパン・ズーム・回転・２本指タップ・プレスアンドタップという組み合わせ的な機能のものです。ここではまず、標準ジェスチャについて見ていきます。
　
テスト28（フォルダ「028」）として新規作成します。
テストとしてパネルを配置します。いろんなコンポーネントでタッチ＆ジェスチャに対応していますが、大きさが小さいと認識が難しくなると思います。そして、[Gestures]内のジェスチャマネージャ（GestureManager）を配置します。１つ目ですので Nameプロパティは「GestureManager1」となります。

↓

　
パネル Panel1 を選択し、＜オブジェクトインスペクタ＞にて、Touchプロパティ内の GestureManagerプロパティ欄の右端の▼をクリックして「GestureManager1」にします。

　
そのすぐ下にある Gesturesプロパティ欄の右端の[…]をクリックして「ジェスチャの選択」画面を表示します。

↓

　
又は、そのすぐ下にある Standardプロパティ欄の左端の[+]をクリックして中身を展開することでもＯＫです。

　
すると標準ジェスチャの一覧がチェック付きで表示されます。ここで、対応したい標準ジェスチャの項目にチェックを入れます。例えば、Left、Right、Up、Down、の４つにチェックを入れてみます。

　
そして、＜オブジェクトインスペクタ＞のイベント頁の、OnGestureイベント欄をダブルクリックしてイベントハンドラを記述します。

procedure TForm1.Panel1Gesture(Sender: TObject;
const EventInfo: TGestureEventInfo; var Handled: Boolean);
var
　id : TStandardGesture ;
begin
　id := TStandardGesture(EventInfo.GestureID);
　with Panel1 do begin
　　case id of
　　　sgLeft:　 Caption := '左（←）';
　　　sgRight:　Caption := '右（→）';
　　　sgUp:　　 Caption := '上（↑）';
　　　sgDown:　 Caption := '下（↓）';
　　end;
　end;
　Handled := True ;
end;

ヘルプに「GestureID」についての記載が無いので、これが実際に正しい書き方なのかは分かりませんが・・・。この「GestureID」は ShortInt型との事ですが、各ジェスチャのほうを ShortIntにキャストするとプログラムが見難くなるので、逆にしてます。
　
内容は単純です。パネル上で上下左右のフリックをすると、パネル上の文字をそれに応じて変更しているだけです。保存・コンパイル（再構築）・実行をしてみます。

パネル上を右方向へフリックすると
↓

これはマウス操作でも同様に操作できます

　
という訳で、対応したい操作に対する標準ジェスチャを指定し、そのコーディングを行う事で、プログラムを作成する事が出来ます。標準ジェスチャには下記のものがあります（ヘルプ「列挙型 TStandardGesture」より）。

sgLeft	1	一筆で、左向きにさっと線を引きます。
sgRight	2	一筆で、右向きにさっと線を引きます。
sgUp	3	一筆で、上向きにさっと線を引きます。
sgDown	4	一筆で、下向きにさっと線を引きます。
sgUpLeft	5	一筆で、上向きに、それから直角に曲がって左向きに線を引きます。両方の線の長さは同じにします。
sgUpRight	6	一筆で、上向きに、それから直角に曲がって右向きに線を引きます。両方の線の長さは同じにします。
sgDownLeft	7	一筆で、下向きに、それから直角に曲がって左向きに線を引きます。両方の線の長さは同じにします。
sgDownRight	8	一筆で、下向きに、それから直角に曲がって右向きに線を引きます。両方の線の長さは同じにします。
sgLeftUp	9	一筆で、左向きに、それから直角に曲がって上向きに線を引きます。両方の線の長さは同じにします。
sgLeftDown	10	一筆で、左向きに、それから直角に曲がって下向きに線を引きます。両方の線の長さは同じにします。
sgRightUp	11	一筆で、右向きに、それから直角に曲がって上向きに線を引きます。両方の線の長さは同じにします。
sgRightDown	12	一筆で、右向きに、それから直角に曲がって下向きに線を引きます。両方の線の長さは同じにします。
sgUpDown	13	一筆で、上向きに、それから下向きに線を引きます。両方の線は重ね合わせます。
sgDownUp	14	一筆で、下向きに、それから上向きに線を引きます。両方の線は重ね合わせます。
sgLeftRight	15	一筆で、左向きに、それから右向きに線を引きます。両方の線は重ね合わせます。
sgRightLeft	16	一筆で、右向きに、それから左向きに線を引きます。両方の線は重ね合わせます。
sgUpLeftLong	17	一筆で、上向きに、それから直角に曲がって左向きに線を引きます。左向きの線は、上向きの線の 2 倍から 4 倍の長さにします。
sgUpRightLong	18	一筆で、上向きに、それから直角に曲がって右向きに線を引きます。右向きの線は、上向きの線の 2 倍から 4 倍の長さにします。
sgDownLeftLong	19	一筆で、下向きに、それから直角に曲がって左向きに線を引きます。左向きの線は、上向きの線の 2 倍から 4 倍の長さにします。
sgDownRightLong	20	一筆で、下向きに、それから直角に曲がって右向きに線を引きます。右向きの線は、下向きの線の 2 倍から 4 倍の長さにします。
sgScratchout	21	3 回以上往復する線を引きます。
sgTriangle	22	上の頂点から始めて、一筆で三角形を描きます。
sgSquare	23	左上の角から始めて、一筆で四角形を描きます。
sgCheck	24	一筆で、右下方向に、それから右上方向に線を引きます。上向きの線は、下向きの線の 2 倍から 4 倍の長さにします。
sgCurlicue	25	一筆で、下から始めて右斜め上方向に渦巻きを描きます。
sgDoubleCurlicue	26	一筆で、下から始めて右斜め上方向に二重の渦巻きを描きます。
sgCircle	27	上から始めて、一筆で円を描きます。
sgDoubleCircle	28	上から始めて、一筆で円を 2 度描きます。
sgSemiCircleLeft	29	一筆で、右から左に水平方向の半円を描きます。
sgSemiCircleRight	30	一筆で、左から右に水平方向の半円を描きます。
sgChevronUp	31	一筆で、上向きに、それから鋭角に曲がって下向きに線を引きます。両方の線の長さは同じにします。
sgChevronDown	32	一筆で、下向きに、それから鋭角に曲がって上向きに線を引きます。両方の線の長さは同じにします。
sgChevronLeft	33	一筆で、左向きに、それから鋭角に曲がって右向きに線を引きます。両方の線の長さは同じにします。
sgChevronRight	34	一筆で、右向きに、それから鋭角に曲がって左向きに線を引きます。両方の線の長さは同じにします。