• R/O
  • HTTP
  • SSH
  • HTTPS

Commit

Tags
No Tags

Frequently used words (click to add to your profile)

javaandroidc++linuxc#objective-ccocoa誰得qtrubypythongamewindowsbathyscaphephpguic翻訳omegattwitterframeworktestbtronarduinovb.net計画中(planning stage)directxpreviewerゲームエンジンdom

ギコナビ


Commit MetaInfo

Revision257786f4c10fbe609a58fe609baffcfc796cdd66 (tree)
Time2007-01-14 22:40:25
Authorh677 <h677>
Commiterh677

Log Message

レスエディタ,キー設定でマウスジェスチャーの入力がクリアされない不具合の修正

Change Summary

Incremental Difference

--- a/Editor.pas
+++ b/Editor.pas
@@ -1757,6 +1757,7 @@ var
17571757 Action: TAction;
17581758 begin
17591759 s := MouseGesture.GetGestureStr;
1760+ MouseGesture.Clear;
17601761 Action := GikoSys.Setting.Gestures.GetGestureAction(s);
17611762 if Action <> nil then
17621763 Action.Execute;
--- a/Gesture.pas
+++ b/Gesture.pas
@@ -36,7 +36,7 @@ type
3636 property GestureCount: Integer read GetGestureCount;
3737 property Margin: Integer read FMargin write FMargin;
3838 function GetGestureStr: string;
39- procedure ClearGesture;
39+ procedure Clear;
4040 property OnGestureStart: TNotifyEvent read FOnGestureStart write FOnGestureStart;
4141 property OnGestureMove: TNotifyEvent read FOnGestureMove write FOnGestureMove;
4242 property OnGestureEnd: TNotifyEvent read FOnGestureEnd write FOnGestureEnd;
@@ -65,7 +65,7 @@ end;
6565 destructor TMouseGesture.Destroy;
6666 begin
6767 UnHook;
68- ClearGesture;
68+ Clear;
6969 FGestureItemList.Free;
7070 inherited;
7171 end;
@@ -164,7 +164,7 @@ begin
164164 if Assigned(FOnGestureEnd) then begin
165165 FOnGestureEnd(Self);
166166 end else begin
167- ClearGesture;
167+ Clear;
168168 end;
169169 end else begin
170170 FCancelMode := True;
@@ -241,7 +241,7 @@ begin
241241 end;
242242
243243 //ƒWƒFƒXƒ`ƒƒ[‚ðƒNƒŠƒA‚·‚é
244-procedure TMouseGesture.ClearGesture;
244+procedure TMouseGesture.Clear;
245245 begin
246246 FGestureItemList.Clear;
247247 end;
--- a/Giko.pas
+++ b/Giko.pas
@@ -6782,7 +6782,7 @@ var
67826782 Action: TAction;
67836783 begin
67846784 s := MouseGesture.GetGestureStr;
6785- MouseGesture.ClearGesture;
6785+ MouseGesture.Clear;
67866786 Action := GikoSys.Setting.Gestures.GetGestureAction(s);
67876787 if Action <> nil then
67886788 Action.Execute;
--- a/KeySetting.pas
+++ b/KeySetting.pas
@@ -358,6 +358,7 @@ end;
358358 procedure TKeySettingForm.OnGestureEnd(Sender: TObject);
359359 begin
360360 GestureEdit.Text := MouseGesture.GetGestureStr;
361+ MouseGesture.Clear;
361362 end;
362363
363364 procedure TKeySettingForm.GestureCheckBoxClick(Sender: TObject);
Binary files a/gikoNavi.res and b/gikoNavi.res differ