| 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; |
| 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 |
|
|
| 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; |