・板一覧更新の処理メッセージを追加

[gikonavigoeson/gikonavi.git] / Gesture.pas

diff --git a/Gesture.pas b/Gesture.pas
index 26a7029..75e7a52 100644 (file)
--- a/Gesture.pas
+++ b/Gesture.pas
@@ -9,7 +9,7 @@ uses
 type
        TMouseGesture = class(TObject)
        private
-               FHook: Integer;
+               FHook: Cardinal;
                FHandle: THandle;
                FGestureItemList: TStringList;
                FBeginGesture: Boolean;
@@ -36,7 +36,7 @@ type
                property GestureCount: Integer read GetGestureCount;
                property Margin: Integer read FMargin write FMargin;
                function GetGestureStr: string;
-               procedure ClearGesture;
+               procedure Clear;
                property OnGestureStart: TNotifyEvent read FOnGestureStart write FOnGestureStart;
                property OnGestureMove: TNotifyEvent read FOnGestureMove write FOnGestureMove;
                property OnGestureEnd: TNotifyEvent read FOnGestureEnd write FOnGestureEnd;
@@ -65,7 +65,7 @@ end;
 destructor TMouseGesture.Destroy;
 begin
        UnHook;
-       ClearGesture;
+       Clear;
        FGestureItemList.Free;
        inherited;
 end;
@@ -164,7 +164,7 @@ begin
                                        if Assigned(FOnGestureEnd) then begin
                                                FOnGestureEnd(Self);
                     end else begin
-                        ClearGesture;
+                        Clear;
                     end;
                                end else begin
                                        FCancelMode := True;
@@ -241,7 +241,7 @@ begin
 end;
 
 //\83W\83F\83X\83`\83\83\81[\82ð\83N\83\8a\83A\82·\82é
-procedure TMouseGesture.ClearGesture;
+procedure TMouseGesture.Clear;
 begin
        FGestureItemList.Clear;
 end;