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.8 by h677, Sat Jan 6 13:55:29 2007 UTC revision 1.9 by h677, Sun Jan 14 13:40:25 2007 UTC
# Line 36  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;                  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;
# Line 65  end; Line 65  end;
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;
# Line 164  begin Line 164  begin
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;
# Line 241  begin Line 241  begin
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

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