OSDN Git Service
(root)
/
gikonavigoeson
/
gikonavi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was manufactured by cvs2svn to create branch 'Bb62'.
[gikonavigoeson/gikonavi.git]
/
KeySetting.pas
diff --git
a/KeySetting.pas
b/KeySetting.pas
index
f9a994e
..
eb1adf3
100644
(file)
--- a/
KeySetting.pas
+++ b/
KeySetting.pas
@@
-111,7
+111,6
@@
begin
if ListView.Items.Count > 0 then
ListView.Selected := ListView.Items[0];
EditorForm := TEditorForm.Create(Self);
if ListView.Items.Count > 0 then
ListView.Selected := ListView.Items[0];
EditorForm := TEditorForm.Create(Self);
- GikoSys.LoadKeySetting(EditorForm.ActionList, GikoSys.GetEditorKeyFileName);
try
for i := 0 to EditorForm.ActionList.ActionCount - 1 do begin
if EditorForm.ActionList.Actions[i] is TAction then begin
try
for i := 0 to EditorForm.ActionList.ActionCount - 1 do begin
if EditorForm.ActionList.Actions[i] is TAction then begin
@@
-359,6
+358,7
@@
end;
procedure TKeySettingForm.OnGestureEnd(Sender: TObject);
begin
GestureEdit.Text := MouseGesture.GetGestureStr;
procedure TKeySettingForm.OnGestureEnd(Sender: TObject);
begin
GestureEdit.Text := MouseGesture.GetGestureStr;
+ MouseGesture.Clear;
end;
procedure TKeySettingForm.GestureCheckBoxClick(Sender: TObject);
end;
procedure TKeySettingForm.GestureCheckBoxClick(Sender: TObject);