Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.515.2.28 by h677, Mon Aug 1 13:35:13 2005 UTC revision 1.515.2.29 by h677, Sun Aug 7 16:04:03 2005 UTC
# Line 6934  begin Line 6934  begin
6934          try          try
6935                  if Dlg.ShowModal = mrOk then begin                  if Dlg.ShowModal = mrOk then begin
6936                          GikoSys.SaveKeySetting(ActionList);                          GikoSys.SaveKeySetting(ActionList);
6937                GikoSys.SaveEditorKeySetting(Dlg.EditorForm.ActionList);
6938                          GikoSys.Setting.Gestures.SaveGesture( GikoSys.Setting.GetGestureFileName );                          GikoSys.Setting.Gestures.SaveGesture( GikoSys.Setting.GetGestureFileName );
6939                  end;                  end;
6940                  GikoSys.SaveEditorKeySetting(Dlg.EditorForm.ActionList);  
6941          finally          finally
6942                  Dlg.Release;                  Dlg.Release;
6943                  MouseGesture.UnHook;                  MouseGesture.UnHook;
6944                  MouseGesture.OnGestureStart := OnGestureStart;                  MouseGesture.OnGestureStart := OnGestureStart;
6945                  MouseGesture.OnGestureMove := OnGestureMove;                  MouseGesture.OnGestureMove := OnGestureMove;
6946                  MouseGesture.OnGestureEnd := OnGestureEnd;                  MouseGesture.OnGestureEnd := OnGestureEnd;
6947                  if GikoSys.Setting.GestureEnabled then                  if GikoSys.Setting.GestureEnabled then begin
6948                            GikoSys.Setting.Gestures.ClearGesture;
6949                            GikoSys.Setting.Gestures.LoadGesture(
6950                                    GikoSys.Setting.GetGestureFileName, ActionList );
6951                          MouseGesture.SetHook( Handle );                          MouseGesture.SetHook( Handle );
6952                    end;
6953          end;          end;
6954  end;  end;
6955    
# Line 11573  end; Line 11578  end;
11578  procedure TGikoForm.FormActivate(Sender: TObject);  procedure TGikoForm.FormActivate(Sender: TObject);
11579  begin  begin
11580          if GikoSys.Setting.GestureEnabled then begin          if GikoSys.Setting.GestureEnabled then begin
11581                    GikoSys.Setting.Gestures.ClearGesture;
11582                    GikoSys.Setting.Gestures.LoadGesture(
11583                            GikoSys.Setting.GetGestureFileName, ActionList );
11584                  MouseGesture.UnHook;                  MouseGesture.UnHook;
11585                  MouseGesture.OnGestureStart := OnGestureStart;                  MouseGesture.OnGestureStart := OnGestureStart;
11586                  MouseGesture.OnGestureMove := OnGestureMove;                  MouseGesture.OnGestureMove := OnGestureMove;

Legend:
Removed from v.1.515.2.28  
changed lines
  Added in v.1.515.2.29

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