Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/KeySetting.pas

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

revision 1.11 by h677, Sat Dec 10 11:01:53 2005 UTC revision 1.12 by h677, Wed Jan 4 04:41:39 2006 UTC
# Line 111  begin Line 111  begin
111          if ListView.Items.Count > 0 then          if ListView.Items.Count > 0 then
112                  ListView.Selected := ListView.Items[0];                  ListView.Selected := ListView.Items[0];
113          EditorForm := TEditorForm.Create(Self);          EditorForm := TEditorForm.Create(Self);
         GikoSys.LoadKeySetting(EditorForm.ActionList, GikoSys.GetEditorKeyFileName);  
114          try          try
115                  for i := 0 to EditorForm.ActionList.ActionCount - 1 do begin                  for i := 0 to EditorForm.ActionList.ActionCount - 1 do begin
116                          if EditorForm.ActionList.Actions[i] is TAction then begin                          if EditorForm.ActionList.Actions[i] is TAction then begin

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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