aboutsummaryrefslogtreecommitdiffstats
path: root/src/lib/midi/demo
diff options
context:
space:
mode:
authork-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2013-12-01 00:31:54 +0000
committerk-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2013-12-01 00:31:54 +0000
commit9cd462b34d5d839f8addfdf6a9f4469c99a8e653 (patch)
tree6924e73d97578431f2047dec0794761e6f7d07d4 /src/lib/midi/demo
parent38d08e1ba24c550540edbda85992c995553648da (diff)
downloadusdx-9cd462b34d5d839f8addfdf6a9f4469c99a8e653.tar.gz
usdx-9cd462b34d5d839f8addfdf6a9f4469c99a8e653.tar.xz
usdx-9cd462b34d5d839f8addfdf6a9f4469c99a8e653.zip
formating and beautifying. no actual code change, but needs checks.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3011 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/lib/midi/demo')
-rw-r--r--src/lib/midi/demo/MidiTest.pas56
1 files changed, 34 insertions, 22 deletions
diff --git a/src/lib/midi/demo/MidiTest.pas b/src/lib/midi/demo/MidiTest.pas
index 793db730..4ded35fd 100644
--- a/src/lib/midi/demo/MidiTest.pas
+++ b/src/lib/midi/demo/MidiTest.pas
@@ -5,8 +5,22 @@ unit MidiTest;
interface
uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- StdCtrls, MidiFile, ExtCtrls, MidiOut, MidiType, MidiScope, Grids;
+ Windows,
+ Messages,
+ SysUtils,
+ Classes,
+ Graphics,
+ Controls,
+ Forms,
+ Dialogs,
+ StdCtrls,
+ ExtCtrls,
+ Grids,
+ MidiFile,
+ MidiOut,
+ MidiType,
+ MidiScope;
+
type
TMidiPlayer = class(TForm)
OpenDialog1: TOpenDialog;
@@ -33,9 +47,9 @@ type
procedure cmbInputChange(Sender: TObject);
procedure MidiFile1UpdateEvent(Sender: TObject);
procedure Button2Click(Sender: TObject);
- procedure edtBpmKeyPress(Sender: TObject; var Key: Char);
- procedure TracksGridSelectCell(Sender: TObject; Col, Row: Integer;
- var CanSelect: Boolean);
+ procedure edtBpmKeyPress(Sender: TObject; var Key: char);
+ procedure TracksGridSelectCell(Sender: TObject; Col, Row: integer;
+ var CanSelect: boolean);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
@@ -58,9 +72,9 @@ implementation
procedure TMidiPlayer.Button1Click(Sender: TObject);
var
- i,j: integer;
- track : TMidiTrack;
- event : PMidiEvent;
+ i, j: integer;
+ track: TMidiTrack;
+ event: PMidiEvent;
begin
if opendialog1.execute then
begin
@@ -79,7 +93,8 @@ begin
end;
procedure TMidiPlayer.MidiFile1MidiEvent(event: PMidiEvent);
-var mEvent : TMyMidiEvent;
+var
+ mEvent: TMyMidiEvent;
begin
mEvent := TMyMidiEvent.Create;
if not (event.event = $FF) then
@@ -90,19 +105,16 @@ begin
midioutput1.PutMidiEvent(mEvent);
end
else
- begin
if (event.data1 >= 1) and (event.data1 < 15) then
- begin
memo2.Lines.add(IntToStr(event.data1) + ' '+ event.str);
- end
- end;
midiScope1.MidiEvent(event.event,event.data1,event.data2);
mEvent.Destroy;
end;
procedure TMidiPlayer.SentAllNotesOff;
-var mEvent : TMyMidiEvent;
-channel : integer;
+var
+ mEvent: TMyMidiEvent;
+ channel: integer;
begin
mEvent := TMyMidiEvent.Create;
for channel:= 0 to 15 do
@@ -149,7 +161,8 @@ end;
procedure TMidiPlayer.FormCreate(Sender: TObject);
-var thisDevice : integer;
+var
+ thisDevice: integer;
begin
for thisDevice := 0 to MidiOutput1.NumDevs - 1 do
begin
@@ -183,7 +196,7 @@ begin
MidiFile1.ContinuePlaying;
end;
-procedure TMidiPlayer.edtBpmKeyPress(Sender: TObject; var Key: Char);
+procedure TMidiPlayer.edtBpmKeyPress(Sender: TObject; var Key: char);
begin
if Key = char(13) then
begin
@@ -195,12 +208,11 @@ begin
end;
procedure TMidiPlayer.TracksGridSelectCell(Sender: TObject; Col,
- Row: Integer; var CanSelect: Boolean);
+ Row: integer; var CanSelect: boolean);
var
- MidiTrack : TMidiTrack;
- i : integer;
- j : integer;
- event : PMidiEvent;
+ MidiTrack: TMidiTrack;
+ i, j: integer;
+ event: PMidiEvent;
begin
CanSelect := false;
if Row < MidiFile1.NumberOfTracks then