unit Sound;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ComCtrls, Buttons;

type
  TSoundSysForm=class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    WaveBar: TTrackBar;
    SynthBar: TTrackBar;
    CDBar: TTrackBar;
    MasterBar: TTrackBar;
    CloseBtn: TBitBtn;
    procedure CloseBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure MasterBarChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  SoundSysForm: TSoundSysForm;


{This file is generated by DeDe v2.30 (c) 1999 by DaFixer}

implementation

{$R *.DFM}


procedure TSoundSysForm.CloseBtnClick(Sender: TObject);
begin
{
004AC4EC   55                     push    ebp
004AC4ED   8BEC                   mov     ebp, esp
004AC4EF   83C4F8                 add     esp, -$08
004AC4F2   8955F8                 mov     [ebp-$08], edx
004AC4F5   8945FC                 mov     [ebp-$04], eax
004AC4F8   8B45FC                 mov     eax, [ebp-$04]
004AC4FB   E898ECF9FF             call    0044B198
004AC500   59                     pop     ecx
004AC501   59                     pop     ecx
004AC502   5D                     pop     ebp
004AC503   C3                     ret


}
 end ; 

procedure TSoundSysForm.FormCreate(Sender: TObject);
begin
{
004AC57C   55                     push    ebp
004AC57D   8BEC                   mov     ebp, esp
004AC57F   83C4F8                 add     esp, -$08
004AC582   8955F8                 mov     [ebp-$08], edx
004AC585   8945FC                 mov     [ebp-$04], eax
004AC588   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004AC58D   8B00                   mov     eax, [eax]
004AC58F   8B55FC                 mov     edx, [ebp-$04]
004AC592   899008010000           mov     [eax+$0108], edx
004AC598   C78004010000D0C54A00   mov     dword ptr [eax+$0104], $004AC5D0
004AC5A2   8B45FC                 mov     eax, [ebp-$04]
004AC5A5   8B80E4020000           mov     eax, [eax+$02E4]
004AC5AB   E8D052FCFF             call    00471880
004AC5B0   8BC8                   mov     ecx, eax
004AC5B2   A154CC4C00             mov     eax, dword ptr [$4CCC54]
004AC5B7   8B00                   mov     eax, [eax]
004AC5B9   8B80B4030000           mov     eax, [eax+$03B4]
004AC5BF   BA40000000             mov     edx, $00000040
004AC5C4   E8B713F9FF             call    0043D980
004AC5C9   59                     pop     ecx
004AC5CA   59                     pop     ecx
004AC5CB   5D                     pop     ebp
004AC5CC   C3                     ret


}
 end ; 

procedure TSoundSysForm.FormShow(Sender: TObject);
begin
{
004AC560   55                     push    ebp
004AC561   8BEC                   mov     ebp, esp
004AC563   83C4F8                 add     esp, -$08
004AC566   8955F8                 mov     [ebp-$08], edx
004AC569   8945FC                 mov     [ebp-$04], eax
004AC56C   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004AC571   8B00                   mov     eax, [eax]
004AC573   E8A851FEFF             call    00491720
004AC578   59                     pop     ecx
004AC579   59                     pop     ecx
004AC57A   5D                     pop     ebp
004AC57B   C3                     ret


}
 end ; 

procedure TSoundSysForm.MasterBarChange(Sender: TObject);
begin
{
004AC504   55                     push    ebp
004AC505   8BEC                   mov     ebp, esp
004AC507   83C4F8                 add     esp, -$08
004AC50A   8955F8                 mov     [ebp-$08], edx
004AC50D   8945FC                 mov     [ebp-$04], eax
004AC510   8B45FC                 mov     eax, [ebp-$04]
004AC513   8B80C8020000           mov     eax, [eax+$02C8]
004AC519   8A800C020000           mov     al, byte ptr [eax+$020C]
004AC51F   50                     push    eax
004AC520   8B45FC                 mov     eax, [ebp-$04]
004AC523   8B80CC020000           mov     eax, [eax+$02CC]
004AC529   8A800C020000           mov     al, byte ptr [eax+$020C]
004AC52F   50                     push    eax
004AC530   8B45FC                 mov     eax, [ebp-$04]
004AC533   8B80C4020000           mov     eax, [eax+$02C4]
004AC539   8A880C020000           mov     cl, byte ptr [eax+$020C]
004AC53F   8B45FC                 mov     eax, [ebp-$04]
004AC542   8B80D0020000           mov     eax, [eax+$02D0]
004AC548   8A900C020000           mov     dl, byte ptr [eax+$020C]
004AC54E   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004AC553   8B00                   mov     eax, [eax]
004AC555   E8DE51FEFF             call    00491738
004AC55A   59                     pop     ecx
004AC55B   59                     pop     ecx
004AC55C   5D                     pop     ebp
004AC55D   C3                     ret


}
 end ; 

end.
