From 60e6d3f9904a8114e985fccd14454b9b604ea275 Mon Sep 17 00:00:00 2001 From: brunzelchen 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/Midiin.pas | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Game/Code/lib/midi/Midiin.pas') diff --git a/Game/Code/lib/midi/Midiin.pas b/Game/Code/lib/midi/Midiin.pas index 32a17c51..2ed8d619 100644 --- a/Game/Code/lib/midi/Midiin.pas +++ b/Game/Code/lib/midi/Midiin.pas @@ -102,7 +102,8 @@ unit MidiIn; interface uses - Classes, SysUtils, WinTypes, Messages, WinProcs, MMSystem, MidiDefs, MidiType, + Classes, SysUtils, WinTypes, Messages, WinProcs, MMSystem, + MidiDefs, MidiType, MidiCons, Circbuf, Delphmcb; type @@ -259,7 +260,7 @@ begin { Create the window for callback notification } if not (csDesigning in ComponentState) then begin - Handle := AllocateHwnd(MidiInput); + Handle := Classes.AllocateHwnd(MidiInput); end; FState := misClosed; @@ -280,7 +281,7 @@ begin if (PCtlInfo <> nil) then GlobalSharedLockedFree(PCtlinfo^.hMem, PCtlInfo); - DeallocateHwnd(Handle); + Classes.DeallocateHwnd(Handle); inherited Destroy; end; -- cgit v1.2.3