From 60e6d3f9904a8114e985fccd14454b9b604ea275 Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 28 Apr 2010 19:54:31 +0000
Subject: - new SDL.dll (with a quick and dirty workaround for the
 hanging-mouse problem) - changing of sorting and folder-option (on/off) does
 not need any restart now - a lot of code clean up - some bugfixes... i
 hope... dont't know which...

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2316 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/lib/midi/Midiout.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'Game/Code/lib/midi/Midiout.pas')

diff --git a/Game/Code/lib/midi/Midiout.pas b/Game/Code/lib/midi/Midiout.pas
index 91b75073..ba5f7697 100644
--- a/Game/Code/lib/midi/Midiout.pas
+++ b/Game/Code/lib/midi/Midiout.pas
@@ -126,7 +126,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 }
@@ -151,7 +151,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;
@@ -192,7 +192,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? }
@@ -243,7 +243,7 @@ begin
  { Create the window for callback notification }
   if not (csDesigning in ComponentState) then
   begin
-    Handle := AllocateHwnd(MidiOutput);
+    Handle := Classes.AllocateHwnd(MidiOutput);
   end;
 
 end;
@@ -256,7 +256,7 @@ begin
     Close;
   if (PCtlInfo <> nil) then
     GlobalSharedLockedFree(PCtlinfo^.hMem, PCtlInfo);
-  DeallocateHwnd(Handle);
+  Classes.DeallocateHwnd(Handle);
   inherited Destroy;
 end;
 
@@ -286,7 +286,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