Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas

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

revision 1.19 by h677, Sat Dec 10 09:09:55 2005 UTC revision 1.20 by h677, Sat Dec 10 11:01:53 2005 UTC
# Line 1057  begin Line 1057  begin
1057          if Item = nil then Exit;          if Item = nil then Exit;
1058          Editor := TEditorForm.Create(GikoForm.GetMainForm);          Editor := TEditorForm.Create(GikoForm.GetMainForm);
1059          Editor.SetThreadItem(Item);          Editor.SetThreadItem(Item);
1060          GikoSys.LoadEditorKeySetting(Editor.ActionList);          GikoSys.LoadKeySetting(Editor.ActionList, GikoSys.GetEditorKeyFileName);
1061          Editor.Show;          Editor.Show;
1062          Editor.BodyEdit.SetFocus;          Editor.BodyEdit.SetFocus;
1063  end;  end;
# Line 1557  begin Line 1557  begin
1557          Dlg := TKeySettingForm.Create(GikoForm);          Dlg := TKeySettingForm.Create(GikoForm);
1558          try          try
1559                  if Dlg.ShowModal = mrOk then begin                  if Dlg.ShowModal = mrOk then begin
1560                          GikoSys.SaveKeySetting(GikoFormActionList);                          GikoSys.SaveKeySetting(GikoFormActionList, Setting.KEY_SETTING_FILE_NAME);
1561                          GikoSys.SaveEditorKeySetting(Dlg.EditorForm.ActionList);                          GikoSys.SaveKeySetting(Dlg.EditorForm.ActionList, Setting.KEY_SETTING_FILE_NAME);
1562                          GikoSys.Setting.Gestures.SaveGesture( GikoSys.Setting.GetGestureFileName );                          GikoSys.Setting.Gestures.SaveGesture( GikoSys.Setting.GetGestureFileName );
1563                  end;                  end;
1564    
# Line 2222  begin Line 2222  begin
2222    
2223          Editor := TEditorForm.Create(GikoForm);          Editor := TEditorForm.Create(GikoForm);
2224          Editor.SetThreadItem(Item);          Editor.SetThreadItem(Item);
2225          GikoSys.LoadEditorKeySetting(Editor.ActionList);          GikoSys.LoadKeySetting(Editor.ActionList, GikoSys.GetEditorKeyFileName);
2226          Editor.BodyEdit.Text := '>>' + IntToStr(Number) + #13#10;          Editor.BodyEdit.Text := '>>' + IntToStr(Number) + #13#10;
2227          Editor.Show;          Editor.Show;
2228          Editor.BodyEdit.SetFocus;          Editor.BodyEdit.SetFocus;

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

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