ショートカットを選択するコンボボックスの選択肢初期化処理を、BottleDef.pasに移行。

ReplacePresetEditorとコードを共通化させるため。

diff --git a/bottleclient/ConstEditor.pas b/bottleclient/ConstEditor.pas
index 4a44892..3f6f8ad 100755 (executable)
--- a/bottleclient/ConstEditor.pas
+++ b/bottleclient/ConstEditor.pas
@@ -190,26 +190,10 @@ begin
 end;
 
 procedure TfrmConstEditor.FormCreate(Sender: TObject);
-var c: char;
-    i: integer;
 begin
   if Application.Terminated then Exit;
   //\83\81\83j\83\85\81[\8dì\90¬
-  for c := 'A' to 'Z' do begin
-    cbxConstShortCut.Items.Add('Ctrl+' + c);
-  end;
-  for c := 'A' to 'Z' do begin
-    cbxConstShortCut.Items.Add('Shift+Ctrl+' + c);
-  end;
-  for c := 'A' to 'Z' do begin
-    cbxConstShortCut.Items.Add('Alt+Ctrl+' + c);
-  end;
-  for i := 1 to 12 do begin
-    cbxConstShortCut.Items.Add('F' + IntToStr(i));
-  end;
-  for i := 1 to 12 do begin
-    cbxConstShortCut.Items.Add('Shift+F' + IntToStr(i));
-  end;
+  BuildShortCutList(cbxConstShortCut.Items);
   tvwConst.DoubleBuffered := true;
 end;