midireg.pas

来自「Delphi的另一款钢琴软件」· PAS 代码 · 共 22 行

unit midireg;

interface

procedure Register;

implementation

uses Classes, cmpMidiData, cmpMidiGrid, cmpPianoRoll, cmpMidiInput, cmpMidiOutput,
     cmpMidiPlayer, cmpTrackOutputs, cmpPosDisplay, cmpTimeDisplay, cmpKeyboard,
     cmpControllerMap, cmpTempoMap, cmpTimerSpeedButton;

procedure Register;
begin
  RegisterComponents('MIDI', [TMidiData, TMidiGrid, TPianoRoll, TMidiInput, TMidiOutputPort,
                              TMidiPlayer, TTrackOutputs, TPosDisplay, TTimeDisplay,
                              TKeys, TMidiKeys, TControllerMap, TTempoMap, TTimerSpeedButton]);
end;


end.