Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

DELPHI 7 HELP!!!

Hey all, I'm new to the board. I'm looking for some very basic Delphi code for a volume control, a pan function and a modulation wheel for a basic Delphi MIDI keyboard. Any help would be very much appreciated!!

Comments

  • zibadianzibadian Member Posts: 6,349
    : Hey all, I'm new to the board. I'm looking for some very basic Delphi code for a volume control, a pan function and a modulation wheel for a basic Delphi MIDI keyboard. Any help would be very much appreciated!!
    :
    This code assumes a form with a TTrackBar on it:
    [code]
    procedure TForm1.Form1OnCreate(Sender: TObject)
    var
    i: DWord
    begin
    midiOutGetVolume(MIDIHandle, i);
    TrackBar1.Position := i;
    end;

    procedure TForm1.TrackBar1OnChange(Sender: TObject)
    begin
    midiOutSetVolume(MIDIHandle, TrackBar1.Position);
    end;
    [/code]
  • andyb1210andyb1210 Member Posts: 2
    hey thanks for the quick reply, putting the code in now.
Sign In or Register to comment.