Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Gesture.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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; |
procedure Clear; |
| 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; |
| 65 |
destructor TMouseGesture.Destroy; |
destructor TMouseGesture.Destroy; |
| 66 |
begin |
begin |
| 67 |
UnHook; |
UnHook; |
| 68 |
ClearGesture; |
Clear; |
| 69 |
FGestureItemList.Free; |
FGestureItemList.Free; |
| 70 |
inherited; |
inherited; |
| 71 |
end; |
end; |
| 164 |
if Assigned(FOnGestureEnd) then begin |
if Assigned(FOnGestureEnd) then begin |
| 165 |
FOnGestureEnd(Self); |
FOnGestureEnd(Self); |
| 166 |
end else begin |
end else begin |
| 167 |
ClearGesture; |
Clear; |
| 168 |
end; |
end; |
| 169 |
end else begin |
end else begin |
| 170 |
FCancelMode := True; |
FCancelMode := True; |
| 241 |
end; |
end; |
| 242 |
|
|
| 243 |
//ジェスチャーをクリアする |
//ジェスチャーをクリアする |
| 244 |
procedure TMouseGesture.ClearGesture; |
procedure TMouseGesture.Clear; |
| 245 |
begin |
begin |
| 246 |
FGestureItemList.Clear; |
FGestureItemList.Clear; |
| 247 |
end; |
end; |
|
|
Legend:
| Removed from v.1.8 |
|
| changed lines |
| |
Added in v.1.9 |
|
|
|