| 25 |
function CheckAction(Message: Integer; x, y: Integer): Boolean; |
function CheckAction(Message: Integer; x, y: Integer): Boolean; |
| 26 |
procedure AddAction(sx, sy: Integer); |
procedure AddAction(sx, sy: Integer); |
| 27 |
function AddGesture(Item: string): Integer; |
function AddGesture(Item: string): Integer; |
|
procedure ClearGesture; |
|
| 28 |
function Get(Index: integer): string; |
function Get(Index: integer): string; |
| 29 |
procedure Put(Index: integer; Item: string); |
procedure Put(Index: integer; Item: string); |
| 30 |
public |
public |
| 36 |
property GestureCount: Integer read GetGestureCount; |
property GestureCount: Integer read GetGestureCount; |
| 37 |
property Margin: Integer read FMargin write FMargin; |
property Margin: Integer read FMargin write FMargin; |
| 38 |
function GetGestureStr: string; |
function GetGestureStr: string; |
| 39 |
|
procedure ClearGesture; |
| 40 |
property OnGestureStart: TNotifyEvent read FOnGestureStart write FOnGestureStart; |
property OnGestureStart: TNotifyEvent read FOnGestureStart write FOnGestureStart; |
| 41 |
property OnGestureMove: TNotifyEvent read FOnGestureMove write FOnGestureMove; |
property OnGestureMove: TNotifyEvent read FOnGestureMove write FOnGestureMove; |
| 42 |
property OnGestureEnd: TNotifyEvent read FOnGestureEnd write FOnGestureEnd; |
property OnGestureEnd: TNotifyEvent read FOnGestureEnd write FOnGestureEnd; |
| 161 |
FBeginGesture := False; |
FBeginGesture := False; |
| 162 |
ReleaseCapture; |
ReleaseCapture; |
| 163 |
if FGestureItemList.Count <> 0 then begin |
if FGestureItemList.Count <> 0 then begin |
| 164 |
if Assigned(FOnGestureEnd) then |
if Assigned(FOnGestureEnd) then begin |
| 165 |
FOnGestureEnd(Self); |
FOnGestureEnd(Self); |
| 166 |
ClearGesture; |
end else begin |
| 167 |
|
ClearGesture; |
| 168 |
|
end; |
| 169 |
end else begin |
end else begin |
| 170 |
FCancelMode := True; |
FCancelMode := True; |
| 171 |
//ジェスチャーじゃなかった場合、マウスDOWN,UPをエミュレート |
//ジェスチャーじゃなかった場合、マウスDOWN,UPをエミュレート |