From aceec1dc77e57c20d73e2430c0168a6449b46210 Mon Sep 17 00:00:00 2001 From: tobigun Date: Sun, 9 Mar 2008 18:41:06 +0000 Subject: DeviceID must be unsigned. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@945 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/lib/midi/Midiout.pas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Game/Code/lib/midi/Midiout.pas b/Game/Code/lib/midi/Midiout.pas index 7cab5c09..0ad93591 100644 --- a/Game/Code/lib/midi/Midiout.pas +++ b/Game/Code/lib/midi/Midiout.pas @@ -145,7 +145,7 @@ type TMidiOutput = class(TComponent) protected Handle: THandle; { Window handle used for callback notification } - FDeviceID: Integer; { MIDI device ID } + FDeviceID: Cardinal; { MIDI device ID } FMIDIHandle: Hmidiout; { Handle to output device } FState: midioutputState; { Current device state } PCtlInfo: PMidiCtlInfo; { Pointer to control info for DLL } @@ -170,7 +170,7 @@ type FOnMIDIOutput: TNotifyEvent; { Sysex output finished } procedure MidiOutput(var Message: TMessage); - procedure SetDeviceID(DeviceID: Integer); + procedure SetDeviceID(DeviceID: Cardinal); procedure SetProductName(NewProductName: string); procedure SetTechnology(NewTechnology: OutPortTech); function midioutErrorString(WError: Word): string; @@ -211,7 +211,7 @@ type { TODO: Property editor with dropdown list of product names } property ProductName: string read FProductName write SetProductName; - property DeviceID: Integer read FDeviceID write SetDeviceID default 0; + property DeviceID: Cardinal read FDeviceID write SetDeviceID default 0; { TODO: midiOutGetVolume? Or two properties for Left and Right volume? Is it worth it?? midiOutMessage?? Does anyone use this? } @@ -305,7 +305,7 @@ end; {-------------------------------------------------------------------} { Set the output device ID and change the other properties to match } -procedure Tmidioutput.SetDeviceID(DeviceID: Integer); +procedure Tmidioutput.SetDeviceID(DeviceID: Cardinal); var midioutCaps: TmidioutCaps; begin -- cgit v1.2.3