Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Gesture.pas

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

revision 1.7 by h677, Sun Dec 24 15:21:09 2006 UTC revision 1.8 by h677, Sat Jan 6 13:55:29 2007 UTC
# Line 25  type Line 25  type
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
# Line 37  type Line 36  type
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;
# Line 161  begin Line 161  begin
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をエミュレート

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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