• R/O
  • HTTP
  • SSH
  • HTTPS

gikonavi: Commit


Commit MetaInfo

Revision343294c4267a8b2cbc8413cec15e7a71fdb65aa4 (tree)
Time2007-01-22 02:43:53
Authorcvs2git <cvs2git>
Commitercvs2git

Log Message

This commit was manufactured by cvs2svn to create tag 'v1_54_0_688'.

Change Summary

Incremental Difference

--- a/Editor.pas
+++ b/Editor.pas
@@ -1757,7 +1757,6 @@ var
17571757 Action: TAction;
17581758 begin
17591759 s := MouseGesture.GetGestureStr;
1760- MouseGesture.Clear;
17611760 Action := GikoSys.Setting.Gestures.GetGestureAction(s);
17621761 if Action <> nil then
17631762 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 Clear;
39+ procedure ClearGesture;
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- Clear;
68+ ClearGesture;
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- Clear;
167+ ClearGesture;
168168 end;
169169 end else begin
170170 FCancelMode := True;
@@ -241,7 +241,7 @@ begin
241241 end;
242242
243243 //ジェスチャーをクリアする
244-procedure TMouseGesture.Clear;
244+procedure TMouseGesture.ClearGesture;
245245 begin
246246 FGestureItemList.Clear;
247247 end;
--- a/Giko.pas
+++ b/Giko.pas
@@ -1886,13 +1886,7 @@ begin
18861886 FActiveContent := nil;
18871887 Exit;
18881888 end;
1889- // 前回と同じ場合終了
1890- if (StatusBar.Panels[1].Text = Text2) then begin
1891- {$IFDEF DEBUG}
1892- Writeln('Status Text is not changed!');
1893- {$ENDIF}
1894- Exit;
1895- end;
1889+
18961890 StatusBar.Panels[1].Text := Text2;
18971891
18981892 if FHint <> nil then begin
@@ -1906,8 +1900,6 @@ begin
19061900 if not GikoForm.Active then
19071901 Exit;
19081902
1909-
1910-
19111903 //file:///C:/Borland/Projects/gikoNavi/test/read.cgi/qa/990576336/10
19121904 //file:///C:/Borland/Projects/gikoNavi/test/read.cgi/qa/990576336/10-15
19131905
@@ -6790,7 +6782,7 @@ var
67906782 Action: TAction;
67916783 begin
67926784 s := MouseGesture.GetGestureStr;
6793- MouseGesture.Clear;
6785+ MouseGesture.ClearGesture;
67946786 Action := GikoSys.Setting.Gestures.GetGestureAction(s);
67956787 if Action <> nil then
67966788 Action.Execute;
--- a/KeySetting.pas
+++ b/KeySetting.pas
@@ -358,7 +358,6 @@ end;
358358 procedure TKeySettingForm.OnGestureEnd(Sender: TObject);
359359 begin
360360 GestureEdit.Text := MouseGesture.GetGestureStr;
361- MouseGesture.Clear;
362361 end;
363362
364363 procedure TKeySettingForm.GestureCheckBoxClick(Sender: TObject);
Binary files a/gikoNavi.res and b/gikoNavi.res differ
--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -107,7 +107,7 @@ LICENSE
107107 ------------------------------
108108 履歴
109109 ------------------------------
110-2007/01/28
110+2006/12/XX
111111 Version バタ54
112112  スレッド内でのリンクで移動したときの履歴を辿れる機能を追加
113113  タスクトレイに格納する機能を追加(オプションで最小化時も)
Show on old repository browser